Toplu sayfa seçerek içinde istenilen hücre aralığını silmek

[hakpin]

Kıymetli Arkadaşlar merhaba,
Ekteki dosya üzerindede açıkladığım gibi yalnızca eczane sayfalarını seçip "F11:BC35" hücrelerini sil düğmesiyle sildirmek istiyorum.Buna yeni ekleyeceğim eczane sayfaları da dahil olmalı. Yardımcı olursanız sevinirim. Herkese çok teşekkür ederim.

 

[Seyit Tiken]

Kodu kendinize uyarlayınız.

Sub Düğme1_Tıklat()
For s = 2 To Sheets.Count
Sheets(s).[a1:k20] = vbNullString
Next
MsgBox "Sayfalar Temizlendi", vbInformation
End Sub

 

[hakpin]

Kıymetli üstad;Seyit Tiken ilginizden dolayı teşekkür ederim.Yazdığınız kodu uyarladım. Çalışıyor.İşlerinizin kolay gelsin.