Soluciones MS Excel VBA

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