Contar color ¿Formato condicional?
Publicado por Orion (4 intervenciones) el 13/02/2018 13:15:21
Buenos días.
Tengo declarada la siguiente función:
Que lo que hace es contar las celdas que hay en un rango de un determinado color.
El caso es que me funciona correctamente si el color de las celdas lo he puesto manualmente, pero no funciona si el color de las celdas es generado por un formato condicional.
Seguro que es una tontería, pero he probado de mil maneras, y no consigo que funcione.
Muchas gracias de antemano.
Tengo declarada la siguiente función:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function ContarColor(Color As Range, Rango As Range) As Integer
' Color: La celda que contiene el color a contar
' Rango: El rango de Celdas a considerar en el conteo
Dim Resultado
Dim Celda As Range
Resultado = 0For Each Celda In Rango
If Celda.Interior.ColorIndex = Color.Interior.ColorIndex Then
Resultado = Resultado + 1
End If
Next
ContarColor = ResultadoEnd Function
Que lo que hace es contar las celdas que hay en un rango de un determinado color.
El caso es que me funciona correctamente si el color de las celdas lo he puesto manualmente, pero no funciona si el color de las celdas es generado por un formato condicional.
Seguro que es una tontería, pero he probado de mil maneras, y no consigo que funcione.
Muchas gracias de antemano.
Valora esta pregunta
0