Función CUENTACOLOR para contar celdas con colores.

Este archivo contiene la función personalizada CUENTACOLOR y sirve para contar celdas que contengan un determinado color de un reporte.

CODIGO:

Function CUENTACOLOR(RangoColor As Range, CeldaColor As Range) As Long
'''''Soluciones MS Excel VBA'''''''
Dim rngCelda As Range
CUENTA = 0

For Each Celda In RangoColor


If Celda.Interior.ColorIndex = CeldaColor.Interior.ColorIndex And IsNumeric(Celda) Then
CUENTA = CUENTA + 1
End If

Next
CUENTACOLOR = CUENTA
End Function

Puedes descargar el libro de trabajo utilizado en este artículo y reutilizar las funciones