yes tıkladığımda userform3 açılsın

[win_kjh]

ustalar merhaba
aşağıdaki kodu nasıl yapmalıyım ki hatalı yazdığımda yada yeni bir ürün yazdığımda bana uyarı veriyor.yes tıkladığımda userform3 açılsın.
olabilir mi?
Private Sub ComboBox3_Change()
Dim a
On Error GoTo hata
Range("D").Select
Selection.Find(ComboBox3).Select
GoTo 10
hata:
MsgBox "aradığınız veri bulunamıyor.veriyi veri eklemek istiyormusunuz?", vbYesNo
10
Range("A1").Select
End Sub

 

[hsayar]

ustalar merhaba
aşağıdaki kodu nasıl yapmalıyım ki hatalı yazdığımda yada yeni bir ürün yazdığımda bana uyarı veriyor.yes tıkladığımda userform3 açılsın.
olabilir mi?

Private Sub ComboBox3_Change()
Dim a
On Error GoTo hata
Range("D:D").Select
Selection.Find(ComboBox3).Select
GoTo 10
hata:
if MsgBox ("aradığınız veri bulunamıyor.veriyi veri eklemek istiyormusunuz?", vbYesNo) = vbYes Then userform3.show
 
10
Range("A1").Select
End Sub

dener misiniz?