Sumar celdas en excel por color

...

Para ello vamos a “Programador”, “Visual Basic” e insertamos un nuevo modulo [Esto para office 2007]

En office 2003 o anteriores, vamos a “Herramientas”, “Macros”, “Editor Visual Basic” e insertamos un nuevo modulo.

Una vez hayamos abierto nuestro modulo, en el editor de Visual Basic, pegaremos el siguiente código:

Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double
    Dim celda As Range
    For Each celda In Rangosuma
        If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda
    Next celda
    Set celda = Nothing
End Function

Guardamos el archivo, volvemos a Excel, y en la celda en la que queremos colocar el resultado de la suma, escribiremos la siguiente fórmula:

=Sumarcolor(B2;A2:A15)

Los créditos no son míos son de... por favor, te invito a visitarlo...
AQUI