-
Content Count
1,202 -
Joined
-
Last visited
-
Days Won
10
rolano last won the day on March 2 2020
rolano had the most liked content!
About rolano
-
Rank
César Rolando
- Birthday 10/24/1973
Contact Methods
-
Website URL
http://excelilove.blogspot.com/
-
Facebook
tiradocesar@outlook.com
-
Twitter
Cesar_Tirado
Profile information
-
Gender
Hombre
-
Localización:
Perú
-
Interests
Ajedrez y Baloncesto
Converted
-
Campos
;
-
Mi versión de Excel:
2,4
-
Buenas con todos, Encontré la solución algo chapuzado. Si hay otra opción bienvenido. let EdadCum = (tudia as date)=> let iniciofecha= if tudia>Date.From(DateTime.LocalNow()) then null else tudia, MiAnio=Number.RoundDown(Duration.TotalDays(Date.From(DateTime.LocalNow()) - iniciofecha)/365), mes1=Date.Month(Date.From(DateTime.LocalNow()))-Date.Month(Date.AddYears(iniciofecha,MiAnio)), mimess=if mes1<=0 then 12-(1-mes1) else if Date.Day(Date.From(DateTime.LocalNow()))<Date.Day(Date.AddYears(iniciofecha,MiAnio)) then mes1-1 else
-
Estimados, Buenas noches, Requiero de su ayuda, con una función en Power Query, de un post de la web, estoy tratando de modificar, que me calcule la edad en años, meses y días, dando como parámetros una fecha de nacimiento y la fecha actual. En el enlace solo esta en años y meses. Según en mi archivo, lo que esta resaltado con amarillo no es igual a la columna anterior(esta hecha con formula SIFECHA(). Muy agradecido de antemano. Web de ejemplo Función del post (yourdate as date)=> let startdate= if yourdate>Date.From(DateTime.LocalNow()) th
-
rolano reacted to a file: Tasas de desempleo de la UE
-
rolano reacted to a post in a topic: Esto si es un ME GUSTA y lo demás son tonterías
-
marcosab reacted to a post in a topic: Ayuda con conexion de Excel a ACCESS
-
ANSWERED Ayuda con conexion de Excel a ACCESS
rolano replied to marcosab's topic in Macros y programación VBA
Hola Marcosab, revisa el adjunto. Puedes explicar un poco mas con ejemplo. Datos.ro.rar -
johan moreno reacted to a post in a topic: ERROR DE MACRO EN WINDOWS 10
-
VICENTE GUERRA NICOLAS reacted to a post in a topic: ERROR DE MACRO EN WINDOWS 10
-
Jose BN reacted to a post in a topic: Finding All Reports In A Database When I Search With Access Using vba
-
temp01 reacted to a post in a topic: ERROR DE MACRO EN WINDOWS 10
-
Visor reacted to a post in a topic: Si abres este archivo, entonces puede ser que la macro no funciona
-
Visor reacted to a post in a topic: Si abres este archivo, entonces puede ser que la macro no funciona
-
rolano changed their profile photo
-
ANSWERED ERROR DE MACRO EN WINDOWS 10
rolano replied to VICENTE GUERRA NICOLAS's topic in Macros y programación VBA
Public Declare PtrSafe Function SetTimer Lib "user32" ( _ ByVal hWnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As LongPtr) As Long 'LongPtr cambialo por Long Hola a todos, es esta parte cambia LongPtr por Long, a mi me funciona as´s. -
Enid86 reacted to a post in a topic: Ingresar datos en Matriz de dos dimensiones
-
ANSWERED Ingresar datos en Matriz de dos dimensiones
rolano replied to Enid86's topic in Macros y programación VBA
Option Explicit Option Base 1 'EXPORTAR DATOS Sub Botón3_Haga_clic_en_R() 'On Error GoTo etiqueta Application.ScreenUpdating = False Dim vehiculo As String, fila As Long, colum As Long Dim NCarga As String, FechaSalida As String, FechaLlegada As String, PoblaciónOrigen As String, PoblaciónDestino As String Dim KmsNac As Integer, KmsInt As Integer, Precioventa As Double, PrecioKmsNac As Double, PrecioKmsInt As Double Dim filadest As Integer, columdest As Integer Dim pasardatos As Long, ultimafila As Long Dim Hoja As String Dim listacamioneskm() As String, i As Integer, matriz As Range Dim C -
Enid86 reacted to a post in a topic: Ingresar datos en Matriz de dos dimensiones
-
ANSWERED Ingresar datos en Matriz de dos dimensiones
rolano replied to Enid86's topic in Macros y programación VBA
Hola, como relacionas tu tabla Hoja(GS") y Hoja("listacamioneskm") o Hoja("listacamioneskms"). En tu Hoja("GS") deberías insertar en la columna "A" Vehículo y sus respectivos números. Porque para extraer la informacion de la Hoja(GS") a las Hoja("1111") y sucesivo, se necesita que en la Hoja(GS") tenga una relación con las otras hojas. Después Option Explicit coloca Option Base 1 -
rolano reacted to a post in a topic: Cómo utilizar celda activa de hoja no activa?
-
rolano reacted to a post in a topic: Como asignar formatos a columnas en un listbox
-
Antoni reacted to a post in a topic: Como asignar formatos a columnas en un listbox
-
Como asignar formatos a columnas en un listbox
rolano replied to luis vladimir's topic in Macros y programación VBA
'Copia los datos de la celda list box a = ListBox1.ListCount ListBox1.AddItem ListBox1.List(a, 0) = Sheets("bd").Cells(fila, 2) ListBox1.List(a, 1) = Sheets("bd").Cells(fila, 3) ListBox1.List(a, 2) = Sheets("bd").Cells(fila, 4) ListBox1.List(a, 3) = Sheets("bd").Cells(fila, 7) ListBox1.List(a, 4) = Sheets("bd").Cells(fila, 8) ListBox1.List(a, 5) = Sheets("bd").Cells(fila, 9) ListBox1.List(a, 6) = Format(Sheets("bd").Cells(fila, 10), "$###,##0") 'Cambiar ListBox1.List(a, 7) = Format(Sheets("bd").Cells(fila, 13), "$# -
Pegar formato al crear un formato condicional
rolano replied to NoWi's topic in Macros y programación VBA
Sub FC() Range("C3").Copy Range(A2:A6).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False 'copia el formato condicional de la celda C3 a las celdas A2:A6 End Sub Sub FormatoCondicional() With Range("$A$1:$A$5").FormatConditions .Delete .Add(xlExpression, , "Formula1") .Item(1).Interior.Color = Range("C3").Interior.Color .Item(1).Font.Bold = True .Item(1).Font.ColorIndex = 2 End With End Sub Hola, prueba con estas modificaciones.