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

Katılım
19 Nisan 2007
Mesajlar
337
Excel Vers. ve Dili
Excel 2003 Türkçe
Kod:
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

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
Kodların başına ekleyiniz:

Kod:
on error resume next
 
Katılım
19 Nisan 2007
Mesajlar
337
Excel Vers. ve Dili
Excel 2003 Türkçe
Teşekkürler.
Maaşallah bu ne hız hocam
 
Üst