MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Cell Entry Color

Posted by hbendillo on January 07, 2002 11:12 AM

I would like to write a macro or function that compares entries in two cells and colors one of the entries red based on the result. Here is something that I came up with that does not quite work. Perhaps it will give you a better idea of what I am trying to do:

Sub Test BusSize()
If DemandAmps > BusSize Then BusSize.Interior.ColorIndex=3
Else BusSize.Interior.ColorIndex=xlnone\

It is the entry in cell "E9" that I want to change to red, not the background color of the cell. I have to do a number of times in a chart and so will repeat the if statement for each occurence. Thanks.

Posted by Scott on January 07, 2002 12:02 PM

Try this:

Sub Test()

If Range("H9").Cells > Range("E9").Cells Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Interior.ColorIndex = xlNone
End If

End Sub

Posted by Scott on January 07, 2002 12:04 PM

Typo = Change ColorIndex to 3 (NT)

Posted by Herb B. on January 07, 2002 12:58 PM

Re: Typo = Change ColorIndex to 3 (NT)

Thanks. This works.