Excel - Macro contar colores no me funciona??

Hola buenas.

En columnas tengo formato condicional rellenado celdas en un color, ahora no me funciona la macro para contar colores en celdas ?????

Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function

Con formula en celda X
=CountCcolor($A$3:$A$33;$D$38)

Un Saludo.

El color de una celda que se aplica a través del Formato Condicional no se puede buscar mirando el color de la Celda porque esta característica no cambia, aunque visualmente de la sensación de que si cambia, internamente se tratan de forma diferente.

Si la condición es que las celdas cuyo valor es menor de 25 se pongan rojas, NO tienes que contar las celdas en color rojo, tienes que contar las celdas cuyo valor es menor a 25.

Saludos.
\\//_

Hola .

encontre esto y me funciona.
Sub No_Colores_en_Celdas()

Celda_con_el_Color = ActiveCell.DisplayFormat.Interior.Color
For columna = 1 To 1
For Renglon = 3 To 33

If Cells(Renglon, columna).DisplayFormat.Interior.Color = Celda_con_el_Color Then

Contador = Contador + 1

End If
Next Renglon
Next columna

Range("D38") = Contador

End Sub

Un Saludo.