textbox ta barkod okuyucu

[seç halil]

selam forma yeni katıldım vba da textbox a barkod okutunca otomatik seçtiğim hücreye aktarsın ve temizlesin istiyorum ve bunu her defasında alt alta yazacak şekilde nasıl yapabilirim şimdiden tş ederim

 

[RBozkurt]

Hoşgeldiniz,

Örnek dosya, textbox vb. ekleyin. Veri hangi textbox'dan hangi sayfada hangi hücreye girilecek vs. gereklidir.

 

[seç halil]

sayfa1 de k2 hücresine ve devamında k3 k4 diye devam edecek textbox ismi textboxbarkod

 

[seç halil]

altın üyelik aldım fakat daha onaylanmadığı için dosya yollayamıyorum

 

[RBozkurt]

Deneyiniz.

Private Sub TextBox1_Change()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Sayfa1")
    Dim ean As String
    ean = Me.TextBox1.Value
    If Len(ean) = 13 And IsNumeric(ean) Then
        Dim nextRow As Long
        nextRow = sh.Cells(sh.Rows.Count, "K").End(xlUp).Row + 1
        sh.Range("K" & nextRow).Value = ean
        sh.Range("K" & nextRow).NumberFormat = "0"
        Me.TextBox1.Value = ""
        Me.TextBox1.SetFocus
    End If
End Sub

 

[seç halil]

kodu girdim direk hücreye ekliyor şimdi fakat altına inmiyor ve textboxda tekrar okutma imleci de görünmüyor

 

[RBozkurt]

kodu girdim direk hücreye ekliyor şimdi fakat altına inmiyor ve textboxda tekrar okutma imleci de görünmüyor

5. mesajdaki kodu yeniledim, tekrar deneyiniz.

 

[seç halil]

aynı barkoddaki rakamları alt alta sıralıyor hepsini aynı hücreye değilde her bir rakamı alt alta yazıyor

 

[RBozkurt]

barkod standartı kaç karakter; yada barkodu girdikten sonra ENTER'a basma eklenebilir

 

[seç halil]

barkod standart EAN 13 ActiveCell.End(xlDown).Offset(1, 0).Select BU SIRA SARI RENKTE OLUYOR

 

[RBozkurt]

barkod standart EAN 13 ActiveCell.End(xlDown).Offset(1, 0).Select BU SIRA SARI RENKTE OLUYOR

5. mesajdaki kodu tekrar değiştirdim ve örnek dosya ekledim.
Şuan problem gözükmüyor.
TextBox1'i kendinize göre revize ediniz.
İyi çalışmalar.

textbox ta barkod okuyucu

selam forma yeni katıldım vba da textbox a barkod okutunca otomatik seçtiğim hücreye aktarsın ve temizlesin istiyorum ve bunu her defasında alt alta yazacak şekilde nasıl yapabilirim şimdiden tş ederim

www.excel.web.tr

 

[seç halil]

ÇOK TŞK EDERİM OLDU GİBİ AMA HER DAFASINDA BENİM MAUSE İLE TEXT BOX İCON KOYMAM GEREKİYOR OKUTMADAN ÖNCE ONU NASIL YAPABİLİRİZ

 

[RBozkurt]

5. Mesajdaki makro şuan eksiksizdir. Kodu tekrar gözden geçirin.

Forum kurallarına bakınız, tüm mesajı büyük harf yazmayın.

 

[seç halil]

Private Sub TextBox1_Change()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sayfa1")
Dim ean As String
ean = Me.TextBox1.Value
If Len(ean) = 13 And IsNumeric(ean) Then
Dim nextRow As Long
nextRow = sh.Cells(sh.Rows.Count, "K").End(xlUp).Row + 1
sh.Range("K" & nextRow).Value = ean
sh.Range("K" & nextRow).NumberFormat = "0"
Me.TextBox1.Value = ""
Me.TextBox1.SetFocus
End If
End Sub
bu kodu kopyaladım şimdi hiç aktarmıyor hücreye

 

[RBozkurt]

Yukarıda belirtmiştim.
TextBox1 yazan yerleri kendi kullandığınız textbox adı ile değiştirin.

Not defterine kopyalayın Ctrl+H ile bul değiştir yapıp kullanın..

 

[seç halil]

çok teşekkür ederim emeğine sağlık

 

[RBozkurt]

çok teşekkür ederim emeğine sağlık

Kolay gelsin