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.
Quizás no tenga mucha relación con lo mencionado lineas arriba, pero solo quiero indicar lo siguiente: tengo una sentencia que maximiza mi userForm que es la siguiente
Private Sub UserForm_Initialize()
Application.ActiveWindow.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height
End Sub
Dicha sentencia ha estado generando conflicto al intentar generar un código con el apoyo solicitado.
2 Respuestas
Te responderé al tema del título. Luego podes dejar otra consulta indicando como título lo del cambio de tamaño y con mucho gusto te responderé también.
Para que un Label muestre hora y fecha, tenés que colocar la instrucción en el evento Initialize..
Label1.Caption = Now 'fecha y hora
Label2.Caption = Date 'solo fecha
Label3.Caption = Time 'solo hora
Luego para guardar ese dato en una hoja, la instrucción sería, x ej:
ActiveSheet.range("A5") = CDate(Label1.caption)
La función CDate convierte el texto del label en un valor de fecha. La celda debe tener el formato de fecha deseado.
PD) Tenés 1 consulta sin finalizar en tu historial. Recordá de finalizarlas para seguir recibiendo asistencia aquí.
Solo un punto: veo que la hora se queda estático ... es posible que se muestre en tiempo real ?
esto es lo que puse en mi código en el initialize:
Private Sub UserForm_Initialize()
Application.ActiveWindow.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height
lblFecha.Caption = Now
End Sub
Saludos
Este control no se actualiza salvo que coloques un evento OnTime pero no te lo recomiendo para esto, porque hará que el form quede 'suspendido' de a ratos y no parece justificarlo.
Lo que tendrás que hacer para guardar la hoja actualizada es volverla a cargar.
Por ej, si tenés un botón de guardado, allí irán las 2 instrucciones:
Private Sub CommandButton1_Click()
Label1.Caption = Now
Sheets("Hoja1").Range("F1") = CDate(Label1.Caption)
End Sub
Una pregunta al momento de darle click al botón me lo guarda en automático y no espera a que registre toda mi información - joksan sergio rodriguez cabañas