Unable to get the Match property of the WorksheetFunction class

[BoyBoy]

Hello,
I was trying to run the following code:

Set e = Sheets("Sheet1")
Set i = Sheets("Sheet2")

Dim d
Dim j
d = 1
j = 2

Do Until IsEmpty(e.Range("CH" & j))

If e.Range("CH" & j) <> "" Then
d = d + 1
e.Cells(d, 3).Value = "VI"

e.Cells(d, 4).Value = Application.WorksheetFunction.Index(i.Range("F:F"), Application.WorksheetFunction.Match(Cells(j, 84).Value, i.Range("N:N"), 0))
e.Cells(d, 4).Value = e.Cells(d, 4).Value
e.Cells(d, 5).Value = Application.WorksheetFunction.Index(i.Range("E:E"), Application.WorksheetFunction.Match(Cells(j, 84).Value, i.Range("N:N"), 0))
e.Cells(d, 5).Value = e.Cells(d, 5).Value
If e.Cells(d, 8).Value = Application.WorksheetFunction.Index(i.Range("G:G"), Application.WorksheetFunction.Match(Cells(j, 84).Value, i.Range("N:N"), 0)) = "" Then
e.Cells(d, 8).Value = ""
Else: e.Cells(d, 8).Value = Application.WorksheetFunction.Index(i.Range("G:G"), Application.WorksheetFunction.Match(Cells(j, 84).Value, i.Range("N:N"), 0))
e.Cells(d, 8).Value = e.Cells(d, 8).Value
End If
If e.Cells(d, 8).Value = "" Then
e.Cells(d, 10).Value = ""
Else: e.Cells(d, 10).Value = e.Cells(d, 8).Value - Weekday(e.Cells(d, 8).Value, 3) + 2
e.Cells(d, 10).Value = e.Cells(d, 10).Value
End If

End If
j = j + 1
Loop

End Sub

But received this error

Can anyone please advise what's wrong with my Index & Match function above?
Thanks in advance.

Boyboy

 

[BoyBoy]

yes

 

[MARK858]

What do you get with

Sub ddddd()
    Set e = Sheets("Sheet1")
    Set i = Sheets("Sheet2")

    Dim d
    Dim j
    d = 1
    j = 2

    Do Until IsEmpty(e.Range("CH" & j))

        If e.Range("CH" & j) <> "" Then
            d = d + 1
            e.Cells(d, 3).Value = "VI"

            e.Cells(d, 4).Value = Application.Index(i.Range("F:F"), Application.Match(e.Cells(j, 84).Value, i.Range("N:N"), 0))
            e.Cells(d, 4).Value = e.Cells(d, 4).Value
            e.Cells(d, 5).Value = Application.Index(i.Range("E:E"), Application.Match(e.Cells(j, 84).Value, i.Range("N:N"), 0))
            e.Cells(d, 5).Value = e.Cells(d, 5).Value
            If e.Cells(d, 8).Value = Application.Index(i.Range("G:G"), Application.Match(e.Cells(j, 84).Value, i.Range("N:N"), 0)) = "" Then
                e.Cells(d, 8).Value = ""
            Else: e.Cells(d, 8).Value = Application.Index(i.Range("G:G"), Application.Match(e.Cells(j, 84).Value, i.Range("N:N"), 0))
                e.Cells(d, 8).Value = e.Cells(d, 8).Value
            End If
            If e.Cells(d, 8).Value = "" Then
                e.Cells(d, 10).Value = ""
            Else: e.Cells(d, 10).Value = e.Cells(d, 8).Value - Weekday(e.Cells(d, 8).Value, 3) + 2
                e.Cells(d, 10).Value = e.Cells(d, 10).Value
            End If

        End If
        j = j + 1
    Loop

End Sub

 

[BoyBoy]

now I am getting

also cell E2 & D2 both returning error value, which should not be

 

[MARK858]

That line of yours makes no sense as you are trying to test 2 conditions without either an And or an Or.
If you are getting #N/A as a result then you need to step through your code using F8 and see exactly what the Values of your cells are as you step through.

 

[BoyBoy]

Thanks so much, I have another urgent project to finish, will review my code later.
Have a great night!
BoyBoy