View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
GregK GregK is offline
external usenet poster
 
Posts: 10
Default Code in 2003 not working in 2007

Below is part of my code from a macro that worked fine in 2003, but does not
work the same in 2007. In 2003, the code would filter a certain field and
change the interior cell color of only the visibile cells with in the
selection. In 2007, it changes the color of all the cells with in the range
specified (A6:AC3610). Why is this different in 2007 and how do I correct
it. Any help is greatly appreciated. Thanks.

Range("A6:ac3610").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF($A6<"""",IF($G6=2,$aa6=1.1,$aa60))"
Selection.FormatConditions(1).Font.ColorIndex = 50
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF($A6<"""",IF($G6=2,$aa6<2,$aa6<1))"
Selection.FormatConditions(2).Interior.ColorIndex = 3


' Filters spread sheet

Selection.AutoFilter Field:=27, Criteria1:="<1.1", Operator:=xlAnd

' Changes color on visible cells within my range

With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With