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

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

Hola Marcosab, revisa el adjunto. Puedes explicar un poco mas con ejemplo. Datos.ro.rar

Hola Maurizio, revisa el adjunto haber si lo he atinado. Crea_Password.rar

Hola Antoni un gusto saludarte, allí debería ser hoja3 y no hoja1, ahora lo que hice es poner manualmente el numero de serie disco C en la hoja3 celda Range("B100000").

Hola a todos, tu archivo no abre porque tienes que tienes que colocar el numero de serie de tu disco C en la hojas. CONTROL RECONOCIMIENTO DE COMPUTADOR.xlsm

Sub Apri_Tabella() On Error Resume Next DoCmd.Close DoCmd.OpenTable "Tabella_Database", acViewNormal End Sub Hola, revisa este código.

Hola, revisa el archivo adjunto, ingrese con el usuario Maury. Crea_Password.accdb

Hola, pueda que te sirva takeout google. https://www.youtube.com/watch?v=crMZi2Lk5WI

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.

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(xl

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"