Macro contar colores no me funciona??

1 post / 0 nuevos
eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 1 mes 1 día
Nivel 1 - 200 puntos
alta: 29/08/2017 - 17:21
Puntos: 1675
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.