Sütundaki Değişiklikleri Kaydetme,

[Utekiner]

Merhaba,

Bir çalışma kitabında Sheet1 sayfasında A ile M sütunları arasında verilerim bulunuyor. Ben sadece M sütununda herhangi bir satırda işlem yapıldığında Sheet2 sayfasına İşlemlerin Log 'unu tutmak istiyorum.

*Kimin işlem yaptığını,
*Tarih ve Saatini,
*Önceki hali,


Konu hakkında destek olabilir misiniz.

 

[gicimi]

Merhaba,
Dosyanıza yeni bir "Log" adında sayfa oluşturunuz. Sayfanızda yapılan değişiklikleri buradan takip edebilir siniz.

Public s As String

Private Sub Worksheet_Change(ByVal Target As Range)
Dim evn As Long, Sayfa As String

Sayfa =ActiveSheet.Name & " "
'Log sayfasındaki en son dolu hücrenin altında boş satır numarası
evn = Worksheets("Log").Range("A65530").End(3).Row + 1

'Tarih/saat
Worksheets("Log").Range("A" & evn) = Now
'Kullanıcı
Worksheets("Log").Range("B" & evn) = Application.UserName
'Hedef hücre adresi
Worksheets("Log").Range("C" & evn) = Sayfa & Target.Address(0, 0)
'Hedef hücreye girilen yeni değer
Worksheets("Log").Range("D" & evn) = Target.Value
'Hedef hücrenin eski değeri
Worksheets("Log").Range("E" & evn) = s
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
s = Target.Cells
End Sub

 

[Utekiner]

Sadece "M" sütununda yapılan işlemleri Log sayfasında tutmasını ve log sayfasının üst satırlarına başlıkların otomatik yazması, için güncelleyebilir misiniz.

*Tarih/Saat - A1
*Kullanıcı - B1
*Hedef Hücre Adı C1
*Hücreye Girilen Eski Değer D1
*Hücreye Girilen Yeni Değer E1

 

[gicimi]

Log Sayfasının başlıklarını kendiniz. Manuel olarak yazabilir siniz.

If Target.Column = 13 And Target.Row > 1 Then
End If