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

SnakErdem

Altın Üye
Katılım
13 Aralık 2022
Mesajlar
45
Excel Vers. ve Dili
2016 2019 türkçe ingilizce
Altın Üyelik Bitiş Tarihi
27-12-2024
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

Kod:
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Deneyiniz.
Kod:
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

Altın Üye
Katılım
13 Aralık 2022
Mesajlar
45
Excel Vers. ve Dili
2016 2019 türkçe ingilizce
Altın Üyelik Bitiş Tarihi
27-12-2024
Çok teşekkür ederim Ömer Bey
 
Üst