Autoejecutar reloj en hoja Excel al abrir

02/03/2010 - 22:58 por Angel | Informe spam
Hola, buenas noches:

necesito por favor que me indiqueís cómo puedo ejecutar la macro que he
creado cuando abra el archivo y que se ejecute en la página principal. Mi
libro está compuesto de varias hojas, y tiene un reloj en la primera llamada
"menu", de tal manera que al abrir el libro el reloj se actualice
continuamente con la hora pero sólo en esa hoja.

No sé dónde tengo que colocarla igualmente, en objects de la página menu o
en ThisBooks o en módulo 1.

Les adjunto el código.

Private Sub auto_Open()
miReloj
End Sub


Sub miReloj()
Range("d13").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "miReloj"
End Sub

Gracias.

Preguntas similare

Leer las respuestas

#1 Ignacio
03/03/2010 - 15:54 | Informe spam
¡Hola, Ángel!

En el evento Worksheet_Activate de la hoja donde esté el reloj escribe
el siguiente código:
Private Sub Worksheet_Activate()
ActualizaHora
End Sub

En el mismo módulo escribe el siguiente procedimiento:
Private Sub ActualizaHora()
Range("D13") = Now
Range("D13").NumberFormat = "h:mm:ss"
Application.OnTime Now + TimeValue("00:00:01"),
"Hoja1.ActualizaHora"
End Sub

Espero que te funcione.

Un saludo,
Ignacio.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida