Hata ile karşılaşınca makro devam etsin

[DeliBalta58]

Private Sub ComboBox2_Change()
Dim Aranan As String
Dim Satir As Integer
Aranan = ComboBox2.Value
If Aranan = "" Then Exit Sub
Satir = Worksheets("Sayfa3").Range("B:B").Cells.Find(Aranan, Worksheets("Sayfa3").Range("B65000"), xlFormulas, xlPart, xlByRows, xlNext, False, False).Row
TextBox18.Value = Worksheets("Sayfa3").Range("C" & Satir)
TextBox30.Value = Worksheets("Sayfa3").Range("D" & Satir)
End Sub

Yukarıdaki kodda Combobox'tan seçilen veriye göre
TextBox18 ve TextBox30 'a veriler aktarılmakta.
Kullanıcı Comboboxtan seçim yapmak yerine el ile giriş yapmaya çalışınca
girdiği veri eğer yoksa hata veriyor.
Bu hatayı verdirmeden makronun devam etmesi için yardım edebilirmisiniz.

 

[Mahmut Kök]

Kodların başına ekleyiniz:

on error resume next

 

[DeliBalta58]

Teşekkürler.
Maaşallah bu ne hız hocam