hücreleri seçme ve silme

[ustaoyuncu]

Private Sub CommandButton16_Click()

If MsgBox("20 CM TABLO SİLİNSİN Mİ?", vbYesNo) = vbNo Then Exit Sub
Range("E7:V16,E18:V27,E29:V39").Select
Selection.ClearContents





If MsgBox("50 CM TABLO SİLİNSİN Mİ?", vbYesNo) = vbNo Then Exit Sub
Range("E7:V16,E18:V27,E29:V39").Select
Selection.ClearContents




If MsgBox("100 CM TABLO SİLİNSİN Mİ?", vbYesNo) = vbNo Then Exit Sub

Range("E7:V16,E18:V27,E29:V39").Select
Selection.ClearContents



If MsgBox("150 CM TABLO SİLİNSİN Mİ?", vbYesNo) = vbNo Then Exit Sub

Range("E7:V16,E18:V27,E29:V39").Select
Selection.ClearContents




If MsgBox("200 CM TABLO SİLİNSİN Mİ?", vbYesNo) = vbNo Then Exit Sub
Range("E7:V16,E18:V27,E29:V39").Select
Selection.ClearContents


End Sub

Selection.ClearContents kısmında hata veriyor. ama bazen 1. yapıyor 2.de , bazen 3. hata veriyor. yardım pls

 

[Orion1]

Merhaba.
Sayfa korumalı olduğu için hata veriyordur.
Sayfa korumasını kaldırıp öyle deneyiniz.

 

[Seyit Tiken]

Hata "Select ve Selection" komutlarından da olabilir. Bu komutları gereksiz yerde kullanmayınız. Örnek olarak : Range("E7:V16,E18:V27,E29:V39").ClearContents şeklinde kullanın.

 

[ustaoyuncu]

İlgİn İÇİn SaĞol