Sumar contenido de celdas por color

Function SumByColor(InputRange As Range, ColorRange As Range) As Double
    Dim cl As Range, TempSum As Double, ColorIndex As Integer
    ColorIndex = ColorRange.Cells(1, 1).Interior.ColorIndex
    TempSum = 0
    On Error Resume Next
    For Each cl In InputRange.Cells
        If cl.Interior.ColorIndex = ColorIndex Then
            TempSum = TempSum + cl.Value
        End If
    Next cl
    On Error GoTo 0
    Set cl = Nothing
    SumByColor = TempSum
End Function
Hola amigo, aquí tienes otra función que me encontré de mi casi tutor Inocampo. No importa si los datos no están seguidos. La forma de utilizar la función es la siguiente: sumbycolor(D1:D7,B2)
Suponiendo que tienes datos de A1:A15 y quieres sumar el color rojo en celdas no consecutivas. Pones el color en C1, en B1 pones la función =sumbycolor(A1:A15,C1)
Cada vez que cambies el color debes darle click en la celda de la fórmula y luego Enter para que actualice.
jcgonzalez3165@gmail.com

Buenas tardes,
El problema que tengo es que en una columna solo tienen datos validos las celdas A1,A4,A7,A10, etc... és decir que de estas celdas sólo me deberian sumar los que cumplan que el color de fondo sea como la celda C1.
muy agradecido de antemano.
 
Enric
 

Hola amigo, por favor valora porque ya te envíe un archivo arreglado por medio del correo.
jcgonzalez3165@gmail.com