Ho bisogno di evidenziare le scadenze con la medesima data,
evidenziandole con colore diverso ogni volta che la data cambia.
Quindi un codice che "ad ogni" cambio di data, faccia colorare le
righe con la stessa data, e così via per tutto il foglio fino alla
fine dei dati.
Sapete suggerirmi un codice??
Grazie!!
Ho bisogno di evidenziare le scadenze con la medesima data,
evidenziandole con colore diverso ogni volta che la data cambia.
Quindi un codice che "ad ogni" cambio di data, faccia colorare le
righe con la stessa data, e cosě via per tutto il foglio fino alla
fine dei dati.
--------------------------
RISPOSTA
Ciao Giulio,
se va bene usare solo 2 colori alternati mediante formattazione
condizionale, prova a prendere spunto dal Thread:
"evidenziare righe con articolo uguale utilizzando solo due colori" ::
cucchiaino :: 25/05/2005
http://www.google.it/groups?threadm=xn0e2o55...@powernews.libero.it
--
Ciao,
Ignazio
RIO: www.riolab.org
Anche se l'argomento è sviscerato in profondità, vorrei proporre una
mia soluzione, forse meno elegante perché fa implicitamente uso del
formato matriciale ma lo stesso funzionante. Per un elenco dati in
B2:B10, posizionarsi in B2:
Formato -> Formattazione condizionale -> La formula è ->
=resto(SOMMA((1-(B$2:B2=B$1:B1)));2)=1
>
> Ciao Giulio,
> se va bene usare solo 2 colori alternati mediante formattazione
> condizionale, prova a prendere spunto dal Thread:
>
> "evidenziare righe con articolo uguale utilizzando solo due colori" ::
> cucchiaino :: 25/05/2005
> http://www.google.it/groups?threadm=xn0e2o55fz8i0...@powernews.libero.it
>
GRAZIE MILLE!!
Facendo "ricerca" non avevo trovato questa discussione.
Per comodità, a chi interessa, riporto il codice VBA per chi volesse
impostarla come macro:
Sub evidenziauguali()
Dim r As Long, p As String, k As Byte
r = 2
p = Cells(r, 2).Value
k = 35
While Cells(r, 2).Value <> ""
If Cells(r, 2).Value <> p Then
If k = 35 Then
k = 36
Else
k = 35
End If
p = Cells(r, 2).Value
End If
Range(Cells(r, 1), Cells(r, 4)).Interior.ColorIndex = k
r = r + 1
Wend
End Sub
in questo modo colora di verdino e di giallino le righe che presentano
gli stessi valori nella seconda colonna.
Di nuovo grazie!