Çoklu sayfa silmek

[Beytur35]

Arkadaşlar Sayın L. Menteşoğlu'nun 2005 yılında yazdığı makroda "Sayfa1" dışındaki bütün çalışma sayfalarını siliyor. Şimdi bu makro ile "Sayfa1", "Sayfa2" ve "Sayfa3" dışındaki, bütün sayfaları silecek hale nasıl getirebilinir.
Not: makroda "kayıt" adını "sayfa1" olarak değiştirdim.


Sub Sayfasil()

For a = Sheets.Count To 1 Step -1
If Mid(Sheets(a).Name, 1, 5) <> "Sayfa1" Then
Application.DisplayAlerts = False
Sheets(a).Delete
End If
Next
Application.DisplayAlerts = False
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

On Error Resume Next
Application.DisplayAlerts = False
For a = Sheets.Count To 4 Step -1
Sheets(a).Delete
Next

 

[Beytur35]

Seyit Bey...

Cevabınız için teşekkür ederim. Ben hata yaptım. Sayfalar ardışık değil. Yani farklı aralıklarda Örneğin "sayfa1", "sayfa9", "sayfa13" gibi.

 

[Beytur35]

Arkadaşlar aşağıdaki makro, bir excel dosyasında, istenilen çalışma sayfaları dışındaki diğer tüm sayfaları siler. Bu makro ile "Kayıt", "Veri", "Sonuc" sayfa dışındaki diğer sayfaları silinir. NotMakro forum içi arama sonucu bulunmuş olup sayfa isimleri tarafımdan değiştirilmiştir)

Sub Sayfasil()
Dim WSh As Worksheet

Application.DisplayAlerts = False

For Each WSh In Worksheets
Select Case WSh.Name
Case "Kayıt", "Veri", "Sonuc"

Case Else
WSh.Delete
End Select
Next

Application.DisplayAlerts = True
End Sub