Başka sayfada yedek tutma(Log Tutma)

[S.Yiğit]

Merhabalar,

Korhan Ayhan Hocamızın çalışmasını kullanıyorum fakat çalışmamda aralara satır ekleyince geriye dönük kontrol yapamıyorum. Bu sebepten ekteki gibi bir çalışmaya ihtiyacım var. Değişiklik yapıldıkça aynı formatta başka sayfada yedekleyecek ve Tarih Saat Kullanıcı Adres Eski Değer Yeni Değer gibi istediğim bilgileride getirecek. Lütfen eki inceleyiniz.

Mevcut kullandığım kod aşağıdaki gibidir.

Dim Eski_Değer

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Satır = WorksheetFunction.CountA(Sheets("YEDEK").Range("A:A")) + 1
    Sheets("YEDEK").Cells(Satır, 1) = Satır - 1
    Sheets("YEDEK").Cells(Satır, 2) = Date
    Sheets("YEDEK").Cells(Satır, 3) = Time
    Sheets("YEDEK").Cells(Satır, 4) = Application.UserName
    Sheets("YEDEK").Cells(Satır, 5) = ActiveSheet.Name & "!" & Target.Address(1, 1)
    Sheets("YEDEK").Cells(Satır, 6) = IIf(Eski_Değer = "", "Boş Hücre", Eski_Değer)
    IIf(Target = "", "Değer Silindi !", Target).Copy Sheets("YEDEK").Cells(Satır, 7)
    Sheets("YEDEK").Cells.EntireColumn.AutoFit
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski_Değer = Target
End Sub