Puoi fare cosi':
-inserisci il seguente codice in un Modulo vba:
- Codice: Seleziona tutto
Function GetFontColor(Cell As Range)
Application.Volatile
GetFontColor = Cell.Font.ColorIndex
End Function
(apri il vba editor con Alt-F11, poi Menu /Inserisci /Modulo; copi il codice e lo incolli nel frame di destra)
-in una colonna vuota adiacente alla prima cella che contiene il testo da verificare inserisci la formula
- Codice: Seleziona tutto
=GetFontColor(A2)
poi copi la formula (Contr-c) e la incolli nelle celle sottostanti per quante righe serve (selezioni tutte le celle, poi Contr-v)
In questo modo avrai ottenuto una colonna di servizio con "l' indice di colore" del testo delle celle, e su questa colonna userai il CONTA.SE
Fai sapere se risolvi...
Ciao