'________________________________________________________________
If Target.Column = 1 Then
Cells(Target.Row, 2).Value = Now
'Cells(Target.Row, 2) = Format(Now, "hh:mm")
'Cells(Target.Row, 2) = Format(Now, "dd/mm/yyyy hh:mm:ss ")
End If
End Sub
'________________________________________________________________
No hay comentarios.:
Publicar un comentario