otomatik tarih yazdırma

[zevki.sefali]

Arkadaşlar c8,f8,ı8,l8 hücrelerindeki değerler değiştirilince değiştirilen hücrenin altındaki hücreye tarihi otomatik olarak nasıl yazdırabilirim

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C8, F8, I8]) Is Nothing Then Exit Sub
    Target.Offset(1, 0) = Date
End Sub

 

[zevki.sefali]

teşekkürler necdet bey elinize sağlık