otomatik tarih

[Way-Out]

Merhaba,

a1 hücresine veri girişi yapılınca b1 hücresine veri giriş tarihi ve saati otomatik olarak yazılabilir mi ?

Şöle bir durum olacak ama mesela ben dosyaya 12.10.2016 tarihinde veri girişi yapacam kapatacağım dosyayı , 16.10.2016 tarihinde dosyayı yeniden açacağım ve veri girişini yeniden yapacağım bu sefer a2 hücresine veri girişini yaptım bu sefer tarih b2 hücresine yazılacak ama önceki veri girişi yaptığım tarih yani b1 hücresindeki tarih yeni tarihi almaması gerek hangi tarihte veri girişi yapılmışsa o tarihte kalması gerekmektedir.

 

[Way-Out]

Nasıl yapılacağını buldum galiba.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:A65536]) Is Nothing Then
Cells(Target.Row, "B") = Format(Now, "dd/mm/yyyy - hh:mm")
End If
End Sub