hücredeki verileri silmeden önce soru sorması

[netvolxxx]

merhaba b12 de j41 kadar olan verileri buton ile silme işlemi var

burda şöyle bir şey yapmak istiyorum buton bastığımda ekranda verileriniz silincektir evet hayır diye mesaj çıkması
evet dersem işlemi yapıcak hayır bastığımda bi işlem yapmıcak bunu aşağıdaki kod nasıl ekleyebilirim acaba...

Range("B12:J41").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-24
Range("A1:K1").Select
End Sub

 

[DoğanD]

Butonunuz kodlarının başına If MsgBox("Verileriniz Silinecektir. Emin misiniz?", vbYesNo, "") = vbNo Then Exit Sub ekleyip dener misiniz?

 

[netvolxxx]

teşekür ederim evet ekledim oldu....