Hallo, ik werk al een tijdje met deze vba code maar deze geeft maar 1 keer een X in het veld. Ik zou graag willen als ik dezelfde barcode nog een een keer scan, dat er een 2e,3e of 4e X bijkomt in hetzelfde veld. Helaas is het mij niet gelukt dit voor elkaar te krijgen. Wie kan mij helpen om de deze VBA code aan te passen.
Groet, Ed Kooreman
Sub barcode()
'
' barcode Macro
' Barcode bleep
'
' Sneltoets: CTRL+b
'
MyCond = 1
Do While MyCond = 1
MyValue = InputBox("barcode", "Barcode invoer")
If MyValue = "" Then Exit Sub
Result = Cells.Find(What:=Right(MyValue, 7), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate
' sendkeys werkt niet altijd
' SendKeys "{LEFT}", True
' beter:
ActiveCell.Offset(0, -1).Select
' vanaf hier niets veranderd
ActiveCell.FormulaR1C1 = "x"
Range("A1").Select
Loop
End Sub
Groet, Ed Kooreman
Sub barcode()
'
' barcode Macro
' Barcode bleep
'
' Sneltoets: CTRL+b
'
MyCond = 1
Do While MyCond = 1
MyValue = InputBox("barcode", "Barcode invoer")
If MyValue = "" Then Exit Sub
Result = Cells.Find(What:=Right(MyValue, 7), _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate
' sendkeys werkt niet altijd
' SendKeys "{LEFT}", True
' beter:
ActiveCell.Offset(0, -1).Select
' vanaf hier niets veranderd
ActiveCell.FormulaR1C1 = "x"
Range("A1").Select
Loop
End Sub