sil butonu

[mehteroglu1]

saygılarımla ben makroyla sil butonu hazırladım belirli hücreleri siliyor ama hepsini seçiyor fakat silme işlemi yapmıyor yardımlarınızı bekliyorum saygılar

Sub sil_yeni()
baslik = "MEHMET TEYFİK MEHTEROĞLU UYARI!.."
b = MsgBox("BÜTÜN VERİLERİNİZİN HEPSİ SİLİNECEKTİR. EMİNSENİZ TAMAM DÜĞMESİNE BASINIZ. EMİN DEĞİLSENİZ İPTAL TUŞUNA BASINIZ...", vbOKCancel + vbExclamation, baslik)
If b = vbOK Then
Range("c10:c34,e10: D34,d39,d10").Select
Range("c54:c77,e54: D77,d82").Select
Range("c97:c120,e97: D120,d125").Select
Range("c140:c163,e140: D163,d168").Select
Range("c183:c206,e183: D206,d211").Select
Range("c226:c249,e226: D249,d254").Select
Range("c269:c292,e269: D292,d297").Select
Range("c312:c335,e312: D335,d340").Select
Selection.ClearContents
Else
End If
Range("c10").Select
End Sub

 

[mehmett]

Dosyanızı veya bir örneğini ekleyebilir misiniz?

 

[Seyit Tiken]

Bu örnek kodu kendinize adapte ediniz.

Sub Düğme1_Tıklat()
[A1:A20,C5:C10,B2,G1].ClearContents
End Sub

 

[Levent Menteşoğlu]

Öncelikle "ClearContents" satırını silin ve "select" yazan yerlerede "ClearContents" yazın.