VBA Code:
Dim aRng, bRng As Range
Set aRng = Range("AC5:A175")
Set bRng = Range("AD5:AD175")
For Each aCell In aRng
For Each bcell In bRng
If aCell Like "true" And bcell Like "false" Then
bcell.Interior.ColourIndex = 3
Else: bcell.Interior.ColourIndex = 10
End If
Next
For Each cCell In aRng
For Each dcell In bRng
If cCell = "yes" And dcell = "no" Then
dcell.Interior.ColourIndex = 3
Else: dcell.Interior.ColourIndex = 10
End If
Next
For Each eCell In aRng
For Each fcell In bRng
If eCell Like "good" And fcell Like "bad" Then
fcell.Interior.ColourIndex = 10
Else: fcell.Interior.ColourIndex = 3
End If
Next
For Each gCell In aRng
For Each hcell In bRng
If gCell Like "N/A" Then
hcell.Interior.ColourIndex = 10
End If
Next
For Each iCell In aRng
For Each jcell In bRng
If jcell Like "sucks" Then
jcell.Interior.ColourIndex = 3
End If
Next
End Sub
Last edited by a moderator: