Ajd ukratko ;-)
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
je funkcija dogadjaja promene vrednosti u celijama radnog lista i izvrsava se kad god promenis sadrzaj neke od celija na datom listu
Code:
If Not Intersect(Target, Range("$A$1:$A$10")) Is Nothing Then
Ovaj uslov sluzi da proverimo da li postoji presek celije u kojoj si izvrsio promenu i nekog skupa,
kako bismo svoju dalju obradu fokusirali na samo neke celije radnog lista tj. ovde A1:A10
Code:
Target.Offset(0, 1).FormulaR1C1 = Now()
Trenutni datum i vreme (funkcija NOW) se upisuje u celiju koja je 0 redova nadole i 1 kolonu desno od menjane celije,
sto ce reci u prvu desno od celije u koju si nesto upisao a sve pod uslovom da je to neka celija iz skupa A1:A10
Pozdrav