• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ürün ekleme

  • Konbuyu başlatan Konbuyu başlatan sel45
  • Başlangıç tarihi Başlangıç tarihi
Katılım
14 Ağustos 2015
Mesajlar
21
Excel Vers. ve Dili
office
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
 

Ekli dosyalar

Deneyiniz..

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



Kod:
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
 
Son düzenleme:
hocam barkod girdiğimde ürün kayıtlıysa bilgileri otomatik gelebilirmi
 
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.
 
Geri
Üst