Farklı sayfalardaki verileri silme

[1Al2Ver]

Merhabalar,
Ana Sayfa isimli (Sayfa1) sayfaya bir düğme atayarak;
1) Gelir (sayfa2)isimli sayfada, A2:E100 arasını
2) Gider(sayfa3)isimli sayfada, B2:F100 arasını
3) Kalan(sayfa4)isimli sayfada, C2:G100 arasını "Sayfalardaki Veriler Silinecektir, Eminmisiniz?" mesajını alarak silmek istiyorum, gerekli kod nasıldır?
Teşekkür ederim.

 

[Orion1]

Aşağıdaki kodları kullanınız.

Sub sil()
If MsgBox("Silmek istiyormusunuz?", vbYesNo + vbQuestion, "DİKKAT") = vbNo Then Exit Sub
Sheets("Sayfa2").Range("A2:E100").Clear
Sheets("Sayfa3").Range("B2:F100").Clear
Sheets("Sayfa4").Range("C2:G100").Clear
MsgBox "Silme Yapıldı..!!", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub

 

[1Al2Ver]

Aşağıdaki kodları kullanınız.

Sub sil()
If MsgBox("Silmek istiyormusunuz?", vbYesNo + vbQuestion, "DİKKAT") = vbNo Then Exit Sub
Sheets("Sayfa2").Range("A2:E100").Clear
Sheets("Sayfa3").Range("B2:F100").Clear
Sheets("Sayfa4").Range("C2:G100").Clear
MsgBox "Silme Yapıldı..!!", vbOKOnly + vbInformation, "SİLİNDİ"
End Sub

Sayın Evren Gizlen, teşekkür ederim, saygılarımla.

 

[Orion1]

Sayın Evren Gizlen, teşekkür ederim, saygılarımla.

Rica ederim.
iyi çalışmalar.