ürün ekleme

[sel45]

arkadaşlar ürün kayıt formu yapmak istedim ekte gönderdim.
kayıt ekle tuşuna tıkladığımda BARKOD okutup ürünü kaydedeceğim.
BARKOD okutarak ARA tuşuna basınca bilgiler gelsin düzenleyip KAYDET tuşuna basınca kaydetsin.
yardımcı olacak arkadaşlara teşekkür ederim

 

[EmrExcel16]

Deneyiniz..

Önceki CommandButton1 , CommandButton2 kodları ile verdiğim kodları değiştirin.

Private Sub CommandButton1_Click()
    Dim bul
    Set bul = Range("A2:A10000").Find(TextBox1.Value, , xlValues, xlWhole)
    If Not bul Is Nothing Then
        Cells(bul.Row, bul.Column + 1) = TextBox2.Value
        Cells(bul.Row, bul.Column + 2) = TextBox3.Value
    Else
        Yeni = Cells(Rows.Count, 1).End(3).Row + 1
        Cells(Yeni, 1) = TextBox1.Value
        Cells(Yeni, 2) = TextBox2.Value
        Cells(Yeni, 3) = TextBox3.Value
    End If   
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
End Sub

Private Sub CommandButton2_Click()
    Dim bul
    Set bul = Range("A2:A10000").Find(TextBox1.Value, , xlValues, xlWhole)
    If Not bul Is Nothing Then
        TextBox2.Text = Cells(bul.Row, bul.Column + 1)
        TextBox3.Text = Cells(bul.Row, bul.Column + 2)
    Else
        TextBox2.Text = ""
        TextBox3.Text = ""
        MsgBox "Barkod bulunamadi.."
    End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     CommandButton2_Click
End Sub

 

[sel45]

Elinize sağlık, çok teşekkür ederim

 

[EmrExcel16]

Elinize sağlık, çok teşekkür ederim

Rica ederim , iyi çalışmalar.

 

[sel45]

hocam barkod girdiğimde ürün kayıtlıysa bilgileri otomatik gelebilirmi

 

[EmrExcel16]

hocam barkod girdiğimde ürün kayıtlıysa bilgileri otomatik gelebilirmi

Kodları güncelledim deneyiniz..

Barkod okutup Enter yaptığınız anda kayıtlı ise veriler gelecektir.