VBA - Multiple AND within IF statements

[Ananthak275]

This is part of a code that i keep getting an error on

Its going into each column, looking if the previous value in the column is the same as the current. All three have to be true

If (source.Sheets(1).Cells(j, ColumnA).Value = source.Sheets(1).Cells(j - 1, ColumnA).Value)
AND source.Sheets(1).Cells(j, ColumnB).Value = source.Sheets(1).Cells(j - 1, ColumnB).Value
AND (source.Sheets(1).Cells(j, ColumnC).Value = source.Sheets(1).Cells(j - 1, ColumnC).Value) THEN a = 2

Error: Expected: line number or label or statement or end of statement

 

[JackDanIce]

Missing brackets in green:

If (source.Sheets(1).Cells(j, ColumnA).Value = source.Sheets(1).Cells(j - 1, ColumnA).Value)
(AND source.Sheets(1).Cells(j, ColumnB).Value = source.Sheets(1).Cells(j - 1, ColumnB).Value)
AND (source.Sheets(1).Cells(j, ColumnC).Value = source.Sheets(1).Cells(j - 1, ColumnC).Value) THEN a = 2


Try replacing all of that with:

With source.Sheets(1)
        If .Cells(j, columnA).Value = .Cells(j - 1, columnA).Value And _
            .Cells(j, ColumnB).Value = .Cells(j - 1, ColumnB).Value And _
            .Cells(j, ColumnC).Value = .Cells(j - 1, ColumnC).Value Then a = 2
        End If
    End With