Re: Check cells content based on condition
see if this code helps
Code
Sub chkdc()
Set myrange = Sheet1.Range("C4", Range("C" & Rows.Count).End(xlUp))
For Each cell In myrange
If cell.Value = "DC" And cell.Offset(1, 0).Value <> "DC" And cell.Offset(-1, 0).Value <> "DC" Then cell.Offset(0, 7) = "ERROR"
If cell.Value = "DC" And cell.Offset(-1, 0).Value = "DC" Then
If cell.Offset(0, 2).Value <> cell.Offset(-1, 2) Or cell.Offset(0, 3).Value <> cell.Offset(-1, 3) Or cell.Offset(0, -2).Value <> cell.Offset(-1, -2) Then
cell.Offset(0, 7) = "ERROR"
cell.Offset(-1, 7) = "ERROR"
End If
End If
Next cell
End Sub
Display More