Yedek Tutma

[S.Yiğit]

Merhaba,

Korhan hocamızın ekteki çalışmasını kullanıyorum. Tablomda aralara satır ekleyince aldığım yedeğin hiç bir değeri kalmıyor.

Yedek alırken Sira No, Tarih, Saat, Kullanici, Adres, Eski Değer Ve Yeni Değer Gibi Değerleri Getirirken Proje No Ve Proje Adı'nıda Getirebilir mi Acaba. Lütfen eki inceleyiniz.

 

[S.Yiğit]

Merhaba,

Yukarıdaki konuda yardımcı olabilir misiniz?

 

[S.Yiğit]

Merhaba,

Yukarıdaki konuda yardımcı olabilecek birisi var mı?

 

[Korhan Ayhan]

Selamlar,

Yedekleme işlemi yapan kodu aşağıdaki şekilde değiştiriniz. Satır ekleme olayının bu tarz kodlarda sağlıklı kontrol edilebileceğini düşünmüyorum. Bu sebeple satır ekleme işlemini kullanmamanız tavsiye ederim.

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(Satır, 8) = Cells(Target.Row, "A")
    Sheets("YEDEK").Cells(Satır, 9) = Cells(Target.Row, "B")
    Sheets("YEDEK").Cells.EntireColumn.AutoFit
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski_Değer = Target
End Sub

 

[S.Yiğit]

Korhan bey merhaba,

Öncelikle yardımınız için teşekkür ederim. Proje no ve proje adı'nın gelmesi çok güzel olmuş fakat neyi değiştirirsem eski değerde Boş Hücre yazıyor. Geriye dönüp baktığımızda eski değeri yazması gerekiyor ki ne değişiklikler yaptığımızı görelim. Örnek dosyam ektedir. Tekrar teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Siz eski kodlarınızın tamamanı silip yeni verdiğim kodu uygulamışsınız. Sanırım yanlış ifade kullandım. Sadece Worksheet_Change kodunu değiştirmeniz gerekiyordu.

Üstteki mesajımdaki kodu güncelledim. Denermisiniz.

 

[S.Yiğit]

Hocam Merhaba,

Kod şuan ki denemelerimde süper çalışıyor. Bilginize sağlık. Teşekkürler.