butonla sayfa 2 deki bilgileri silmek

[ünal karadavut]

Sayfa1 de bir buton yapıp tıklayınca, Sayfa2 deki B6 dan E125 e kadar olan bilgilerin silinmesi için nasıl bir makro yazmak lazım.
Yardımcı olursanız çok sevinirim.

 

[udentr2002]

Sub sil()
Set s1 = Sheets("sayfa2")
s1.[b6:e125].ClearContents
End Sub

şeklinde deneyiniz

 

[kulomer46]

Range("B6:E125").ClearContents

 

[ünal karadavut]

udentr2002 rumuzlu kardeşim!
Allah Razı Olsun.
Tam istediğim gibi.
Ellerine sağlık.