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 "Type Mismatch".

I tried with Application.Worksheetfunction.VLookup and it throws '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:

>
> 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 "Type
> Mismatch".
>
> I tried with Application.Worksheetfunction.VLookup and it throws
> 'Unable to get the VLookup property of the WorksheetFunction class'
>
> Please anyone can help me out.
>
>
> --
> mtpsuresh
> ------------------------------------------------------------------------
> mtpsuresh's Profile: http://www.excelforum.com/member.php...o&userid=31817
> View this thread: http://www.excelforum.com/showthread...hreadid=565136
>
>