comboboxa el terminaliyle barkod girince otomatik aktarma

[fedeal]

Private Sub CommandButton10_Click()
If ComboBox2.Text <> "" Then

Son_Dolu_Satir = Sheets("SATIŞ").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("SATIŞ").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("SATIŞ").Range("A:A")) + 1

Sheets("SATIŞ").Range("E" & Bos_Satir).Value = ComboBox1.Text

Sheets("SATIŞ").Range("B" & Bos_Satir).Value = TextBox5.Text

Sheets("SATIŞ").Range("C" & Bos_Satir).Value = TextBox8.Text

Sheets("SATIŞ").Range("D" & Bos_Satir).Value = TextBox2.Text


Else

MsgBox "BARKOD GİRMELİSİNİZ ", vbOK

End If
End Sub


yukarıdaki kodlarla butonla verileri data sayfasına aktarıyorum comboboxa elterminaliyle barkod girince otamatik aktarma yapılabilirmi? yardımlarınız için şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Kodu combobox_change olayına yazarak deneyin. Yada comboboxa aşağıdaki koduda yazabilirsiniz.

Private Sub ComboBox2_Change()
CommandButton10_Click
End Sub

 

[fedeal]

teşekkürler levent bey işe yarıyor fakat bu kezde elle barkod numarası girince her sayı sonrası giriş yapıyor.bunun bir çözümü olabilirmi? barkod numaraları 13 rakam 13 rakamdan sonra buton devreye girmesi mümkün olabilirmi?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub ComboBox2_Change()
if len(combobox2)=13 then CommandButton10_Click
End Sub

 

[fedeal]

teşekkürler levent bey mükemmel oldu.

 

[ardaserim]

merhaba

teşekkürler levent bey mükemmel oldu.

merhaba sayın fedeal bu harika olan dosyayı bana göndeririseniz çok sevinicem benimde aynı bu şekilde bir dosyaya ihtiyacım var şimdiden gönderdiğinizi düşünerek size çok teşekkür ederim

 

[fedeal]

merhaba sayın fedeal bu harika olan dosyayı bana göndeririseniz çok sevinicem benimde aynı bu şekilde bir dosyaya ihtiyacım var şimdiden gönderdiğinizi düşünerek size çok teşekkür ederim

ögrenmek ve denemek adına yaptıgım basit bir calışmaydı.harika sayılmaz ogünden sonra pek birşey eklemedim mesajınızı yeni gördüm işinize yararsa buyrun tabi ayrıca geliştirecek olursanız memnun olurum.

 

[ardaserim]

ögrenmek ve denemek adına yaptıgım basit bir calışmaydı.harika sayılmaz ogünden sonra pek birşey eklemedim mesajınızı yeni gördüm işinize yararsa buyrun tabi ayrıca geliştirecek olursanız memnun olurum.

teşekkür ederim şimdi inceleyeceğim