Form içinde Texbox a barkodu okutmak

[a_self_lion]

Selam arkadaşlar. Market için bir veresiye takip sistemi geliştirmek istiyorum bana yardımcı olursanız sevinirim. Sizlerden öğrenmek istediğim ekte dosyada açıkladım. ilgilenirseniz sevinirim.

 

[emrexcel123]

benzersiz

arkadaşım bu kayıtların benzersiz olması gerekir yani barkodların bence kaydır fonksiyonunu kullanarak textbox'lara aldırabilirsin ...

 

[a_self_lion]

barkod anlamı budur zaten benzersiz olacak elbette
ama nasıl aldırabilirim.

 

[Levent Menteşoğlu]

Textbox1'e aşağıdaki kodu yazın.

Private Sub TextBox1_Change()
Set s1 = Sheets("MLZ")
If WorksheetFunction.CountIf(s1.[c:c], TextBox1) = 0 Then Exit Sub
sat = s1.[c1:c65536].Find(TextBox1).Row
TextBox2 = s1.Cells(sat, "a")
TextBox3 = s1.Cells(sat, "b")
TextBox4 = s1.Cells(sat, "d")
End Sub