Conteggio celle con testo rosso

[SergioPartecipante Sergio]

Buongiorno sarebbe possibile tramite formula conteggiare le celle di una colonna specifica il cui testo è di color rosso? 

Nello specifico vorrei contare le celle contenute nell'intervallo B5:b20 solo se in rosso

Sum(b5:b20)

Grazie

[PMC77Partecipante PMC77 Karma: 18 pts]

Sub ContaCol()

    Dim Row As Integer
    Dim RowMax As Integer
    Dim ColCell As Integer
    Dim ShFoglio As Worksheet
    Set ShFoglio = ThisWorkbook.Worksheets("NomeFoglio")
    
    Row = 5             ' Sostituire con la Riga da cui vuoi iniziare
    RowMax = 20         ' Sostituire con la Riga a cui vuoi terminare
    
    ColCell = 0
    
    While Row <= RowMax
    
        If ShFoglio.Range("B" & Row).Font.ColorIndex = 3 Then
            ColCell = ColCell + 1
        End If
        
        Row = Row + 1
        
    Wend
    
    'In ColCell hai il numero di celle colorate

End Sub

[SergioPartecipante Sergio]

Grazie 1000

[GiuseppeMNPartecipante GiuseppeMN Karma: 19 pts]

Buona giornata, @Sergio Granero;
consentimi un saluto a @pmc77

In lternativa propongo una soluzione senza VBA.

In Cella "B4" inserisci la Formula:

=SUBTOTALE(103;$B$5:$B$20)

Applica il filtro "Filtra per colore Rosso";come da immagine in allegato.

Giuseppe

[SergioPartecipante Sergio]

Ti ringrazio molto

[Autore]

Articoli