Es sobre la Formula =Now()
Miren: tengo esta fórmula en una celda de excel, lo que yo pretendo es que esa celda me este marcando la hora actual. Para que me pueda hacer una consulta cada que se llegue a determinada hora, pero no encuentro la manera de hacerlo automático, ya que tengo que ejecutar la macro cada vez que la necesito.
Entonces quisiera saber como hacerle para que en la celda (A1 por ejemplo) me este poniendo la hora minuto a minuto.?
Gracias.
Entonces quisiera saber como hacerle para que en la celda (A1 por ejemplo) me este poniendo la hora minuto a minuto.?
Gracias.
1 Respuesta
Respuesta de ttella
1
Prueba con estas dos macros.
Tiene una pega que te adelanto: si quieres sincronizar algo con ese reloj, el reloj se actualiza cada minuto. Si durante ese minuto exacto completo tienes algún proceso abierto (se me ocurre, que estés diseñando, por ejemplo, una tabla dinámica complicada) puede ocurrirte que se salte la hora a la que lo has programado. Para evitarlo te recomiendo que, o bien programes el proceso cada hora (quitando el for-next de los minutos), o lo actualices a menudo.
Espero que te sirva.
Toni
http://excel.portalsingular.com
Sub Auto_open()
For Hor = 0 To 23
For Min = 0 To 59
Application.OnTime Now + TimeValue(Hor & ":" & Min), "actualizar"
Next Min
Next Hor
End Sub
Sub actualizar()
Range("a1").Calculate
End Sub
Tiene una pega que te adelanto: si quieres sincronizar algo con ese reloj, el reloj se actualiza cada minuto. Si durante ese minuto exacto completo tienes algún proceso abierto (se me ocurre, que estés diseñando, por ejemplo, una tabla dinámica complicada) puede ocurrirte que se salte la hora a la que lo has programado. Para evitarlo te recomiendo que, o bien programes el proceso cada hora (quitando el for-next de los minutos), o lo actualices a menudo.
Espero que te sirva.
Toni
http://excel.portalsingular.com
Sub Auto_open()
For Hor = 0 To 23
For Min = 0 To 59
Application.OnTime Now + TimeValue(Hor & ":" & Min), "actualizar"
Next Min
Next Hor
End Sub
Sub actualizar()
Range("a1").Calculate
End Sub
