Jump to content

rolano

Members
  • 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!

2 Followers

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

Recent Profile Visitors

1,181 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
  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()) th
  3. Hola Marcosab, revisa el adjunto. Puedes explicar un poco mas con ejemplo. Datos.ro.rar
  4. 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").
  5. 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
  6. Sub Apri_Tabella() On Error Resume Next DoCmd.Close DoCmd.OpenTable "Tabella_Database", acViewNormal End Sub Hola, revisa este código.
  7. Hola, revisa el archivo adjunto, ingrese con el usuario Maury. Crea_Password.accdb
  8. Hola, pueda que te sirva takeout google. https://www.youtube.com/watch?v=crMZi2Lk5WI
  9. 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.
  10. 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
  11. Re: Cumpleaños Avalencia Feliz Cumpleaños Abraham que se mas, Salud a ver si nos tomamos un par de chelas
  12. 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/
  13. 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
  14. 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"
×
×
  • Create New...

Important Information

Privacy Policy