formattazione primo in elenco

[marcoc]

ciao a tutti,
ho un file con in colonna A una serie di anni, che si ripetono (es. 2003, 2010, 2004, 2001, 2009, 2004, 2003, 2008...); come faccio a formattare con testo verde il primo in alto non ripetuto? nell'esempio dovrebbero formattarsi solo i primi 5 e l'ultimo.
grazie

[Anthony47]

Seleziona l'area destinata a contenere i numeri da A1 verso il basso, possibilmente non tutta la colonna; poi avvia la formattazione condizionale usando la condizione "Usa una formula"; come formula inserisci

Codice: Seleziona tutto

=CONTA.SE($A$1:$A1;A1)=1

Applica la formattazione preferita e chiudi con Ok

Fai sapere...

[marcoc]

grazie, ma ho paura che mi si scombina se dovessi spostare delle righe nell'intervallo; nel mio file mi capiterebbe spesso; non si perde la formattazione?

[Anthony47]

Si, se muovi le righe o le celle su e giu' la formattazione puo' andare in tilt.
Allora potresti usare una macro; ad esempio, da inserire in un Modulo standard del vba:

Codice: Seleziona tutto

Sub OnlyOne()
Dim I As Long
For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Application.WorksheetFunction.CountIf(Range("A1").Resize(I, 1), Cells(I, 1).Value) = 1 Then
        Cells(I, 1).Font.Color = vbGreen
    Else
        Cells(I, 1).Font.Color = vbBlack
    End If
Next I
End Sub


Ovviamente la devi avviare in qualche modo; sconsiglio di agganciarla a un evento quale WorksheetChange, salvo che le celle coinvolte in colonna A siano poche decine.

Ciao