Merhabalar
Elimde aşağıdaki gibi bir kod düzeneği mevcuttur. Excel dosyamda birden fazla sheet var ve Log adında bir sheet mevcut. diğer sheetlerde herhangi bir hücrede bir değişiklik yaptığım zaman log sayfasında aşağıdaki veriler işleniyor.
Sorum şu: E sütununa gelmesi gereken değişiklik yapmadan önceki eski veri gelmiyor. bunun gelmesini istiyorum. Bilgi ve yardımlarınızı rica ederim
A sütununda değişiklik tarihi,
B sütununda değişiklik saati
C sütununda değişiklik yaptığım hücrenin hangi sheette olduğuna dair o sheetin adı yansımakta
D sütununda değişiklik yapılmış hücrenin adresi
E sütununda aslında değişiklik yapılmış hücredeki eski değerin gelmesi gerekiyor. ama bu eski değer yansımıyor.
F sütununa değişiklik yaptığım hücrenin yeni değeri neyse o geliyor. yani ne yazmışsan o hücreye o veriyi getiriyor
G sütununda ise PC yi açan kişinin username bilgisi geliyor
Bu kod Log sayfasına ait kod bölümüne yazılan kod
bu kod ise ThisWorkbook kod alanına yazılan kod
Elimde aşağıdaki gibi bir kod düzeneği mevcuttur. Excel dosyamda birden fazla sheet var ve Log adında bir sheet mevcut. diğer sheetlerde herhangi bir hücrede bir değişiklik yaptığım zaman log sayfasında aşağıdaki veriler işleniyor.
Sorum şu: E sütununa gelmesi gereken değişiklik yapmadan önceki eski veri gelmiyor. bunun gelmesini istiyorum. Bilgi ve yardımlarınızı rica ederim
A sütununda değişiklik tarihi,
B sütununda değişiklik saati
C sütununda değişiklik yaptığım hücrenin hangi sheette olduğuna dair o sheetin adı yansımakta
D sütununda değişiklik yapılmış hücrenin adresi
E sütununda aslında değişiklik yapılmış hücredeki eski değerin gelmesi gerekiyor. ama bu eski değer yansımıyor.
F sütununa değişiklik yaptığım hücrenin yeni değeri neyse o geliyor. yani ne yazmışsan o hücreye o veriyi getiriyor
G sütununda ise PC yi açan kişinin username bilgisi geliyor
Bu kod Log sayfasına ait kod bölümüne yazılan kod
Kod:
Public eski_deger$
Kod:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Text <> eski_deger And Sh.Name <> "log" Then
With ThisWorkbook.Sheets("log")
satir = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(satir, 1) = Format(Now, "dd.mm.yyyy")
.Cells(satir, 2) = Format(Now, "hh:mm")
.Cells(satir, 3) = Sh.Name
.Hyperlinks.Add .Cells(satir, 3), "", "=" & .Cells(satir, 3) & "!" & Target.Address(0, 0)
.Cells(satir, 4) = Target.Address(0, 0)
.Hyperlinks.Add .Cells(satir, 4), "", "=" & .Cells(satir, 3) & "!" & .Cells(satir, 4)
.Cells(satir, 5) = eski_deger
.Cells(satir, 6) = Target.Text
.Cells(satir, 7) = Environ("UserName")
End With
End If
End Sub