Ana sayfalar hariç diğer sayfaları sil

[nadirornek]

Aşağıdaki kodun If ile başlayan satıra eklediğim sayfa isimlerinin adlarını girdiğim zaman değim sonu diye hata uyarısı veriyor.Bir alt satıra geçmem için ıf satırının sonuna ne ekleyip alt satıra geçebilirim.If satırı kırmızı renk alıyor.If formülünden başka formül kullanabilirmiyiz. En az 80 sayfa ismi yazmam gerekiyor.
Option Explicit

Sub SAYFALAR_SİL()

Dim Sayfa As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Sayfa In ThisWorkbook.Worksheets
If Sayfa.Name <> "Rapor" And Sayfa.Name <> "Sayfa1" And Sayfa.Name <> "Sayfa2" And Sayfa.Name <> "Sayfa3" And Sayfa.Name <> "Ana Sayfa" And Sayfa.Name <> "Rapor" Then Sayfa.Delete
Next


Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Merhum İdris SERDAR]

.
Bu işinize yarar mı?

Sub syfsil()

    Dim syf As Worksheet
   
    Application.DisplayAlerts = False
   
    For Each syf In Worksheets
        Select Case syf.Name
           
            Case "Sayfa1", "Sayfa2", "Sayfa3", "Ana Sayfa", "Rapor" ' Buraya silinmeyecek sayfaları yazın.
               
            Case Else
                syf.Delete
        End Select
    Next syf

    Application.DisplayAlerts = True
   
End Sub

.

 

[nadirornek]

Teşekkürler bu kod işimi gördü

 

[Korhan Ayhan]

Dosyanızda kaç sayfa var?

 

[nadirornek]

80 sayfam var silinmeyecek sayfa çoğaldığı için koda ekleme yapamadım.

 

[muygun]

Merhaba;
İdris bey sorunu çözmüş ama Bir döngü örneğide benden;

Boş bir modüle;

Sub sayfaları_sil()
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
dönn:
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "ana" Then GoTo pass 'yazılan sayfa pas geçiliyor
If Worksheets(i).Name = "data" Then GoTo pass 'yazılan sayfa pas geçiliyor
Worksheets(i).Delete
GoTo dönn:
pass:
Next i
End Sub

Kodlarını ekleyin. Silinmeyecek sayfa isimlerini kendinize göre düzenleyin.
İyi çalışmalar.

 

[Korhan Ayhan]

Silinecek sayfa isimler belli ise kod daha verimli hale getirilebilir.

 

[nadirornek]

muygun bey,kodunuz için teşekkürler silinmesini istemediğim sayfaları alt alta yazarak siliyor.Her iki kodda işimi gördü.