For
i = 2
To
4
If
Cells(4, i).Value >= Cells(5, i)
Then
Cells(4, i).Interior.ColorIndex = 43
Else
Cells(4, i).Interior.ColorIndex = 45
End
If
If
Cells(9, i).Value >= Cells(10, i)
Then
Cells(9, i).Interior.ColorIndex = 43
Else
Cells(9, i).Interior.ColorIndex = 45
End
If
If
Cells(14, i).Value >= Cells(15, i)
Then
Cells(14, i).Interior.ColorIndex = 43
Else
Cells(14, i).Interior.ColorIndex = 45
End
If
Next