Bir makronun çalışmasını yönetme

[BARGENX]

Butona basıldığında seçili hücrelerdeki verileri silen bir makrom var. Verilerin yanlışlıkla silinmesini önlemek için butona tıkladığımda emin misiniz? mesaj kutusunun çıkmasını istiyorum. Evet dersem işleme devam hayır dersem işlemi iptal etmesi gerekiyor.
Excellde çok iyi değilim. Anlatan arkadaş kodla birlikte nasıl yapılacağını da anlatırsa çok minnettar olurum.
Yardım eden herkese peşinen çok teşekkürler.

 

[yanginci34]

Kodunuzun en başına aşağıdakini ilave edip denermisiniz.
If MsgBox("Silmek İstediğinizden Eminmisiniz.!!", vbYesNo + vbQuestion, "DİKKAT") = vbYes Then
Burası sizin kodunuzun içeriği
End If

 

[BARGENX]

Anladığım kadarıyla şu şekilde yaptım
Kendi makromda "burası sizin kodunuz kısmına makro kodumu (hücreleri silen) ekledim. ama çalışmadı.
Makro kodum şu şekildedir siz ekleyebilir misiniz?


Sub ok_sill()
'
' ok_sill Makro
'

'
Sheets("gülen yüz").Select
Range("E2:AH25").Select
Selection.ClearContents
Sheets("Sayfa1").Select
End Sub

 

[yanginci34]

Sub ok_sill()
If MsgBox("Silmek İstediğinizden Eminmisiniz.!!", vbYesNo + vbQuestion, "DİKKAT") = vbYes Then
Sheets("gülen yüz").Select
Range("E2:AH25").Select
Selection.ClearContents
Sheets("Sayfa1").Select
end if
End Sub