Excel değişiklik yapılan hücrenin yan hücresine değişiklik tarihini ve değişiklikten önceki halini yazdırma

[SnakErdem]

Başlıkta yazdığım gibi excelde bir hücrede değişiklik yaptığımda yan hücresine veya aynı sırada bulunan bir hücreye değişiklik tarihini ve değişiklikten önceki halini yazmasını istiyorum.

Kullandığım kod sadece tarihi yazıyor

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then Exit Sub
Application.EnableEvents = False
Target.Offset(0, 30) = Now
Application.EnableEvents = True
End Sub

 

[Ömer]

Merhaba,

Deneyiniz.

Public d

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    d = Target
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    With Target
        If .Count > 1 Then Exit Sub
        If .Value = "" Then .Offset(, 1) = "": Exit Sub
        .Offset(, 1) = Date & "-" & d
    End With
End Sub

 

[SnakErdem]

Çok teşekkür ederim Ömer Bey