Código:
Function eXl_ContarCeldasColores(rango As Range, Referencia As Range) As Long
Dim Celda As Range
Dim Cuenta As Long
Application.Volatile
Cuenta = 0
For Each Celda In rango
If Celda.Interior.Color = Referencia.Interior.Color Then
Cuenta = Cuenta + 1
Next Celda
eXl_ContarCeldasColores = Cuenta
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.