Jump to content

rolano

Members
  • Posts

    1,202
  • Joined

  • Last visited

  • Days Won

    10

rolano last won the day on March 2 2020

rolano had the most liked content!

2 Followers

About rolano

  • 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

Recent Profile Visitors

1,352 profile views
  1. 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
  2. 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
  3. "Nada es imposible sino lo has intentado"

  4. 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
  5. Re: Cumpleaños Avalencia Feliz Cumpleaños Abraham que se mas, Salud a ver si nos tomamos un par de chelas
  6. 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/
  7. 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
  8. 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"
  9. 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
  10. 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
  11. Re: Felices Fiestas, a todas las personas de buena voluntad Feliz Navidad y un Prospero Año Nuevo !!!!!!!!!!!
  12. 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.
  13. 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.
  14. 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)"
×
×
  • Create New...

Important Information

Privacy Policy