Excel 2003

[Statix]

Ciao a tutti,
chiedo un favore a chi excel 2003.
Mi servirebbe una macro,che mi fà una formattazione condizionale di un range.
faccio un esempio

Codice: Seleziona tutto

in A1 il valore da evidenziare in rosso nella colonna A5:A500,

io ho excel 2007 e lo fatta è funziona perfettamente,ma quando converto il file in excel 2003 e lo dò agli altri che hanno excel 2003 non mi funziona.
grazie

[Statix]

Questa una delle macro fatta con il registratore di Excel 2007
mi servirebbe in Excel 2003

Codice: Seleziona tutto

Range("AN6:AN905").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=CONTA.SE($AN$3;AN6:AN905)>0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .Pattern = xlPatternRectangularGradient
        .Gradient.RectangleLeft = 0.5
        .Gradient.RectangleRight = 0.5
        .Gradient.RectangleTop = 0.5
        .Gradient.RectangleBottom = 0.5
        .Gradient.ColorStops.Clear
    End With
    With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(0)
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior.Gradient.ColorStops.Add(1)
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
     Range("A1").Select

[Anthony47]

Questa fa una cosa simile, e colora la cella di rosso; ovviamente va adattata al tuo range e alle condizioni:

Codice: Seleziona tutto

    Range("H1:H13").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=CONTA.SE($A$1:$A$14;H1)>0"
    Selection.FormatConditions(1).Interior.ColorIndex = 3


Ciao

[Statix]

Ciao Anthony,
grazie .