CONTARCOLOR

[tania]

Buenos dias,

tengo creada la función ContarColor, pero me cuenta todas las celdas de ese color, y lo que necesito es que me cuente solo las que tienen datos, alguien podría ayudarme.

Graciasexcel.2.xlsm

[Antoni]

Function CONTARCOLOR(celdaOrigen As Range, rango As Range)
 
Application.Volatile
 
'Variables
Dim celda As Range
 
'Recorremos todas las celdas del rango
For Each celda In rango
 
'Compara la propiedad Interior.Color
If celda.Interior.color = celdaOrigen.Interior.color And celda <> "" Then
   CONTARCOLOR = CONTARCOLOR + 1
End If
 
Next celda
 
End Function