makro ile silme işlemi yaparken mesaj hakkında

[akgüvercin]

makro ile silme işlemi yapmaktayım

kod ;
Private Sub CommandButton6_Click()
Dim bak As Range

For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox11.Value, vbUpperCase) Then
bak.Select
TextBox11.Value = ActiveCell.Offset(0, 0).Value
Range(ActiveCell.Offset(0, 0).Address(False, False) & ":" & ActiveCell.Offset(0, 12).Address(False, False)).Delete Shift:=xlUp
UserForm1.Label12 = "SİPARİŞ NO :"
f1tm
spn
Exit Sub
End If
Next bak

End Sub

Burada Silmeden önce bir mesaj almak mümkünmü ...
mesajı onaylıyorsak silmeye devam etmeli
onaylamıyorsak silme işlemi iptal olmalı ....
kodu bir türlü hatırlayamadım .....

Saygılarlımla ...Şimdiden teşekkür ederim.

 

[veyselemre]

Private Sub CommandButton6_Click()
Dim bak As Range

For Each bak In Range("a1:a" & WorksheetFunction.CountA(Range("a1:a65000")))

    If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox11.Value, vbUpperCase) Then
        TextBox11.Value = ActiveCell.Offset(0, 0).Value
        Range(bak.Offset(0, 0).Address(False, False) & ":" & bak.Offset(0, 12).Address(False, False)).Select
        If vbYes = MsgBox("Seçili alanı silmek istediğinizden emin misiniz?", vbYesNo) Then Selection.Delete Shift:=xlUp
        UserForm1.Label12 = "SİPARİŞ NO :"
        f1tm
        spn
        Exit Sub
    End If
Next bak
End Sub

 

[akgüvercin]

Teşekkür ederim.

bu kadar hızlı cevabınız için ....