• DİKKAT

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

textbox ta barkod okuyucu

S

seç halil

Katılım
8 Nisan 2023
Mesajlar
14
Excel Vers. ve Dili
2016 türkçe
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
 
Hoşgeldiniz,

Örnek dosya, textbox vb. ekleyin. Veri hangi textbox'dan hangi sayfada hangi hücreye girilecek vs. gereklidir.
 
sayfa1 de k2 hücresine ve devamında k3 k4 diye devam edecek textbox ismi textboxbarkod
 
altın üyelik aldım fakat daha onaylanmadığı için dosya yollayamıyorum
 
Deneyiniz.

Kod: 
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
 

Ekli dosyalar

Son düzenleme:
kodu girdim direk hücreye ekliyor şimdi fakat altına inmiyor ve textboxda tekrar okutma imleci de görünmüyor
 
aynı barkoddaki rakamları alt alta sıralıyor hepsini aynı hücreye değilde her bir rakamı alt alta yazıyor
 
barkod standartı kaç karakter; yada barkodu girdikten sonra ENTER'a basma eklenebilir
 
barkod standart EAN 13 ActiveCell.End(xlDown).Offset(1, 0).Select BU SIRA SARI RENKTE OLUYOR
 
seç halil' Alıntı:
barkod standart EAN 13 ActiveCell.End(xlDown).Offset(1, 0).Select BU SIRA SARI RENKTE OLUYOR
Genişletmek için tıkla ...

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 www.excel.web.tr
 
Ç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
 
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.
 
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
 
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..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst