Por cada cambio en una celda hora autamat. en la celda siguiente

Hola Diego:
Si por "siguiente" entendemos la celda que está a la derecha de la que
introduces el dato,
entonces el siguiente código hace lo que tú quieres.


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


Dos aclaraciones:
1º/ Está puesto para que "trabaje" cuando introduces datos al cambiar celdas
en el rango A2:A100, cambia esto a tus circunstancias.

2º En el código que pongo el registro de la "hora" te saldrá en la columna
B.
Da el formato que quieras a la columna B, (hh:mm:ss), (dd/mm/aa hh:mm), etc.
para que la "visión" sea la que te convenga.

Saludos.-




"Diego H" <Diego escribió en el mensaje de
noticias news:

Por cada dato q ingrese en una celda necesito q en la siguiente me
registre
la hora automáticamente