Recuento por Color y Valor de celda en Excel

Código

Function IB·RecuentoColorValor(Celda·con·Color·a·Contar As Range, Rango As Range, Optional ContarValor As Boolean = False) As Double

Dim c As Range, R As Long

R = 0

For Each c In Rango

If c.Interior.Color = Celda·con·Color·a·Contar.Interior.Color Then

If ContarValor Then

If c.Value = Celda·con·Color·a·Contar.Value Then

R = R + 1

End If

Else

R = R + 1

End If

End If

Next c

IB·RecuentoColorValor = R

End Function