Reloj sobre formulario, ¿No se mueve?

Estimados si alguien me ayuda
Tengo un formulario(Userform) y una etiqueta(label)
Ahora quiero poner un reloj o tiempo simplemente y solo se que este se active
digo:
Private Sub Userform_Initializate
    Label1.Caption = Time
End Sub
(Por ejemplo da la hora minutos y segundos pero estático) no se mueve,,, se muebve cada vez que habro el formulario
¿Qué más le debo a agregar para que funcione?

1 Respuesta

Respuesta
4
Pues, una forma, en el código del userform:
Private Sub UserForm_Activate()
Label1 = Time
Reloj
End Sub
En un modulo "normal":
Sub reloj()
UserForm1.Label1.Caption = Time
Tiempo
End Sub
Sub Tiempo()
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub
Abraham
Estimado coloque el código que me pasas pero aun el reloj no funciona esta estático...
Es todo el código que debo colocfar o solo una parte,,, tengo excel XP..
Saludos
Pues debería resultar. ¿Estas seguro que pegaste los códigos en donde te indique? OJO, lee bien y veraz que una parte debes pegarla en el modulo del userform, y otra en un modulo "normal"
Abraham
Ok experto ahora entendí y se mueve bien,,,, pero aun tengo una duda persistente
Porque una Macro así como esta debe funcionar a parte del formulario,,,
También en un MODULO...
Por favor es más que nada para cultura coomputacional mía y te puntuara con lo máximo es un a excelente solución
Sino me equivoco, OnTime, al "llamar" a procedimientos, no puede actuar sobre rutinas de módulos de clase como los userform, debe actuar sobre rutinas de módulos normales... es decir rutinas "abiertas" a toda la aplicación
Abraham

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tiempo en useForm VBA Excel

Necesito de su ayuda requiero mostrar el tiempo real en un UseForm, tengo ya el código para que lo ponga sobre la hoja actual, sin embargo necesito que aparezca en un useForm, de antemano agradeciendo la atención a la presente. El código que tengo es...
2 respuestas

Reloj que no se detiene

Este código Private Sub cmdCierraApli_Click() 'cierra formulario ' ActiveWorkbook.Save 'Guarda posibles cambios de datos If MsgBox("¿Estás seguro que quieres cerrar?", vbYesNo) = vbYes Then 'mensage para salir Unload Me Else Call Detener_reloj...
1 respuesta

Formulario que habrá a una hora especifica excel

Tengo un formulario hecho que se llama ad. Necesito que este formulario se habrá automáticamente a las 4:45 pm... Conozco algo de esto pero no he podido ejecutarlo...
1 respuesta

Fecha y Hora real en useForm VBA Excel

A) Experto, necesito de su gran ayuda, necesito mostrar en un label la fecha y la hora real en un userForm, cabe indicar asimismo necesito que esa misma fecha se registre al presionar un un Botón de Comando en este caso su nombre seria cmdGrabar....
2 respuestas

Cuenta regresiva con timer

Tengo un pequeño problema, resulta que quiero que el timer inicie una cuenta regresiva, le pongo un tiempo en un text y quiero que ese tiempo se empiece a consumir. Ejemplo si pongo en el text dos horas quiero que en una etiqueta se muestre la cuenta...
1 respuesta

Parar reloj en excel

Me pasaron un rutina para poner un reloj en excel pero cuando inicio el archivo se ejecuta solo y me gustaria ver si se puede poner un bonton para inicar el reloj y parar el reloj... A continuacion le paso la rutina Sub HORA() Range("A1").Formula =...
1 respuesta

Utilizar "Application.OnTime " en un Formulario

Hoy tengo una duda, estoy haciendo un formulario de de bienvenida en el cual quiero poner una imagen que se vaya desplazando hacia la derecha. Como en vba no hay un timer encontré esta rutina.. Public datHora As Date Public Const conIntervalo = 2 'un...
1 respuesta

Desplegar fecha en un formulario

Estoy desarrollando un sistema desde cero y no se visual basic pero todo iba bien hasta que me tope con que tengo que poner la fecha como parte del encabezado en un formulario ----------------------------------- Sistema cxc fecha: Hora:...
1 respuesta

Programilla

Quisiera que me escribiera un código chiquito que haga lo siguiente: Un label que cuente 5,4,3,2,1,0 y cuando llegue a 0 que es cuando se acaba el tiempo me haga algo por ejemplo hacer un beep o mostrar un msgbox.
3 respuestas

Como posicionar un msgbox

En una macro dónde busco unas claves, al encontrar la clave saco un msgbox con una pregunta, pero los msgbos salen, en principio, en el centro de la pantalla, ¿Se pueden posicionar los msgbox? Y si se pueden ¿Cómo?
3 respuestas