Toplu Sayfa Silme,

[gicimi]

Merhaba,

Excel Sayfasının içerisinde birden fazla Sayfalar yer almaktadır.

Sayfa1-Sayfa2-Sayfa3.... her ayın sonunda raporlama yapılmaktadır. Tek tuş ile tüm sayfalarının içerisini silmek istiyorum.

Yardımcı olur musunuz. Teşekkürler.

 

[Baggwell]

Merhaba,

Shift ile toplu seçim yapmayı denediniz mi

 

[gicimi]

Shift ile denedim sayfa çok olmasından dolayı buton gibi bir seçenek çok iyi olur.

 

[vardar07]

Deneyiniz.

Sub temizle()
    Dim sayfa As Worksheet
    For Each sayfa In ThisWorkbook.Worksheets
     If sayfa.Name <> "Sayfa1" Then
        sayfa.UsedRange.ClearContents
        End If
    Next sayfa
End Sub

 

[gicimi]

Teşekkürler.