In this article, I’ll show you how you can use the VLOOKUP function of Excel in VBA. You’ll learn to use the VLOOKUP function with a user-defined lookup value, with a cell reference as the lookup value, with a range of values as the lookup value, and with a lookup value that doesn’t match the data set.
VBA Code to Use the VLOOKUP Function in Excel VBA (Quick View)
Sub VLOOKUP_with_User_Defined_Lookup_Value()
Book = InputBox("Enter the Name of the Book: ")
Set Rng = Range("B4:D13")
MsgBox Application.WorksheetFunction.VLookup(Book, Rng, 3, False)
End Sub
⧭ Explanation of the Code:
- This code creates a Macro called VLOOKUP_with_User_Defined_Lookup_Value.
- It takes one input from the user, the name of the book.
- Then it sets the lookup range of the VLOOKUP function to the range B4:D13.
- Finally, it applies the VLOOKUP function with the book name as the lookup value, range B4:D13 as the lookup range, and column 3 (D4:D13) as the return column.
- It returns the price of the book, which is displayed in a Message Box.
Download Practice Workbook
Download this practice workbook to exercise while you are reading this article.
4 Examples with the VLOOKUP Function in Excel VBA
Here we’ve got a data set with the Book Names, Authors and Prices of some books of a bookshop called Martin Bookstore.
Our objective today is to use the VLOOKUP function in Excel VBA with this data set.
1. VLOOKUP Function with a User-Defined Lookup Value in VBA in Excel
You can use the VLOOKUP function in Excel VBA with a User-Defined Lookup value.
The following code asks for a book name from the user, then shows the price of the book.
⧭ VBA Code:
Sub VLOOKUP_with_User_Defined_Lookup_Value()
Book = InputBox("Enter the Name of the Book: ")
Set Rng = Range("B4:D13")
MsgBox Application.WorksheetFunction.VLookup(Book, Rng, 3, False)
End Sub
Note: This code creates a Macro called VLOOKUP_with_User_Defined_Lookup_Value.
⧭ Output:
First, save the file as Excel Macro-Enabled Workbook.
Then run the Macro.
An Input Box will appear asking you the name of the book.
Here I’ve entered Crime and Punishment.
Click OK. And you’ll find a Message Box showing you the price of the book Crime and Punishment ($21.00).
⧭ Things to Remember:
Here, in this code, we’ve set the lookup range of the VLOOKUP function to B4:D13 and the return column to 3 (Price).
You change these according to your needs.
Read More: VLOOKUP to Return Multiple Columns in Excel (4 Examples)
2. VLOOKUP Function with a Cell Reference as the LOOKUP Value in VBA in Excel
You can also use a cell reference as the lookup value of the VLOOKUP function in VBA.
In cell F4 of the worksheet, we put the name of the book “Mother”.
Now we’ll develop a Macro that’ll show the name of the Author in cell G4.
⧭ VBA Code:
Sub VLOOKUP_with_Cell_Reference_as_Lookup_Value()
Range("G4").Value = Application.WorksheetFunction.VLookup(Range("F4"), Range("B4:D13"), 2, False)
End Sub
Note: This code creates a Macro called VLOOKUP_with_Cell_Reference_as_Lookup_Value.
⧭ Output:
First, save the file as Excel Macro-Enabled Workbook.
Then run the Macro.
You’ll find the name of the author of the book “Mother” (Maxim Gorky), set in cell G4.
⧭ Things to Remember:
Here, in this code, we’ve set the lookup value of the VLOOKUP function to the cell F4, lookup range to B4:D13 again, but the return column to 2 this time (Author).
You change these according to your needs.
Similar Readings
- Excel LOOKUP vs VLOOKUP: With 3 Examples
- INDEX MATCH vs VLOOKUP Function (9 Examples)
- How to Make VLOOKUP Case Sensitive in Excel (4 Methods)
- Use VLOOKUP with Multiple Criteria in Excel (6 Methods + Alternatives)
- How to Vlookup and Sum Across Multiple Sheets in Excel (2 Formulas)
3. VLOOKUP Function with a Range of Lookup Values in VBA in Excel
This time we’ll use the VLOOKUP function with a range of lookup values in VBA in Excel.
In the range F4:F6 of the worksheet, we have an array of the names of some books.
Now we’ll develop a Macro to put their authors’ names in the range G4:G6.
⧭ VBA Code:
Sub VLOOKUP_with_a_Range_as_Lookup_Value()
Range("G4:G6").Value = Application.WorksheetFunction.VLookup(Range("F4:F6"), Range("B4:D13"), 2, False)
End Sub
Note: This code creates a Macro called VLOOKUP_with_a_Range_as_Lookup_Value.
⧭ Output:
First, save the file as Excel Macro-Enabled Workbook.
Then run the Macro.
You’ll find the name of the authors of all the books of the range F4:F6 in the range G4:G6.
⧭ Things to Remember:
In this code, we’ve set the lookup value of the VLOOKUP function to the range F4:F6, lookup range to B4:D13 again, and the return column to 2 (Author).
You change these according to your needs.
4. VLOOKUP Function in VBA in Excel When the Lookup Value doesn’t Match
Finally, I’ll show you what happens if the VLOOKUP function doesn’t find any match of the lookup value in the first column of the given range in VBA.
In case, it doesn’t find any match, it throws the run-time error 1004.
Look at the following VBA code.
⧭ VBA Code:
Sub VLOOKUP_when_the_Lookup_Value_doesnot_Match()
Book = "A Farewell to Arms"
MsgBox Application.WorksheetFunction.VLookup(Book, Range("B4:D13"), 2, False)
End Sub
Note: This code creates a Macro called VLOOKUP_when_the_Lookup_Value_doesnot_Match.
⧭ Output:
First, save the file as Excel Macro-Enabled Workbook.
Then run the Macro.
It will search for a book called “A Farewell to Arms” in the first column of the data set (B4:B13), which doesn’t exist there.
So it’ll throw the run-time error 1004.
Things to Remember
Here we’ve used the Application.WorksheetFunction property of VBA.
Using this property, you can use any built-in function of Excel in VBA, with the proper arguments.
Conclusion
Using these methods, you can use the VLOOKUP function of Excel in VBA. Do you have any questions? Feel free to ask us.
Related Articles
- Excel VLOOKUP to Find Last Value in Column (with Alternatives)
- Excel VLOOKUP to Return Multiple Values Vertically
- VLOOKUP Example Between Two Sheets in Excel
- How to Use IF ISNA Function with VLOOKUP in Excel (3 Examples)
- VLOOKUP to Search Text in Excel (4 Easy Ways)
- How to VLOOKUP from Multiple Columns with Only One Return in Excel (2 Ways)
- 10 Best Practices with VLOOKUP in Excel