Contare le celle colorate in Excel con il VBA

[@francescoiacoangeli250]

Buonasera avevo bisogno di contare all 'interno di un intervallo le celle colorate da una formattazione condizionata con questa funzione non vede i colori derivanti da formattazione condizionata... si puo fare una modifica?

[@excelpertutti]

Ciao Francesco, la soluzione proposta nel video non funziona con la formattazione condizionale. La modifica non funziona. Per contare le celle con formattazione è necessaria una macro ma non una UDF

[@DavideFabris95]

Ricopiata pari pari, a me da errore di sintassi (#NOME?), impossibile eseguire la macro. Cosa può esserci di errato? Grazie

[@excelpertutti]

Ciao Davide, all'interno del video ho dato per scontato che il file dovesse essere salvato con formato .xlsm ovvero come cartella di lavoro contenente le macro. Pertanto prima di eseguire la macro salva il file nel formato che ti ho suggerito. L'errore che visualizzi è dovuto al fatto che Excel non trova il nome della funzione all'interno delle sue librerie

[@DavideFabris95]

@@excelpertutti ciao, grazie per la risposta. Ho salvato il file come xlsm e scrivendo =ContaCelle..... mi suggerisce il nome completo ContaCellePerColore, quindi lo trova... però poi non va... -_-"

[@excelpertutti]

Ciao Davide, ho provato il codice e funziona correttamente ... ti invio il codice completo: '======================================================================= Function ContaCelleColorate(CellaColore As Range, Intervallo As Range) As Long Dim Cella As Range Dim Colore As Long, Totale As Long Application.Volatile Colore = CellaColore.Interior.Color For Each Cella In Intervallo If Cella.Interior.Color = Colore Then Totale = Totale + 1 End If Next Cella ContaCelleColorate = Totale End Function '======================================================================= La funzione ContaCelleColorate ha due argomenti CellaColore e Intervallo così come indicato nel video. Prova il codice e fammi sapere 😉

[@faustosabbadin8186]

Buon giorno, si può contare le celle colorate con la funzione formattazione condizionale, perchè ho provato con questo esempio ma non funziona. Grazie

[@excelpertutti]

Salve Fausto, la formattazione condizionale purtroppo non permette di effettuare il conteggio delle celle colorate. È necessario verificare che le macro siano attive o verificareche il codice sia scritto correttamente. L'esempio l'ho testato personalmente prima di effettuare il video

[@faustosabbadin8186]

Ok grazie

[@vittoriorago3532]

Grazie mille per questo tutorial molto utile! Se invece volessi effettuare il conteggio di celle colorate che al loro interno contengono un dato specifico? Esempio banale: Contare tutte le celle rosse contenenti il nome "GIULIO" Grazie dell'aiuto!

[@excelpertutti]

Ciao Vittorio, grazie! Ecco la macro modificata in modo da contare tutte le celle in base a colore e valore. Ho aggiunto una nuova variabile: Dim Valore As String Valore = CellaColore.Value ========================================================= Function ContaCelleColorate(CellaColore As Range, Intervallo As Range) As Long Dim Cella As Range Dim Colore As Long, Totale As Long Dim Valore As String Application.Volatile Colore = CellaColore.Interior.Color Valore = CellaColore.Value For Each Cella In Intervallo If Cella.Interior.Color = Colore And Cella.Value = Valore Then Totale = Totale + 1 End If Next Cella ContaCelleColorate = Totale End Function =========================================================

[@cro732]

ciao , ho copiato il codice, ma mi esce errore: Option Explicit Function ContaCelleColorate(CellaColore As Range, Intervallo As Range) As Long Dim Cella As Range Dim Colore As Long, Totale As Long Application.Volatile Colore = CellaColore.Interior.Color For Each Cella Intervallo If Cella.Interior.Color = Colore Then Totale = Totale + 1 End If Next Cella ContaCelleColorate = Totale End Function dove errore? grazie

[@excelpertutti]

Ciao, puoi indicarmi il tipo di errore che ti compare?

[@cro732]

@@excelpertutti l'errore l'ho risolto, però non si aggiorna quando modifica il valore. Application.voĺatile , mi sa messo da un'altra parte

[@excelpertutti]

Posiziona Application.Volatile prima della dichiarazione delle variabili

[@cro732]

@@excelpertutti scusa se ti disturbo ancora. Function ContaCelleColorate(CellaColore As Range, Intervallo As Range) As Long Application.Volatile Dim Cella As Range Dim Colore As Long, Totale As Long Colore = CellaColore.Interior.Color For Each Cella In Intervallo If Cella.Interior.Color = Colore Then Totale = Totale + 1 End If Next Cella ContaCelleColorate = Totale End Function Non va , dove ho sbagliato. ??!

[@excelpertutti]

Ciao, nessun disturbo figurati. Mi sembra corretto il codice...tuttavia ti chiedo solo di pazientare qualche giorno in quanto non mi trovo in sede e non ho la possibilità di fare le verifiche. Ti farò sapere nei prossimi giorni

[@rixonida]

Cosa succede se all'interno delle celle abbiamo scritto qualcosa? Vengono comunque contate in base al colore?

[@excelpertutti]

Ciao Riccardo, la macro si basa esclusivamente sul conteggio del colore indipendentemente dal contenuto

[@eliseiblendea6838]

Come faccio invece a sommare i valori all'interno delle celle colorate? Vorrei riuscire a sommare i valori contenenti nelle celle gialle, poi in un'altra cella sommare i valori contenenti in quelle verdi. Come faccio?

[@excelpertutti]

Ciao Elisei, per sommare le celle devi modificare la parte della macro in cui è presente il seguente codice presente: invece che ... Totale = Totale + 1 scrivi ... Totale = Totale + Cella.Value Fammi sapere se funziona😉

[@renio85]

@@excelpertutti Ciao innanzitutto grazie mille questa macro mi sarà utilissima. Ho provato a modificare come hai detto e funziona solo che non mi somma i decimali. come mai?

[@renio85]

ho provato a mettere Currency come variabile Totale ma mi arrotonda per eccesso