Excel VBA - Show error message if textbox value doesn't exist in range

Question

I have a textbox on a userform that gets its value from a barcode scanner.
Unfortunately sometimes the cursor skips half way through the scan and only enters part of the name.
Is there a way to validate that the full scan has completed.

I can have a sheet in the background with a full list of all the codes so could validate against if this makes it easier?

Any help would be appreciated.

Thanks Al

Goos van den Bekerom · Accepted Answer · 2014-09-26 14:00:43Z

2

You could try something like this:

Dim ScannedString As String
Scannedstring = Textbox1.Text

Dim StringFound as String

'Range of all Codes
Dim CodeRng as Range 'change this to whatever your list range is ofcourse
set CodeRng = ThisWorkbook.Sheets("Sheet1").Range("A1:A10") 

For each code in CodeRng
    If code = ScannedString Then
        StringFound = code
        Exit For
        'The scanned code is found in the list so nothing is wrong
    End If
Next code

If StringFound = "" Then
    MsgBox "The code you scanned does not exist on the list. Please Scan again."
End If

answered Sep 26, 2014 at 14:00

Goos van den Bekerom

1,4933 gold badges20 silver badges33 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Excel VBA - Show error message if textbox value doesn't exist in range

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related