Foro Excel

Necesito una fórmula que sume las celdas de un mismo color y con un valor numérico dentro de un rango, es decir, si en varias celdas de un rango tengo como valoir 1 y el fondo de éstas es de color rojo, que me sumen dichas celdas y valor.

Estimado:

Este tema se ha tratado ya en el Foro (tanto Adrian como Inocampo y demas moderadores han aportado diferentes soluciones al tema, UDF, MACROS, ETC...) una de tantas es esta:


Function subtotalcolor(rango, color) ' rango=Rango a sumar, color= Referencia a celda con color
For Each celda In rango
If celda.Interior.ColorIndex = color.Interior.ColorIndex Then
subtotalcolor = subtotalcolor + celda.Value
End If
Next
End Function

Salu2