satıs programı yardım

[bananaosman]

merhabalar vba da yeniyim
medikal bir satış yerim var buraya excel ve vba da barkod girildiginde urun adı ve satış fiyatı içeren bir kod hazırladım ama hata alıyorum yardımcı olabilirmisiniz acaba
yardımcı olmak isteyenlere dıosyayı mail atabilirim
ilkereryetis@gmail.com

Private Sub Txtbarkod_Change()

End Sub

Private Sub Txtbarkod_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

End Sub
If KeyCode = 13 Then urun_Bul
End Sub
Sub urunBul()



Dim x As Long
Dim urunVar As Label
Dim urunYok As Label
For x = 2 To 120000
If Sheets("stok").Range("A" & x).Value = Txtbarkod.Value Then GoTo urunVar
If Sheets("stok").Range("a" & x).Value = "" Then GoTo urunYok
Next
urunVar:
Txturun.Value = Sheets("stok").Range("B" & x).Value
Txtbirim.Value = Sheets("stok").Range("C" & x).Value
TxtFiyat.Value = Sheets("stok").Range("E" & x).Value
End Sub

urunYok:
MsgBox "girdiginiz urun bulunamadı"



End Sub

 

[muratboz06]

Ne gibi bir hata aldığınızı belirtmemişsiniz. Aşağıdaki kodlar birbiriyle uyumsuz gibi geldi.
If KeyCode = 13 Then urun_Bul (urunBul olabilir mi?)
End Sub
Sub urunBul()