Vlookup vba

[kevin1970]

Hi All
been a member for a while now, always been able to work problems out but cannot get this one to work. Please help.

I am setting up a check list for spares. From my form i have check the number is available button. on pressing the button it runs the code. i have a sheet called 'spares' and column 'A' is the part number i am trying to look up. When i run to code its asked me for the part number to check and the ends and give an error '1004' unable to get vlookup property of worksheet function class. can anyone help.

Private sub Check_click()
Dim part number as range
Dim number as variant
Dim partnumber as variant
Sheets("spares").activate
set part number = sheets("spares").Range("a1:a135")
partnum=inputbox("enter number to check ")
Number=worksheetfunction.vlookup(partnum,partnumber,1,false)
msgbox partnum & "is available " & number
end sub

 

[VoG]

Maybe

Private Sub Check_click()
Dim partnumber As Range
Dim number As Variant
Dim partnumber As Variant
Sheets("spares").Activate
Set partnumber = Sheets("spares").Range("a1:a135")
partnum = Val(InputBox("enter number to check "))
number = Application.VLookup(partnum, partnumber, 1, False)
MsgBox partnum & "is available " & number
End Sub

 

[Momentman]

Private Sub Check_click()
    Dim partnumber As Range
    Dim number As Variant
    Dim partnum As Integer
    Sheets("spares").Activate
    Set partnumber = Sheets("spares").Range("a1:a135")
    partnum = InputBox("enter number to check ")
    number = WorksheetFunction.VLookup(partnum, partnumber, 1, False)
    MsgBox partnum & "is available " & number
End Sub

Although if a match is not found by vlookup, it throws up an error, so you might need an error handler

 

[kevin1970]

Maybe

Private Sub Check_click()
Dim partnumber As Range
Dim number As Variant
Dim partnumber As Variant
Sheets("spares").Activate
Set partnumber = Sheets("spares").Range("a1:a135")
partnum = Val(InputBox("enter number to check "))
number = Application.VLookup(partnum, partnumber, 1, False)
MsgBox partnum & "is available " & number
End Sub

that work thanks.

Now what I don't know how to do is if the part number in not in the spares sheet I want to return 'part not available' do you know how I can do it?
thanks kev

 

[VoG]

Try

Private Sub Check_click()
Dim partnumber As Range
Dim number As Variant
Dim partnumber As Variant
Sheets("spares").Activate
Set partnumber = Sheets("spares").Range("a1:a135")
partnum = Val(InputBox("enter number to check "))
number = Application.VLookup(partnum, partnumber, 1, False)
If IsError(number) Then
    MsgBox "Not found", vbExclamation
Else
    MsgBox partnum & "is available " & number, vbInformation
End If
End Sub

 

[kevin1970]

That comes up with the same error as before.

 

[kevin1970]

Sorry my chubby fingers got it wrong..dooh
thats works great. Thank you sooooooooo much. Kev