Disponemos de un control de visitas y tenemos que insertar la fecha y hora actual en una celda Excel.
Mediante una macro, podemos insertar la fecha y hora del sistema en la celda activa, como valor (La función AHORA inserta la fecha y hora pero se actualiza cada vez que se abre el libro o se actualizan los datos de la hoja).
Disponemos en la columna A el nombre de la empresa visitante, en la columna B el nombre de la persona visitante, en la columna C la fecha y hora de entrada de la visita y en la columna D la hora y fecha de salida de de la visita.
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.Escribir el código de la macro:
Sub FechaHora()ActiveCell.Value = Now
End Sub
Now función de VBA que inserta la fecha y hora actual como valor en la celda activa (ActiveCell.Value = Now).
Guardar el libro Excel con la extensión *.xlsm. Libro habilitado para macros.
Seleccionar la celda deseada y reproducimos la macro se insertará la fecha y la hora actual.
Verificar como mediante la macro se insertar fecha y hora actual en una celda Excel
Con un poco de imaginación podemos mejorar las opciones:
- La macro se puede asignar a un botón, atajo de teclado o cualquier objeto para su reproducción (Consultar el artículo: Asignar una macro a un botón).
- Validación de datos para que la fecha de salida sea mayor que la de entrada ...
Excel Experto VBA - Macros
He intentado hacerlo pero, el boton no se como enlazarlo para que al pulsarlo me escriba la hora de entrada o la hora de salida. por favor me pueden aclara mejor. gracias
Hola Antonio,
Siguiendo paso a paso el tutorial, no tiene ningún error. Al ejecutar la macro se puede inserta en la celda como #########, que indica que el ancho de la celda no es suficiente para mostrar los datos (Ampliar el ancho de la columna).
En el post: http://trucosycursos.es/asignar-una-macro-a-un-boton-en-excel/ Se indica como vincular la macro con el botón.
De todas maneras, te remito archivo con la macro, para que lo pruebes.
Un saludo y gracias por seguirnos y por tus comentarios.
Hola!
Como hago para que se imprima la fecha actual sin que se actualice nunca?
Saludos
como puedo hacer para que cuando la persona coloque la fecha y hora de entrada con el boton la celda no cambie nuevamente, ya que cada vez que va cambiando la hora con el boton cambia la celda
Hola Eliana,
La finalidad es que sobre la celda seleccionada se inserte la fecha/hora. Por lo que no tiene que cambiarse ningún valor de la hoja.
Saludos.
Programando con VBA introduzco la fecha en un formulario y después al copiar ese campo junto con otros a otra hoja de Excell no la escribe con formato fecha y no cambia aunque a la columna le dé el formato de fecha.
¿Cómo puedo hacer que se aplique el formato fecha al copiarlo?
Gracias
Hola Mikel,
Sin conocer el código es imposible, pero...
Declara la celda de la fecha como fecha. Adáptalo a tu código: Dim fecha as Date
Otra posibilidad es: cells(i, j).NumberFormat = "dd/mm/yyyy"
Saludos.