Error in vlookup function

[rdev]

Can someone help me , I am getting error with this 2nd line of code
If Sheets(1).Cells(x, 2).Value = Sheets(2).Name Then
Sheets(1).Cells(x, 4).Value = Application.WorksheetFunction.VLookup(Sheets(1).Cells(x, 4), Sheets(2).Range("E6:F30"), 2, False)
Else
Sheets(1).Cells(x, 4).Value = 0
End If

 

[Jonmo1]

There is nothing 'Wrong' with the code syntactically.

What error do you get?

It could just be that the value in Sheets(1).Cells(x, 4) doesn't exist in Sheets(2).Range("E6:E30")
Basically the same as an #N/A error from Vlookup formula in a cell.

 

[Jonmo1]

Often those #N/A errors are expected in a small percentage of cells you do the vlookup on.
In a formula you normally use an iferror type of function to handle that.
=IFERROR(vlookup(..),"")

In VBA, try like this

Dim MyVariable
If Sheets(1).Cells(x, 2).Value = Sheets(2).Name Then
   MyVariable = Application.VLookup(Sheets(1).Cells(x, 4), Sheets(2).Range("E6:F30"), 2, False)
   If Not IsError(MyVariable) Then
       Sheets(1).Cells(x, 4).Value = MyVariable
   End If
Else
    Sheets(1).Cells(x, 4).Value = 0
End If