tek düğme ile bütün sayfalardaki hücreleri silme

[Muhammet Okumuş]

Arkadaşlar marhaba
Excel dosyamda sayfa1'den sayfa20'ye kadar çalışma sayfası var.Bir düğme yardımı ile sayfalardaki verilerin [aa2:ab50] aralığını silmem gerekiyor.
sub temizle()
range("aa2:ab50")=""
end sub

bu kod sadece tek sayfa için yapıyor.20 sayfanın hepsine yapmak zaman alıyor.tek düğme ile çözüm var mı?

 

[rahmi06]

Sub Temizle()
    Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5", "Sayfa6", "Sayfa7", _
        "Sayfa8", "Sayfa9", "Sayfa10", "Sayfa11", "Sayfa12", "Sayfa13", "Sayfa14", "Sayfa15", _
        "Sayfa16", "Sayfa17", "Sayfa18", "Sayfa19", "Sayfa20")).Select
    Sheets("Sayfa1").Activate
    Range("AA2:AB50").Select
    Selection.ClearContents
    Range("A1").Select
    Sheets("Sayfa1").Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Kod tüm sayfalardaki belirtilen aralığı temizler.

Eğer çalışmanızda silinmesini istemediğiniz bir sayfa varsa koda IF koşulu eklenmelidir.

Option Explicit
 
Sub TÜM_SAYFALARDA_BELLİ_HÜCRELERİ_TEMİZLE()
    Dim SAYFA As Worksheet
    
    For Each SAYFA In ThisWorkbook.Worksheets
        SAYFA.Range("AA2:AB50").ClearContents
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Muhammet Okumuş]

Sn rahmi06 ve Korhan Ayhan ikinize de çok teşekkür ederim.Korhan Bey'in kodlarında sayfa adının değişmesi temizlemeye engel olmaması çok güzel.İyi çalışmalar.