Hücre Değişikliğinin Log Tutulması Hk.

[Erdogan3434]

Merhabalar,

Ben tablomda bulunan A,B ve C sütunlarındaki herhangi bir hücrede değişiklik yapılması durumunda satırın sonunda o satıra ait son değişiklik tarihi ve saatini içeren bir log bulunmasını istiyorum.

İSİM	İL	KULLANIM	DEĞİŞTİRİLME TARİHİ
Ahmet	İstanbul	5745​	13.09.2021 14:40​
Mehmet	Ankara	3649​	11.09.2021 16:10​
Ekrem	Bartın	8565​	25.12.2021 21:32​

Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

Sonra A-B-C sütunlarındaki hücrelere veri girişi yaparak deneme yapınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
    
    On Error GoTo 10
    
    Application.EnableEvents = False
    
    For Each Veri In Intersect(Target, Range("A2:C" & Rows.Count))
        If WorksheetFunction.CountA(Range("A" & Veri.Row).Resize(1, 3)) = 0 Then
            Cells(Veri.Row, "D").ClearContents
        Else
            Cells(Veri.Row, "D") = CDate(Now)
        End If
    Next

10  Application.EnableEvents = True
End Sub

 

[Erdogan3434]

Teşekkür ederim.