Textbox değerini sayfada arama hatası

[quesh]

Arkadaşlar Textbox1'in içindeki değeri A sütununda arayan ve bulduğunda o satırı silen bir makro yazdım. Ancak sorun şu ki eğer textbox'ın içeriğini sütunda bulamazsa kod hata veriyor. bu hatayı vermesi yerine eğer textbox içindeki değer sütunda bulunamazsa "FATURA NO. HATALI" uyarı mesajı verip exit sub yapmasını nasıl sağlarım ?

Private Sub CommandButton1_Click()

Dim soru

soru = MsgBox("İPTAL EDİLECEKTİR. EMİN MİSİNİZ?", vbYesNo, "M U R A T  H.")

   If soru = vbNo Then
    Exit Sub
    
Else

    Columns("A:A").Select

    Selection.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
          i = ActiveCell.Row
    Rows(i & ":" & i).Select
    Selection.Delete Shift:=xlUp
 
    End If
    
End Sub

 

[hamitcan]

Private Sub CommandButton1_Click()
Dim soru
soru = MsgBox("İPTAL EDİLECEKTİR. EMİN MİSİNİZ?", vbYesNo, "M U R A T  H.")
   If soru = vbNo Then
    Exit Sub
Else
Set bul = Columns(1).Find(textbox1.Value, LookAt:=xlPart)
If bul Is Nothing Then
MsgBox "FATURA NO. HATALI": Exit Sub
Else
Rows(bul.Row).Delete
End If
End If
End Sub

şeklinde deneyin.

 

[quesh]

Çok teşekkür ederim Sayın Hamitcan.