Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code please
I am having trouble with a piece of code, the code works with smaller
numbers but when I scan a barcode it does not recognise the number? What have I got wrong here is the code below. Private Sub UserForm_Activate() TextBox1.Value = InputBox("PLEASE SCAN THE ITEM") End Sub Private Sub TextBox1_Change() Dim CHECK1 Sheet5.Activate On Error Resume Next CHECK1 = Application.Match(CLng(TextBox1.Value), Range("A:A"), 0) If Not IsError(CHECK1) Then Label1.Caption = Application.Index(Range("B:B"), CHECK1) End If On Error GoTo 0 End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming |