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