Sayfalardaki hücreleri silme

[serqet]

Merhaba arkadaşlar benim şöyle bir isteğim olucak, 1 den 31 e kadar isimlendirilmiş 31 tane sayfam var.. düğmeye bastııgmda 1 nolu sayfadan 31 nolu sayfaya kadar tüm hücreleri silmesini istioyorum..bunu makro kaydetle yaptım ama uzun sürüyor.. birinci sayfayı silip ikinciye geçiyor sonra üç..otuzbire kada sürüyor.. bunun daha hızlı bir yöntemi yokmudur? birde şunu sorucam makro yaptıktan sonra çalışma kitabımdaki bir sayfayı gizlemek istiyorum ama bu seferde ona bağlı makrolar çalışmıyor.. yardımlarınızı bekliyorum arkadaşlar..

 

[hamitcan]

Sub sil()
Dim sht As Worksheet
    For Each sht In Worksheets
        sht.Cells.Clear
    Next
End Sub

 

[serqet]

tesekkurler fakat ben sadece sayfa 1 den sayfa 31 e kadar bu islemi uygulamk istiorum diger sayfalar etkilenmesin

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Not: Sayfa isimlerinizin 1,2,3, ... -31 olması gerekmektedir. Aksi halde kod hatalı sonuç üretecekir.

Option Explicit
 
Sub SAYFALARDAKİ_HÜCRELERİ_SİL()
    Dim X As Byte
 
    If MsgBox("Sayfalardaki eski bilgiler silinecektir. Onaylıyor musunuz?", vbExclamation + vbYesNo, "Dikkat !") = vbYes Then
        
       For X = 1 To 31
           Sheets(CStr(X)).Cells.Delete
       Next
    
       MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    
    Else
    
        MsgBox "İşleminiz iptal edilmiştir.", vbInformation
    End If
End Sub

 

[serqet]

evet teşekkür ederim birde acaba evet hayır sorgusu eklemek mumkunmu?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.