View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Peter Atherton Peter Atherton is offline
external usenet poster
 
Posts: 31
Default Conditional Formatting the whole column

Hello Simon

Press ALT F11, Insert Module and paste the following code.

Sub CondFormat()
Dim n As Integer
Cells(2, 1).Select
n = ActiveCell.CurrentRegion.Rows.Count

For i = 2 To n
Cells(i, 1).Select
If ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 2) Then
ActiveCell.Interior.ColorIndex = xlNone
ElseIf ActiveCell.Offset(0, 1).Value ActiveCell.Offset
(0, 2) Then
ActiveCell.Interior.ColorIndex = 3
Else: ActiveCell.Interior.ColorIndex = 41
End If
Next i

End Sub

This produces the results that you showed in the example,
change the index values if you want to swap them.

It also leaves the formatting blank if column 3 and column
2 values are the same. Delete this line if you do not want
this and change the ElseIf to If

Run the Macro from the Tools, Macro, Run menu in Excel.

Regards
Peter
-----Original Message-----
Is it possible to apply Conditional Formatting to cells

in
a column, each with there own formula.

dog 1 2
cat 2 5
cow 5 3
rat 13 1

I would like to highlight each cell in the first column
red or blue depending on which of the two number columns
is greater.
Red if the 3rd column is greater and blue is the second
column is greater.

Results:

dog - blue
cat - blue
cow - red
rat - red

Thank you for any help.


Simon


.