İşlemi yapmadan önce sorsun

[serqet]

arkadaslar rahatsız ediyorum kusura bakmayın cepten nete girdim bu nedenle forumda arama yapamadım.benim bir tablom var aynı sayfaya bir buton koydum basınca sayfadaki belli yerleri siliyor ve geri al disable oluyor, bazen yanlıslıkla basıyorum benim istedigim butona basınca bir msgbox gelsin eminmisin desin evet dedigimde islemi yapsın hayır dedigimde bisi yapmasın.yarmdımlarınız icin cok tesekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde kullanabilirsiniz..

Sub Temizle()
Say = WorksheetFunction.CountA(Range("A1:A10"))
    If Say > 0 Then
    Onay = MsgBox("Silmek İstediğinize Emin misiniz?", _
    vbCritical + vbYesNo, "Dikkat !")
        If Onay = vbYes Then
            Range("A1:A10").ClearContents
        End If
    End If
End Sub

.

 

[serqet]

cok tesekkur ederim.