Saltar al contenido

contar celdas por color

publicado

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??

Featured Replies

publicado

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.

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.