Hi I have a question, I have fair knowledge of excel but I am trying to
build a userform which can be used as a interface with the database I have
created.
The trouble I am having is I have the following code to look up some
information and it gives me the item I am looking for. But if I use the
barcode scanner and scan the proper barcode on the item it does not
recognise it at all.

Why is this and how can I fix it thanks in advance

Greg B


Dim ansD3
Sheet1.Activate
On Error Resume Next
ansD3 = Application.Match(CLng(bcscan.value), Range("A:A"), 0)
If Not IsError(ansD3) Then
itembox.value = Application.Index(Range("b:b"), ansD3)
End If
On Error GoTo 0

Why use a worksheet function match when you can do it more eficiently in VBA

with sheets("Sheet1")
Data = CLng(bcscan.value)
set c = .Columns("A").find(what:=Data, _
lookin:=xlvalues, lookat:=xlwhole)
if not c is nothing then
itembox.value = c.offset(0,1)
end if
end with

"Greg B" wrote:

> Hi I have a question, I have fair knowledge of excel but I am trying to
> build a userform which can be used as a interface with the database I have
> created.
> The trouble I am having is I have the following code to look up some
> information and it gives me the item I am looking for. But if I use the
> barcode scanner and scan the proper barcode on the item it does not
> recognise it at all.
>
> Why is this and how can I fix it thanks in advance
>
> Greg B
>
>
> Dim ansD3
> Sheet1.Activate
> On Error Resume Next
> ansD3 = Application.Match(CLng(bcscan.value), Range("A:A"), 0)
> If Not IsError(ansD3) Then
> itembox.value = Application.Index(Range("b:b"), ansD3)
> End If
> On Error GoTo 0
>
>
>
>