ciao
la UDF va modificata in questoModo
Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim cel As Variant
Dim colore As Long
Dim conta As Double
colore = criteria.Interior.ColorIndex
For Each cel In range_data
If cel.Interior.ColorIndex = colore Then
conta = conta + cel.Value
End If
Next
CountCcolor = conta
End Function
utilizzo
=CountCcolor($D$4:$D$15;F4)
il range da cercare ; la cella colorata per rilevare il colore
Riallego il tuo file
questo se non sai il numero del colore da cercare
invece se sai il valore del numero cercare va modificata diversamente
fai sapere
Ciao da locate
excel 2007 / 13