problem with picking up 0 with coding

[keeegs]

Hi All

We use 6 digit item codes and alot of our searchs etc are based on these.
Current im using the code below to search for the code and bring up a form. It picks up all entries that don't have a 0 in front of them
How can I get it to pick them up aswell?

Thanks, Keegan


Sub Editform()
Dim name As String

name = Application.InputBox( _
Prompt:="Enter Item Number", _
Title:="Item Number Look Up:", Type:=3)

Range("a4").Select

Do

If (ActiveCell) = name Then

frmEditSpec.Show

Exit Sub

Else: ActiveCell.Offset(1, 0).Select

If IsEmpty(ActiveCell) = True Then

MsgBox ("No Entry with this Item Number")

Exit Sub

End If

End If

Loop

End Sub

 

[Rick Rothstein]

Change your InputBox Type argument to 2 and it should work for you.

 

[keeegs]

Hi Rick.

Is that in the properties box?
Which 1 do I chance because I'm not sure.

I'm using excel 2003 if that helps

Keegan

 

[Rick Rothstein]

Is that in the properties box?
Which 1 do I chance because I'm not sure.

I meant change it in the code you posted, this line of code in particular...

name = Application.InputBox( _
Prompt:="Enter Item Number", _
Title:="Item Number Look Up:", Type:=3)

Change the Type:=3 part ot Type:=2 instead.