contar celdas por color

[soda1206]

Buenas tardes foreros, he buscado información en la web para contar celdas según su color, pero la función "CONTARCOLOR" no me funciona, alguien sabe cómo puedo contar celdas con un color específico en  un rango dado??

[Israel Cassales]

Yo hice una tarea así hace un tiempo.

Solo pega la función en un modulo

Function ContarColor(celdaColor As Range, rangoContar As Range) As Long
    Dim celda As Range
    Dim colorCelda As Long
    Dim contador As Long
    
    colorCelda = celdaColor.Interior.ColorIndex
    
    For Each celda In rangoContar
        If celda.Interior.ColorIndex = colorCelda Then
            contador = contador + 1
        End If
    Next celda
    
    ContarColor = contador
End Function

Por ejemplo, si la celda A1 tiene el color a contar y el rango a tomar en cuenta para contar las celdas que tengan el mismo color es el rango B1:B10, entonces la fórmula sería:

=ContarColor(A1,B1:B10)

Saludines.

[Israel Cassales]

[soda1206]

excelente estimado @Israel Cassales!!!,  agradezco mucho tu pronta respuesta, es lo que necesito amigo, hasta pronto y muchas gracias. doy tema como solucionado.?

[Israel Cassales]

Ah mira, qué bien que te haya servido.

¡Hasta la próxima!