Unable to get the VLookup property of the WorksheetFunction class

[linxd]

I have these codes

If Application.WorksheetFunction.VLookup(Cells(i, "AI").Value & Cells(i, "AH").Value, Sheets("WS rules").Range("D75:E284"), 2, 0) = "Y" Then
            If Cells(i, "O").Value = "2" Or Cells(i, "O").Value = "3" Or Cells(i, "O").Value = "4" Or Cells(i, "O").Value = "5" Or Cells(i, "O").Value = "R" Then
                Cells(i, "AT").Value = "Y"
            Else
                If Cells(i, "AS").Value < Application.WorksheetFunction.VLookup(Cells(i, "AG").Value & Left(Cells(i, "B").Value, 1), Sheets("WS rules").Range("F5:I64"), 3, 0) Then
                    Cells(i, "AT").Value = "Y"
                Else
                    Cells(i, "AT").Value = "N"
                End If
            End If
            
            
            If Application.WorksheetFunction.VLookup(Cells(i, "AI").Value & Cells(i, "AH").Value, Sheets("WS rules").Range("D75:E284"), 2, 0) = "Y" And Cells(i, "O").Value = "5" Then
                Cells(i, "AY").Value = "Y"
            Else
                If Cells(i, "AX").Value < Application.WorksheetFunction.VLookup(Cells(i, "AG").Value & Left(Cells(i, "B").Value, 1), Sheets("WS rules").Range("F5:I64"), 4, 0) Then
                    Cells(i, "AY").Value = "Y"
                Else
                    Cells(i, "AY").Value = "N"
                End If
            End If
            
        Else
            Cells(i, "AT").Value = "N"
        End If

If Application.WorksheetFunction.VLookup(Cells(i, "AG").Value & Left(Cells(i, "B"), 1), Sheets("WS rules").Range("F5:J64"), 5, False) = "Y" Then
            Cells(i, "AZ").Value = Cells(i, "AY").Value
        Else
            Cells(i, "AZ").Value = Cells(i, "AT").Value
        End If

But kept getting that error for VLookup. How do I fix the problem?

 

[Jonmo1]

Welcome to the board.

That error is pretty much the equivilent of getting #N/A with a Vlookup formula in a cell.
Now we know that this error is sometimes expected.

The difference in VBA is that the error actually stops the code from running.

We can remove the worksheetfunction part, and assign the result of the vlookup to a variable.
Then test that variable for error in your If

Something like this

MyVariable = Application.Vlookup(........)
If IsError(MyVariable) Then
     'Do nothing
Else
    If MyVariable = "Y" Then
        Cells(i, "AZ").Value = Cells(i, "AT").Value
    End If
End If

 

[wideboydixon]

Is it possible that there's no corresponding value and the VLOOKUP is not finding a match?

WBD