Vlookup

[mtpsuresh]

Set Rng = lObjInterimWrkSht.Range("$L2:$O1000")
lStrResult = Application.VLookup("1001001", Rng, 4, False)
If Not VBA.IsError(lStrResult) Then
lDblExpensesThisMonthAmt
VBA.Val(lStrResult)
Else
lDblExpensesThisMonthAmt = 0
End If

It throws error when executing the vlookup function as "Typ
Mismatch".

I tried with Application.Worksheetfunction.VLookup and it throw
'Unable to get the VLookup property of the WorksheetFunction class'

Please anyone can help me out

 

[Stefi]

Try double quotes for string:

lStrResult = Application.VLookup(""1001001"", Rng, 4, False)

Regards,
Stefi

„mtpsuresh†ezt írta: