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 ?
Kod:
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