Hora actual en celda con boton

Con los botones que incorpora el teclado (teclas): Control + Mayúsculas + :

Con código VBA: Cells(fila,columna).Value = Time

Donde fila y columna son los número de fila y de columna en que quieres la hora.






Saludos: Antonio.
***************************

"wontolla" escribió en el mensaje
news:
Hola, a todos

Estoy buscando poder colocar la hora actual del sistema en una celda
al presionar un boton. ¿Para que? para llevar un control de Hora de
inicio y hora final de uso de un equipo.

Ya he probado muchas funciones pero ninguna me sirve, porque necesito
meterla en codigo para el boton.

Lo deseable es no teclear la hora para no cometer errores, ¿porque?
porque tengo que hacer una macro tipo "APT" (a prueba de tontos), para
el personal del Area de Producción, que algunos no tienen completada
ni la educación básica.

Por fa, ¿tienen alguna sugerencia?

Saludos cordiales

On 17 sep, 13:20, "AnSanVal" wrote:

Con los botones que incorpora el teclado (teclas):   Control + Mayúsculas + :

Con código VBA:   Cells(fila,columna).Value = Time

Donde fila y columna son los número de fila y de columna en que quieres la hora.

Saludos: Antonio.
***************************

Gracias Antonio:

"Con los botones que incorpora el teclado (teclas): Control + Mayúsculas + :"

¿Sabes como se puede poner eso en codigo, yo ya lo intente y no lo he
logrado?

"Con código VBA: Cells(fila,columna).Value = Time"

No sirve, porque a tu comando TIME, le falta incluirle el
(hour,minute,second) que se deben agregar a mano

¿Alguna otra sugerencia?, como les comente ya he probado varias cosas
pero no he logrado la solucion.

Saludos cordiales

Saludos.

AH CHVR por que yo tambien quiero algo parecido, ingreso un dato en una
celda y en la adjunta que aparezca la hora que fue ingresado el dato... y si
es posible bloquear la celda que contiene la hora.

Atte


Juan Francisco Delgado Gardez
Producción - Confección Plano
MODIPSA
"wontolla" escribió en el mensaje de noticias
news:
On 17 sep, 13:20, "AnSanVal" wrote:

Con los botones que incorpora el teclado (teclas): Control + Mayúsculas +
:

Con código VBA: Cells(fila,columna).Value = Time

Donde fila y columna son los número de fila y de columna en que quieres la
hora.

Saludos: Antonio.
***************************

Gracias Antonio:

"Con los botones que incorpora el teclado (teclas): Control + Mayúsculas
+ :"

¿Sabes como se puede poner eso en codigo, yo ya lo intente y no lo he
logrado?

"Con código VBA: Cells(fila,columna).Value = Time"

No sirve, porque a tu comando TIME, le falta incluirle el
(hour,minute,second) que se deben agregar a mano

¿Alguna otra sugerencia?, como les comente ya he probado varias cosas
pero no he logrado la solucion.

Saludos cordiales





__________ Información de ESET NOD32 Antivirus, versión de la base de firmas
de virus 4398 (20090905) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com




__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4398 (20090905) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

Por ejemplo si quieres poner en A10 la hora actual:
[A10]=Now

Le das formato a A10 como quieras.

"wontolla" escribió en el mensaje de noticias
news:
Hola, a todos

Estoy buscando poder colocar la hora actual del sistema en una celda
al presionar un boton. ¿Para que? para llevar un control de Hora de
inicio y hora final de uso de un equipo.

Ya he probado muchas funciones pero ninguna me sirve, porque necesito
meterla en codigo para el boton.

Lo deseable es no teclear la hora para no cometer errores, ¿porque?
porque tengo que hacer una macro tipo "APT" (a prueba de tontos), para
el personal del Area de Producción, que algunos no tienen completada
ni la educación básica.

Por fa, ¿tienen alguna sugerencia?

Saludos cordiales

Suponiendo que el rango que quieres "controlar" sea A2:A1000,
y que las celdas "adjuntas" que quieres que recojan la hora de modificación
del rango anterior
sean B2:B1000
Pon en el código de la hoja lo siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub
On Error GoTo FIN
Target.Offset(0, 1) = Now
FIN:
End Sub


Insisto en lo indicado en mi respuesta anterior de este mismo hilo, puedes
dar el formato que quieras al rango B2:B1000.

"Juan Francisco Delgado Gardez" escribió en el
mensaje de noticias news:

Saludos.

AH CHVR por que yo tambien quiero algo parecido, ingreso un dato en una
celda y en la adjunta que aparezca la hora que fue ingresado el dato... y
si es posible bloquear la celda que contiene la hora.

Atte


Juan Francisco Delgado Gardez
Producción - Confección Plano
MODIPSA
"wontolla" escribió en el mensaje de noticias
news:
On 17 sep, 13:20, "AnSanVal" wrote:

Con los botones que incorpora el teclado (teclas): Control + Mayúsculas +
:

Con código VBA: Cells(fila,columna).Value = Time

Donde fila y columna son los número de fila y de columna en que quieres
la hora.

Saludos: Antonio.
***************************

Gracias Antonio:

"Con los botones que incorpora el teclado (teclas): Control +
Mayúsculas + :"

¿Sabes como se puede poner eso en codigo, yo ya lo intente y no lo he
logrado?

"Con código VBA: Cells(fila,columna).Value = Time"

No sirve, porque a tu comando TIME, le falta incluirle el
(hour,minute,second) que se deben agregar a mano

¿Alguna otra sugerencia?, como les comente ya he probado varias cosas
pero no he logrado la solucion.

Saludos cordiales





__________ Información de ESET NOD32 Antivirus, versión de la base de
firmas de virus 4398 (20090905) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com




__________ Información de ESET NOD32 Antivirus, versión de la base de
firmas de virus 4398 (20090905) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com