[Risolto] Contare in una colonna le celle che hanno la stessa parola e lo stesso colore.

ciao

se li colori a mano ci vuole il vba

e mi sembra le macro tu le abbia.in F2

=ContaCellePerColore($D$2:$D$1000;F2)

poi la copi in quelle sotto

oppure devi mettere una colonna con i metri e usare quella

ma scusa perchè

sopra i 1000 metri perimetrati

hai due colori?

@gianfranco55 

Si è stato un errore, il celeste è per i perimetri sopra i 1000 metri da perimetrare.

Una formula simile a quella che mi hai suggerito, la utilizzo già per la conta dei colori;

uso questa

=ContaCellePerColore(E:E;F913)

e questa è quella che uso per contare quante volte è presente il nome del paese nella colonna

=CONTA.SE(E:E;"ROMA")

a me servirebbe una formula che unisca queste due assieme, cioè che conti quante volte è presente il nome del paese in base al colore che ha lo sfondo della cella.

Ti ringrazio per l'interessamento.

Saluti

Daniele

ciao

scrivi il nome in I2..............poi lo metti dove vuoi

Function ContaCellePerColore(rData As Range, cellRefColor As Range) As Long
    Dim indRefColor As Long
    Dim cellaCorrente As Range
    Dim cntRes As Long
 
    Application.Volatile
    cntRes = 0
    indRefColor = cellRefColor.Cells(1, 1).Interior.Color
    For Each cellaCorrente In rData
        If indRefColor = cellaCorrente.Interior.Color And cellaCorrente = Range("I2") Then
            cntRes = cntRes + 1
        End If
    Next cellaCorrente
 
    ContaCellePerColore = cntRes
End Function

c'è una cosa da fare prima però

devi eliminare tutti gli spazi che hai davanti e dietro alle parole

fai così in una cella scrivi

=ANNULLA.SPAZI(B2)

e tirala in giù.

poi copi la lista e la incollo come valore in B2

poi la classica

=ContaCellePerColore($B$2:$B$500;F2)

ecco che ti conta le celle per il colore e per la parola che hai scritto in I2

@gianfranco55 

Perfetto, funziona alla grande, ti ringrazio tantissimo.

Daniele

ciao

felice di esserci riuscito

gentilmente chiudi la discussione

grazie