rolano

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 mes1, dia1=Date.Day(Date.From(DateTime.LocalNow()))-Date.Day(Date.AddMonths(iniciofecha,MiAnio)), midias=if dia1<0 then 31+dia1 else dia1, Concat = Text.From(MiAnio) & " años " & Text.From(mimess) & " meses " & Text.From(midias) & " dias" in Concat in EdadCum

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()) then null else yourdate, MyYears=Number.RoundDown(Duration.TotalDays(Date.From(DateTime.LocalNow()) - startdate)/365), month1=Date.Month(Date.From(DateTime.LocalNow()))-Date.Month(Date.AddYears(startdate,MyYears)), mymonths=if month1<0 then 12+month1 else month1, Concat = Text.From(MyYears) & " Yrs " & Text.From(mymonths) & " Months" in Concat Calcular Edad años meses y dias.xlsx

Re: Insertar objeto flash sin ser acceso directo Hola jokerm: Te adjunto un archivo en word de Hector Miguel como incrustar objeto flash incrustar flash en excel.ro.rar

Re: Cumpleaños Avalencia Feliz Cumpleaños Abraham que se mas, Salud a ver si nos tomamos un par de chelas

Re: Se puede digitar numero que automaticamente se convierta en hora sin presionar lo Hola Ever perez: revisa este enlace es con macros https://www.ayudaexcel.com/foro/f10/macro-cambiar-formato-hora-15647/

Re: buscar en hoja Hola cristian.alarcon, he modificado algunos datos del codigo de logroastur, pueda que te sirva. Private Sub Label1_Click() Dim Mesi, Activil, Añe, x Mesi = Application.WorksheetFunction.Proper(ComboBox1) Activil = TextBox1 Añe = Val(ComboBox3) With Sheets("Hoja2") For x = 2 To Sheets("BD").Range("A" & Rows.Count).End(xlUp).Row MesBD = Sheets("BD").Range("N" & x) AñoBD = Sheets("BD").Range("O" & x) ActiBD = Sheets("BD").Range("Q" & x) If MesBD = Mesi And AñoBD = Añe And ActiBD = Activil Then i = .Range("A" & Rows.Count).End(xlUp)(2).Row .Range("A" & i) = Sheets("BD").Range("A" & x) .Range("B" & i) = Sheets("BD").Range("B" & x) .Range("C" & i) = Sheets("BD").Range("C" & x) .Range("D" & i) = Sheets("BD").Range("G" & x) .Range("E" & i) = Sheets("BD").Range("I" & x) .Range("F" & i) = Sheets("BD").Range("L" & x) .Range("G" & i) = Sheets("BD").Range("N" & x) .Range("H" & i) = Sheets("BD").Range("O" & x) .Range("I" & i) = Sheets("BD").Range("P" & x) .Range("J" & i) = Sheets("BD").Range("Q" & x) .Range("K" & i) = Sheets("BD").Range("R" & x) .Range(.Range("A" & i), .Range("K" & i)).Borders.LineStyle = xlContinuous End If Next x .Range("I" & i + 3) = "Total" .Range("I" & i + 3) = "=SUM(R2C:R[-1]C)" End With End Sub [/PHP] busqueda.ro.zip

Felicidades a tod@s por el nombramiento "Ayuda Excel ha sido galardonada con el premio MVP (Most Value Professional) de Microsoft para el año 2011 por su labor voluntaria en compartir conocimientos sobre Excel"

Re: Datos de access en celdas especificas de excel mediante Combobox Hola QUARKCOM: Revisa este link hay buenos ejemplos de excel con access. ABRAHAM VALENCIA EXCEL

Re: Datos de access en celdas especificas de excel mediante Combobox Hola QUARKCOM: Revisa el adjunto haber si estamos en lo correcto. ejemplo.ro.rar

Re: Felices Fiestas, a todas las personas de buena voluntad Feliz Navidad y un Prospero Año Nuevo !!!!!!!!!!!

No te preocupes josuam por dar con resuelto, ya un Super Moderador lo hara. Con el codigo que te di busca en cualquier columna o fila que este ocupada + 1 te da el numero de fila libre.

Puedes subir un archivo con datos ficiticios, lo que pasa que si en la columna A ignoras un dato en el siguiente va a encontrar esa celda vacia y va a sobreescribir.

Hola josuam, prueba con este codigo

Hola savichmex, Colocate en la celda con la formula, luego alt + F11 Ventana inmediato o Ctrl + g Escribes Print ActiveCell.Formula Presionas enter o Formulalocal La formula se coloca en la celda activa según sea tu macro ActiveCell.Formula = "=OFFSET(AB135,-(MATCH(-1,AB32:AB135,-1)-COUNTIF(AB32:AB135,">0")),0)"