Como actualizo la hora en una celda de excel

Todo expertos

Como actualizo la hora e tiempo real,, que se actualice cada 10 sg por ejem

Si coloco la fórmula =ahora() esta se queda estática y para actualizarse tiene que haber algún cambio en la hoja,, pero lo q necesito es que cada cierto tiempo este reloj se actualice..

Tengo un codigo q funciona, pero el problema es que al cargar uno de los formularios, el cursor desaparece de las casillas..

1 respuesta

Respuesta
1

Prueba de la siguiente manera

Presiona alt + f11 esto et lleva al editor de vba

Luego inserta un modulo

En el modulo pega estas macros

Sub ActualizaHora()
    Range("A1").Value = Time
    DisparaActualizador
End Sub
Sub DisparaActualizador()
    Application.OnTime Now + TimeValue("00:00:05"), "ActualizaHora"
End Sub

Luego solo ejecuta la macro actualizarhora estas se actualizara cada 5 seg si quiere que sea como dice en 10 solo cambia el 05 por 10 sera tu eleccion

Si te silve no olvides valora para cerrar la pregunta 

Hola

Como estas,, el código que me envías, es el que yo tengo,, funciona pero al cargar uno de los formularios con que cuenta el programa, el cursosr desaparece, no entiendo por que,, pero solo es en uno de ellos en los demás no

Este código actualiza la hora, mientras ejecutes un proceso pero al cerrar el libro y volver abrirlo la hora queda estática.. hay alguna forma de que al abrir el archivo la hora se inicie automáticamente

Puse el tiempo en 11 seg

Usa el evento open del libro para ejecutar la macro actualizar hora

De la siguiente manerar

En el thisworkbook

Private Sub Workbook_Open()
ActualizaHora
End Sub

Ok gracias aneudys ya se actualiza al tiempo que elegí,

Pero ahora el problema es que me ubica la hora en todas las hoja del libro

No entiendo por que,, ya que la fórmula =ahora() la tengo es en la hoja menu en la celda k1

Pero me coloca la hora en todas la hoja (celda k1) borrándome la información de esa celda..

¿Cómo soluciono eso?

Sub ActualizaHora()
   Sheet1.Range("k1").Value = Time
    DisparaActualizador
End Sub

Si es en español

Seria

hoja1.Range("k1").Value = Time

saludos

y si por si acaso lo quiero ubicar en 2 hojas al mismo tiempo

seria algo como esto

hoja1.Range("k1").Value = Time

hoja2.Range("k1").Value = Time

es correcto?

Exactamente así consigue tenerlo en las dos hojas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas