Poner Fecha y Hora en una celda

Prueba con este código que alguno de los maestros (la verdad no recuerdo
quien, una disculpa) posteó hace algun tiempo

Pégalo en el código de la hoja, está hecho para el rango de A2 a A30,
adecúalo a tus necesidades


'****************************************************
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lngCel As Long
If Not (Intersect(Target, Range("A2:A30")) Is Nothing) Then
Target.Offset(0, 1).Value = Date + Time
Target.Offset(0, 2).Value = Application.UserName
End If
End Sub
'*****************************************************


"Juan" escribió en el mensaje
news:

Hola Grupo:
Deseo saber si me pueden ayudar en como indicar en una celda la fecha y la
hora del sistema al haber dado enter en otra celda que esta a su lado

Ejemplo:
Nro - Fecha y Hora
3 04/10/2005 - 13:43

Espero me puedan guiar

Juan Lorca