Vlookup last price of product in userform

[Ahmed Fawad]

Please guide....

I've got a userfrom for expense posting. I want it to do is when I add a product name in the description it shows the last purchase price in the other textbox and "Not Found" if it's a new product.

What I've done is

Private Sub txtdesc_Afterupdate()
With Me

txtlprice = Application.WorksheetFunction.VLookup(Me.txtdesc, Lists.Range("E:H"), 4, 0)

End With
End Sub

Error:
Run-time error '424':
Object required


TIA

Ahmed

 

[Alex Blakenburg]

Where is this in the workbook ? Do you have a sheet whose "codename" is Lists ?
Lists.Range("E:H")

 

[Ahmed Fawad]

Where is this in the workbook ? Do you have a sheet whose "codename" is Lists ?
Lists.Range("E:H")

Yes, it's sheet's name Lists and details are like this

Description	Account	Head	Rate
Adek Power Plus	Rana Imran	Medicine	1,700.00
Anti Ghumbo	DMG	Medicine	1,520.00
Avil	Naseem & Co	Medicine	40.00
Bio Liver Tone	Rana Imran	Medicine	2,300.00
Bio Ment Plus	Rana Imran	Medicine	4,500.00
Bio Multivit	Rana Imran	Medicine	2,100.00
Biosign	Rana Imran	Medicine	850.00

 

[Alex Blakenburg]

Codename is different to sheet name. Your current syntax will only work if it was the codename and I don’t believe that is the case.

• If you know it will be the active sheet put > Range("E:H")
• If it is not the active sheet or you are not sure it will be put > Worksheets(“Lists”).Range("E:H")

Let me know if changing that fixes your issue.

 

[Ahmed Fawad]

Codename is different to sheet name. Your current syntax will only work if it was the codename and I don’t believe that is the case.

• If you know it will be the active sheet put > Range("E:H")
• If it is not the active sheet or you are not sure it will be put > Worksheets(“Lists”).Range("E:H")

Let me know if changing that fixes your issue.

Worksheets(“Lists”).Range("E:H") ... Works great

thank you very much dear

Ahmed

 

[Alex Blakenburg]

Thanks for letting me know, glad I could help.