Ovo je kod koji vec imas u onom Excel dokumentu koji sam ti okacio.
U mom primeru koji sam ti poslao imena upisujes u kolonu A a datum i vreme ti se upisuje u kolonu C. Ako hoces da upisujes u kolonu E imena onda u drugom i cetvrtom redu koda umesto 1 stavi 5 (5 je redni broj kolone E) i u trecem i petom redu umesto 2 stavi 1 (da ti upisuje za jedno polje desno od polja gde upisujes ime).
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Not IsNumeric(Target) Then
Range(Target.Address).Offset(0, 2) = Now
ElseIf Target.Column = 1 And Target = "" Then
Range(Target.Address).Offset(0, 2) = ""
End If
End Sub
Izmena: neptuncokg ti je vec objasnio, bio brzi od mene :)
=FOX028=zile028@gmail.com=