VLOOKUP in VBA (Example) | How to Write VLOOKUP Code in Excel VBA?

Table of Contents

VLookup VBA Excel
How to Use VLookup in Excel VBA?

VLOOKUP Function in Excel VBA

The VLOOKUP function in Excel is used to search a value in an array and return its corresponding value from another column. The value to search should be present in the first column. It is also required to mention whether to look for an exact match or an approximate match. The worksheet function VLOOKUP can be used in VBA coding. The function is not built in VBA and thus can only call using the worksheet.

The VLOOKUP function in Excel has the following syntax:

In which, lookup_value is the value to look for, table_arrray is the table, col_index_num is the column number of the return value, range_lookup signifies if the match is exact or approximate. range_lookup can be TRUE/FALSE or 0/1.

In VBA code, the VLOOKUP function can be used as:

Application.WorksheetFunction.vlookup(lookup_value, table_array, col_index_num, range_lookup)

How to Use VLookup in Excel VBA?

Below are some examples of VLookup Code in Excel VBA.

VLookup Code in Excel VBA Example #1

Let us see how we can call the worksheet function VLOOKUP in Excel VBA.

Suppose you have a data of students ID, name and the average marks obtained by them.

Now, you want to look up the marks obtained by a student, with ID 11004.

To lookup for the value, follow the following steps:

Go to the Developer Tab and click on Visual Basic.

Under the VBA window, go to Insert and click on Module.

Now, write the VBA VLOOKUP code. The following VBA VLOOKUP code can be used.

Sub vlookup1()
Dim student_id As Long
Dim marks As Long
student_id = 11004
Set myrange = Range(“B4:D8”)
marks = Application.WorksheetFunction.VLookup(student_id, myrange, 3, False)
End Sub

Firstly, define a student id, which is the value to lookup. Therefore, we define,

student_id = 11004

Next, we define the range in which the value and the return value exist. Since our data is present in the cells B4:D8, we define a range- myrange as:

Set myrange = Range(“B4:D8”)

Finally, we input the VLOOKUP function using the Worksheet function in a variable, marks as:

marks = Application.WorksheetFunction.VLookup(student_id, myrange, 3, False)

In order to print the marks in a message box, let us use the following command:

MsgBox “Student with ID:” & student_id & ” obtained ” & marks & ” marks”

It will return:

Student with ID:11004 obtained 85 marks.

Now, click the run button.

You will notice that a message box will appear in the Excel sheet.

VLookup Code in Excel VBA Example #2

Suppose you have the data of names of employees and their salary. This data is given the columns B and C. Now, you need to write a VBA VLOOKUP code such that given a name of the employee in a cell, F4, the salary of the employee will be returned in the cell G4.

Let us write the VBA VLOOKUP code.

Define the range in which the values are present, i.e., column B and C.

Set myrange = Range (“B:C”)

Define the name of the employee and input the name from the cell F4.

Set name = Range (“F4”)

Define salary as cell G4.

Set salary = Range (“G4”)

Now, call the VLOOKUP function using WorksheetFunction in VBA and input it in salary.Value. This will return the value (output of the Vlookup function) in the cell G4. The following syntax can be used:

salary.Value = Application.WorksheetFunction.VLookup(name, myrange, 2, False)

Now, run the module. The cell G4 will contain the salary of the employee after you run the VBA VLOOKUP code.

Suppose you change the value of cell F4 to “David” in the worksheet and re-run the code, it will return the salary of David.

VLookup Code in Excel VBA Example #3

Suppose you have the data of the employee of your company, having their ID, names, Department, and salary. Using Vlookup in VBA, you want to get the salary details of an employee using his name and department.

Since the vlookup function in excel searches the lookup_value in only a single column, which is the first column of the table_array, it is required that you first make a column containing the “Name” and “Department” of each employee.

In VBA, let us insert the values “Name” and “Department” in column B of the worksheet.

To do this, go to the Developer tab and click Visual Basic. Then go to insert and click on Module to start a new module.

Let us now write code, such that column B contains the values of column D (name) and column E.

The syntax is given as:

Firstly, use a ‘for’ loop from i = 4 since the values are starting from the 4^th row in this case. The loop will continue until the end of the last row of column C. So, the variable i can be used as a row number inside the ‘for’ loop.

Then enter the value to assign for Cell (row_number, column B), which can be given as Cells (i, “B”).Value, as Cell (row_number, column D) & “_” & Cell (row_number, column E).

Suppose you want to assign the cell B5 = D5 & “_” & E5, you can simply use the code as:

Cells(5, “B”).Value = Cells(5, “D”).Value & “_” & Cells(5, “E”).Value

Now, let to look for the lookup value in the array B5:E24, you need to first enter the lookup value. Let us take the value (Name and Department) from the user. To do this,

define three variables, name, department and lookup_val as a string.
Take the name input from the user. Use the code:

name = InputBox (“Enter the name of the employee”)

The content in the input box “Enter the ..” will be displayed in the prompt box when you run the code. The string entered in the prompt will be assigned to the name variable.

Take the department from the user. The can be done similarly as above.

department = InputBox (“Enter the department of the employee”)

Assign the name and department with “_” as a separator to the variable lookup_val using the following syntax:

lookup_val = name & “_” & department

Write the vlookup syntax to search for the lookup_val in range B5:E24 return it in a variable salary.

Initialize the variable salary:

Dim salary As Long

Use the Vlookup function to find the lookup_val. The table_array can be given as Range(“B:F”) and the salary is present in the 5^th column. The following syntax can thus be used:

salary = Application.WorksheetFunction.VLookup(lookup_val, Range (“B:F”), 5, False)

To print the salary in a message box, use the syntax:

MsgBox (The salary of the employee is ” & salary)

Now, run the code. A prompt box will appear in the worksheet in which you can enter the name. After you enter the name (Say Sashi) and click OK.

It will open another box in which you can enter the department. After you enter the department, say IT.

It will print the salary of the employee.

If the Vlookup can find any employee with the name and department, it will give an error. Suppose you give the name “Vishnu” and department “IT”, it will return Run-time error ‘1004’.

To address this issue, you can specify in the code, that on this type of error, print “Value not found” instead. To do this,

Before using the vlookup syntax, use the following code-

On Error GoTo Message

Check:

The trailing code (of Check:) will be monitored, and if it receives any error, it will go to the “message” statement

At the end of the code (Before End Sub), specify that if the error number is 1004, then print in the message box “Employee data not present”. This can be done using the syntax:

Message:

If Err.Number = 1004 Then

MsgBox (“Employee data not present”)

End If

Module 1:

Sub vlookup3()
For i = 4 To Cells(Rows.Count, “C”).End(xlUp).Row
Cells(i, “B”).Value = Cells(i, “D”).Value & “_” & Cells(i, “E”).Value
Next iDim name As String
Dim department As String
Dim lookup_val As String
Dim salary As Longname = InputBox(“Enter the name of the employee”)
department = InputBox(“Enter the department of the employee”)
lookup_val = name & “_” & departmentOn Error GoTo Message
check:
salary = Application.WorksheetFunction.VLookup(lookup_val, Range (“B:F”), 5, False)
MsgBox (“The salary of the employee is ” & salary)Message:
If Err.Number = 1004 Then
MsgBox (“Employee data not present”)
End IfEnd Sub

Things to Remember About VLookup in Excel VBA

The Vlookup function can be called in Excel VBA by using WorksheetFunction.
The syntax of vlookup function remains the same in Excel VBA.
When VBA vlookup code cannot find the lookup_value, it will give 1004 error.
The error in the vlookup function can be managed using a goto statement if it returns an error.

You can download this VLookup in Excel VBA template here –VLookup in Excel VBA Template

VLookup in VBA Excel