Makro Uygunluğu

Makrolar ve Basic programlama dili özel bölümü
Cevapla
xenuta
Mesajlar: 1
Kayıt: 26 Mar 2020, 11:04
İşletim Sisteminiz: Windows
LibreOffice Sürümü: 6.4.2

Makro Uygunluğu

Mesaj gönderen xenuta »

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
Cevapla