Código:
Function eXl_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
eXl_RecuentoColorValor= R
End Function
👉 Como hacer que la UDF (User Defined Functions) esté disponible como una Función Nativa de Excel
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.