Macro contar colores no me funciona??

2 envíos / 0 nuevos
Último envío
eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 5 meses 1 semana
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.

 

 

Javier Llamas
Imagen de Javier Llamas
Offline
última acción: Hace 1 mes 4 semanas
alta: 19/03/2022 - 09:38
Puntos: 30
Buenas, para saber el color

Buenas, para saber el color de una celda con formato condicional , lo tienes que consultar con 

If datax.DisplayFormat.Interior.ColorIndex = xcolor Then , el problema esta que no la puedes utilizar dentro de funciones con parametros.

Te paso archivo donde con una llamada a otra función de una forma especial, resuelve el problema.



AdjuntoTamaño
File cuentacolores_v2.xlsm17.7 KB

Suerte, Javier