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.
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.
Suerte, Javier