• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Log tutma. sayfa silindi .Satır silindi . sutun silindi .gözükmüyor gözüke bilirmi. ?

T

tokerx22

Katılım
29 Aralık 2005
Mesajlar
159
Excel Vers. ve Dili
Microsoft Office Excel 2003 TR
Kod: 
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)
    Sheets("YEDEK").Cells(Satır, 7) = IIf(Target = "", "Değer Silindi !", Target)
    Sheets("YEDEK").Cells.EntireColumn.AutoFit
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski_Değer = Target
End Sub [code/]

bu kodu siteden aldım ve uyguladım .. .eklemem gereken kodu verirsenz sevinirim .. iyi günler..
 
Son düzenleme:
Sayfanın kod bölümüne

Dim Eski_Değer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Kontrol = False Then
Satır = WorksheetFunction.CountA(Sheets("YEDEK").Range("A:A")) + 1
If Target.Count > 1 Then Exit Sub
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)
If Target = "" Then
Sheets("YEDEK").Cells(Satır, 7) = "Değer Silindi !"
ElseIf Target.HasFormula = True Then
Sheets("YEDEK").Cells(Satır, 7) = "'" & Target.Formula
Else
Sheets("YEDEK").Cells(Satır, 7) = Target
End If
Sheets("YEDEK").Cells.EntireColumn.AutoFit
End If
Kontrol = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Then Exit Sub
If Target.HasFormula = True Then
Eski_Değer = "'" & Target.Formula
Else
Eski_Değer = Target
End If
Kontrol = False
End Sub

Modüle;

Public Kontrol As Boolean
Sub GİZLE()
Sheets("YEDEK").Visible = 2
End Sub
Sub GÖSTER()
Sheets("YEDEK").Visible = -1
End Sub
Sub GERİ_AL()
Kontrol = True

If Selection.Count > 1 Then
MsgBox "Çoklu hücre seçimlerinde lütfen CTRL+Z tuşlarını kullanınız.!", vbCritical, "Dikkat !"
Exit Sub
End If

Satır = Sheets("YEDEK").Range("A65536").End(3).Row

If Satır = 1 Then
MsgBox "Geri alınacak işlem bulunamamıştır !", vbExclamation, "Dikkat !"
Kontrol = False
Exit Sub
End If

BUL = InStr(1, Sheets("YEDEK").Cells(Satır, "E"), "!")
SAYFA_ADI = Mid(Sheets("YEDEK").Cells(Satır, "E"), 1, BUL - 1)
HÜCRE_ADRESİ = Mid(Sheets("YEDEK").Cells(Satır, "E"), BUL + 1, 10)
If Sheets("YEDEK").Cells(Satır, "F") = "Boş Hücre" Then
Sheets(SAYFA_ADI).Range(HÜCRE_ADRESİ) = Empty
ElseIf InStr(1, Sheets("YEDEK").Cells(Satır, "F"), "=") > 0 Then
Sheets(SAYFA_ADI).Range(HÜCRE_ADRESİ).Formula = Sheets("YEDEK").Cells(Satır, "F").Formula
Else
Sheets(SAYFA_ADI).Range(HÜCRE_ADRESİ) = Sheets("YEDEK").Cells(Satır, "F")
End If
Sheets("YEDEK").Rows(Satır).Delete
End Sub

not: kodlar evvelce bu siteden temin edilmiştir.
CTRL+SHİFT+Z GERİ ALMA ÖZELLİĞİ MEVCUTTUR
 
Merhaba,

Arkadaşlar forumda yayınladığınız kodları lütfen
Kod: 
 tagı arasında ekleyiniz. Bu şekilde düz yazı olarak insanın gözlerini yoruyor ve hoş görünmüyor.
 
Mesaj yazdığınız penceredeki # sembolü ile bu tagı ekleyebilirsiniz.
 
Örnek;
 
[CODE]
Bu bir denemedir...
 
Sayfanın kod bölümüne
Kod: 
Dim Eski_Değer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Kontrol = False Then
Satır = WorksheetFunction.CountA(Sheets("YEDEK").Range("A: A")) + 1
If Target.Count > 1 Then Exit Sub
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)
If Target = "" Then
Sheets("YEDEK").Cells(Satır, 7) = "Değer Silindi !"
ElseIf Target.HasFormula = True Then
Sheets("YEDEK").Cells(Satır, 7) = "'" & Target.Formula
Else
Sheets("YEDEK").Cells(Satır, 7) = Target
End If
Sheets("YEDEK").Cells.EntireColumn.AutoFit
End If
Kontrol = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Then Exit Sub
If Target.HasFormula = True Then
Eski_Değer = "'" & Target.Formula
Else
Eski_Değer = Target
End If
Kontrol = False
End Sub

Modüle;
Kod: 
Public Kontrol As Boolean
Sub GİZLE()
Sheets("YEDEK").Visible = 2
End Sub
Sub GÖSTER()
Sheets("YEDEK").Visible = -1
End Sub
Sub GERİ_AL()
Kontrol = True
 
If Selection.Count > 1 Then
MsgBox "Çoklu hücre seçimlerinde lütfen CTRL+Z tuşlarını kullanınız.!", vbCritical, "Dikkat !"
Exit Sub
End If
 
Satır = Sheets("YEDEK").Range("A65536").End(3).Row
 
If Satır = 1 Then
MsgBox "Geri alınacak işlem bulunamamıştır !", vbExclamation, "Dikkat !"
Kontrol = False
Exit Sub
End If
 
BUL = InStr(1, Sheets("YEDEK").Cells(Satır, "E"), "!")
SAYFA_ADI = Mid(Sheets("YEDEK").Cells(Satır, "E"), 1, BUL - 1)
HÜCRE_ADRESİ = Mid(Sheets("YEDEK").Cells(Satır, "E"), BUL + 1, 10)
If Sheets("YEDEK").Cells(Satır, "F") = "Boş Hücre" Then
Sheets(SAYFA_ADI).Range(HÜCRE_ADRESİ) = Empty
ElseIf InStr(1, Sheets("YEDEK").Cells(Satır, "F"), "=") > 0 Then
Sheets(SAYFA_ADI).Range(HÜCRE_ADRESİ).Formula = Sheets("YEDEK").Cells(Satır, "F").Formula
Else
Sheets(SAYFA_ADI).Range(HÜCRE_ADRESİ) = Sheets("YEDEK").Cells(Satır, "F")
End If
Sheets("YEDEK").Rows(Satır).Delete
End Sub

not: kodlar evvelce bu siteden temin edilmiştir.
CTRL+SHİFT+Z GERİ ALMA ÖZELLİĞİ MEVCUTTUR

Sn. Korhan hocam ben şahsen bu özelliği bilmiyordum, denemek için tekrar yaptım, evet gerçekten güzel. Sayenizde bu özelliği öğrenmiş oldum. Teşekkürler.
 
Kod: 
DENEME
Sy:tahsinanarat ßu kodlar forumda dediginiz gibi mevcut ... çalışma sayfasındaki her hangi ßir sayfayı sildigimiz zaman bunu logda göztermiyor. o yüzden ayrı bir konu açmıtım ..CÜMLETEN KANDİLİNİZ MÜBAREK OLSUN..
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst