Hücre Değişikliğinde Değişiklik Tarihi ve Saati Yazdırma

[baysevimli]

Değerli Üstatlar Merhaba,

Excel dosyamda personel bilgilerini arşivlediğim bir listem var.

İstediğim şu;

Tüm satırlardaki herhangi bir hücremde bir değişiklik yaparsam "A" sutunundaki hücreye değişikliğin yapıldığı tarih ve saati yazsın istiyorum.
Daha anlaşılır olması için örnek vereyim.

örneğin 3. Satırdaki bir hücrede bir değişiklik olsun (yani B3...den AA3' e kadar) bu değişikliğin yapıldığı tarih ve saati A3 hücresine yazsın.

Değerli yardımlarınızı bekliyor olacağım.

Teşekkür ederim emeğinize.

 

[çıtır]

Sayfa kodu olarak ilgili sayfaya kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1:AA1048576]) Is Nothing Then Cells(Target.Row, "A") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub