Makroyu istediğim sayfalara uygulama

[taraftar]

Arkadaşlar
yaklaşık 15 sayfadan oluşan bir excel kitabım var ( Bilgi Giriş, Kişiler, Takip, Ocak, Şubat, ...,Aralık) ben bu kitapta "Bilgi Giriş", "Kişiler" ve "Takip" sayfaları hariç aşağıdaki makroyu uygulamak istiyorum. Makrodan da anlaşılacağı gibi bütün sayfalara uygulanıyor. Makro bilgim sıfır olduğu için iki günde bu makroyu zor toparladım ancak belirttiğim koşulda olunca istediğim makro tamamlanacak. Yardımlarınız için şimdiden teşekkürler.

Sub temizle()
For Each ws In Worksheets
ws.Activate
cls = MsgBox("HÜCRELER TEMZLENSİN Mİ?", vbYesNo)
If cls = vbYes And Range("f1") <> "" Then Range("f1").Select
Dim satir As Long
basla:
satir = ActiveCell.Value
If satir >= 65535 Or cls = vbNo Then
MsgBox "TEMİZLEME BAŞARISIZ!!", vbCritical, "UYARI"
Range("f1").Select
Else
Range(Cells(satir, 1), Cells(satir, 5)).ClearContents
End If
Next
End Sub

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub temizle()
    For Each ws In Worksheets
[COLOR="Red"][B]        If ws.Name <> "Bilgi Giriş" And ws.Name <> "Kişiler" And ws.Name <> "Takip" Then
[/B][/COLOR]            ws.Activate
            cls = MsgBox("HÜCRELER TEMZLENSİN Mİ?", vbYesNo)
            If cls = vbYes And Range("f1") <> "" Then Range("f1").Select
            Dim satir As Long
basla:
            satir = ActiveCell.Value
            If satir >= 65535 Or cls = vbNo Then
                MsgBox "TEMİZLEME BAŞARISIZ!!", vbCritical, "UYARI"
                Range("f1").Select
            Else
                Range(Cells(satir, 1), Cells(satir, 5)).ClearContents
            End If
[COLOR="red"][B]        End If
[/B][/COLOR]    Next
End Sub

 

[taraftar]

Çok teşekkür ederim. Bilginizi paylaştığınız için. Artık rahat uyuyabilirim.