Merhabalar,
Yapılan işlemlerle ilgili log tutmak istiyorum kodu uyarlama konusunda yardımcı olabilir misiniz ?
Teşekkürler.
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