Excel 2013 on W10: VBA Vlookup in a different worksheet produces error 1004

前端 未结 1 1789
故里飘歌
故里飘歌 2021-01-28 10:22

I\'m developing an application which uses specification codes to vlookup those codes in another spreadsheet, and return vendor numbers from the second spreadsheet to the first,

1条回答
  •  别那么骄傲
    2021-01-28 10:24

    Your lookup is simply failing, and the error message is utterly misleading.

    It's not that VBA couldn't find the WorksheetFunction.VLookup member, it's just that your VLookup raised an error.

    You need to either:

    • Handle that runtime error with an On Error GoTo statement

    Or

    • Use the late-bound version Application.VLookup, which doesn't give you IntelliSense, but instead of throwing a runtime error when the lookup fails, it will return "Error 2042" and you can test whether the lookup failed or not by wrapping it in IsError.

    Type 42 in cell A1 of the active sheet. Then in the immediate pane:

    ?iserror(application.VLookup(42,Range("A:B"),1,false))
    

    returns False

    ?iserror(application.VLookup(43,Range("A:B"),1,false))
    

    returns True

    ?application.WorksheetFunction.VLookup(42,Range("A:B"),1,false)
    

    returns 42

    ?application.WorksheetFunction.VLookup(43,Range("A:B"),1,false)
    

    raises a runtime error:

    Unable to get the VLookup property of the WorksheetFunction class

    That message would be better worded as "VLookup function failed to find specified lookup value in specified lookup range", or something like that.


    The reason your lookup is failing is the same any VLOOKUP might fail for: verify your lookup_value actually exists in your lookup_range. Watch out for leading and/or trailing spaces, and "text-formatted" columns. In other words, assuming you want to throw a runtime error when the lookup fails, it's a data problem, not a code problem.

    0 讨论(0)
提交回复
热议问题