çalışma sayfasında işlem görümüş makroyu geri alma

[kemal2008]

ARKADAŞLAR ELİMD EBİR ÇALIŞMA SAYFASINA AİT İŞLEM GÖRÜP KAYIT

EDİLMİŞ BİR MAKRO VAR.

BEN BU ÇALIŞMA SAYFASINI ESKİ HALİNE GETİRMEK İSTİYORUM.YANİ

MAKRONUN İŞLEM GÖRMEMİŞ HALİNİ

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 08.01.2003 by ozturil1
'

With Application
.Calculation = xlManual
.MaxChange = 0.001
End With


Sheets("TPK 0230").Select
F = 20

10 If Trim((Sheets("TPK 0230").Cells(F, 5))) = "" Then

GoTo 20

End If

If (Sheets("TPK 0230").Cells(F, 5) = 0) Then

Range(Cells(F, 1), Cells(F, 256)).Select
Selection.Delete Shift:=xlUp

GoTo 10

End If

F = F + 1

GoTo 10


20 Sheets("TKF").Select
M = 8

30 If Trim((Sheets("TKF").Cells(M, 6))) = "" Then

GoTo 40

End If

If (Sheets("TKF").Cells(M, 6) = 0) Then

Range(Cells(M, 1), Cells(M, 256)).Select
Selection.Delete Shift:=xlUp

GoTo 30

End If

M = M + 1

GoTo 30

40 With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With

Sheets("TPK 0230").Select
ActiveWindow.View = xlPageBreakPreview


Sheets("TKF").Select
ActiveWindow.View = xlPageBreakPreview

Sheets("TPK 0230").Select
Range("B20").Select

End Sub

 

[Ömer]

Merhaba,

Çalılan kodları geri alamazsınız. Bu istediğiniz dolaylı yoldan yapılabilir.

Kodların başına, çalıştığınız sayfayı farklı bir sayfada kopyalayarak yedek alırsınız daha sonra bu kodları çalıştırırsınız. Gerektiğinde de kopyaladığınız verileri geri çağırırsınız.

Sub Deneme()

Cells.Copy Sheets("Sayfa3").[A1]

kodlarınız.

End Sub

gibi.

.