Probleem met barcode lezer

[GG1985]

Hallo,
Alvast bedankt voor jullie snelle oplossingen.
Bedoeling is om tijdens de stocktelling de barcode's in te scannen. Bij artikels zonder barcode kan dit manueel ingevoerd worden(werkt). Indien gewenst kan er een locatie aan toegevoegd worden(werkt). Maar wanneer ik meer dan 1 barcode wil inscannen moet ik steeds manueel het vak gaan selecteren. Dit doordat de barcode lezer met een shift+enter afsluit (vermoed ik). Hierdoor staat barcode steeds geselecteerd na het inscannen van 1 barcode. Hoe kan ik dit verhelpen. Reeds zoekfunctie toegepast en niks dat mij geholpen heeft.

 

[alphamax]

geen voorbeeldje, dus link naar ander forum http://www.worksheet.nl/forumexcel/...raad-beheer-wil-niet-lukken-2.html#post578535

 

[GG1985]

Ik krijg mijn bestandje niet geupload 135kb ook niet via Zip is er een andere weg mogelijk????

 

[GG1985]

Ik krijg het bestand niet geupload. Hierbij de VBA code indien dit een idee kan geven.
Commandbutton is voor manueel invoer met apart textbox
Textbox2 is zonder commandbutton
Is er een andere mogelijkheid om het bestandje te uploaden is nu maar 90kB meer.

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 100000
If Trim(Blad1.Cells(i, 2).Value) = TextBox2.Value Then
Blad1.Cells(i, 1).Value = Blad1.Cells(i, 1).Value + 1
Exit For
End If
If Blad1.Cells(i, 2).Value = "" Then
If MsgBox("Nieuw Artikelnr Toevoegen?", vbYesNo) = vbYes Then
Blad1.Cells(i, 2).Value = TextBox2.Value
Blad1.Cells(i, 1).Value = 1
Exit For
End If
End If
Next i
TextBox2.Value = ""
TextBox2.SetFocus
End Sub


Private Sub TextBox1_Afterupdate()
Dim i As Long
For i = 1 To 100000
If Trim(Blad1.Cells(i, 2).Value) = TextBox1.Value Then
Blad1.Cells(i, 1).Value = Blad1.Cells(i, 1).Value + 1
Exit For
End If
If Blad1.Cells(i, 2).Value = "" Then
If MsgBox("Nieuw Artikelnr Toevoegen?", vbYesNo) = vbYes Then
Blad1.Cells(i, 2).Value = TextBox2.Value
Blad1.Cells(i, 1).Value = 1
Exit For
End If
End If
Next i
TextBox1.Value = ""
TextBox1.SetFocus
End Sub