Introducir hora con un botón en cualquier celda de hoja excel

Tengo un Botón en una hoja de excel, que hace lo siguiente : Cuando selecciono cualquier celda de la hoja necesito que al hacer click en el botón me introduzca la hora, en la celda seleccionada. ¿Cuál seria el código que debería ir en el Sub Button_Click?

Yo lo que hice fue utilizar la propiedad "ActiveCell = Time", pero tengo que cambiar las celdas de la hoja al formato hora, no hay otra propiedad o código que utizando las Filas y Columnas me permita hacer lo mismo, sin tener que cambiar todas las columnas y filas al formato hora.

1 Respuesta

Respuesta
1

La instrucción sería:

ActiveCell = Format(Time, "hh:mm")

Ajusta el formato a tu gusto, puedes agregarle los segundos con:

ActiveCell = Format(Time, "hh:mm:ss")

Estimada Elsa la función anda perfecta,pero tengo una curiosidad

como seria  la macro para que la misma me cambie el Formato de la Celda directamente.

En ese caso utilizá estas 2 instrucciones:

ActiveCell.NumberFormat = "h:mm:ss;@"   
ActiveCell = Time

Podés encender la grabadora de macros (desde menú Macros o con el botón en la barra inferior de la hoja) y asignar el formato de tu agrado a cualquier celda. Al detenerla encontrarás en un módulo la instrucción.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas