por Lukard » 23 Jul 2007 22:08
El código que te anexo lo encontré en la web, y creo que te puede servir para lo que necesitas Alt+F11, inserta un módulo y coloca el siguiente código:
Function SUMACOLORES(Datos As Range, LetraColor As Range) As Double
On Error Resume Next
Dim Suma1 As Double, Color As Integer, celda As Range
Color = LetraColor.Font.ColorIndex
For Each celda In Datos.Cells
If celda.Font.ColorIndex = Color Then
Suma1 = Suma1 + celda.Value
End If
Next
SUMACOLORES = Suma1
End Function
en la celda donde quieras la suma coloca: =SUMACOLORES(A1:A10,B1) aqui en este ejemp. sumaría los valores de las celdas A1:A10 cuyo color de letras coincidan con el color de letra de B1.....
En resumen =SUMACOLORES(rango a sumar, celda con el color a sumar)[/code]