aktarmada problem

[enginbagci]

asagıdaki kodları kullanıyorum 2nci sayfadaki numarayı bulup kayıt ediyorum ama numarayı bulamadıgı zaman bir msgbox cıkıp geri dönmesini yapmak istiyorum
teşekkürler


BUL = Sheets("" & Cells(1, 1)).Cells.Find(What:=[b2], LookIn:=xlValues, LookAt:=xlWhole).Row
Sheets("" & Cells(1, 1)).Cells(BUL, 2) = Sheets("1").[c2]
Sheets("" & Cells(1, 1)).Cells(BUL, 3) = Sheets("1").[b3]

 

[zafer]

Merhaba

On Error GoTo 10
kodlarınız................
....................
 
10:
MsgBox ("aaaaaaaaaaaaaaaaaaa")

 

[enginbagci]

merhaba

zafer bey kodlarda bulamayınca mesaj veriyor ama arkasındaki kodlar calsıyor hatayı verirse o butonun kullanımı iptal yani basa donme olasılıgı varmı

 

[zafer]

Merhaba


10:
MsgBox ("aaaaaaaaaaaaaaaaaaa")

satırları end sub tan bir önceye yazınız.