VBA Vlookup function

Question

I keep getting this error saying object doesn't support property or method when I run this bit of my code.

Any ideas how to get it to work?

If ActiveCell.Value <> WorksheetFunction.VLookup(ActiveCell.Offset(0, 1), Workbooks("Log.xls").Worksheets("Log").Range("A:B"), 2, False) Then
    [f2].Value = vvvv

End If

No repro - the error message isn't "Unable to get the Vlookup property of the WorksheetFunction class"? — BigBen, Feb 28 '20 at 16:44
Where is the code? (i.e. is it in a module, class, worksheet...) — Zac, Feb 28 '20 at 16:49

score -2 · Answer 1 · answered Feb 28 '20 at 17:06

-2

Try this:

If ActiveCell.Value <> Application.VLookup(CStr(ActiveCell.Offset(0, 1)), Worksheets("Sheet1").Range("A:B"), 2, False) Then
        [f2].Value = vvvv

End If

More details: You must control the type of the lookup value in VLOOKUP function

answered Feb 28 '20 at 17:06

Marlond25

77
4

3

This will still error when no match is found, one cannot compare an error to a value. – Scott Craner Feb 28 '20 at 17:10
True, but thats error handling. Not, getting the expression to evaluate TRUE which is what he's trying to do. – Marlond25 Feb 28 '20 at 17:15
1

but the error he is getting is because the value was not found and that would return an error. This does not fix the issue. – Scott Craner Feb 28 '20 at 17:25
"You must control the type of the lookup value in VLOOKUP function" - this is not correct. – BigBen Feb 28 '20 at 17:33

VBA Vlookup function

1 Answers1