Excel Formulas

Re: Sumar valores de distinto color
Alt+F11, inserta un módulo y coloca este cod. 
Function SUMACOLORES(Datos As Range, LetraColor As Range) As Double
On Error Resume Next
Dim Suma1 AsDouble, 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 celdasA1: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)




||
|El siguiente codigo precisamente realiza esa labor.|
|La siguiente función que deberás ingresa en un módulo nuevo de Visual Basic, te devolverá un código que representa el color |
|que tiene una determinada celda dondeaplicaste tal función. |
|*****|
|Function SUMACOLORES(Datos As Range, CeldaColor As Range) As Double |
|On Error Resume Next|
|Dim Suma1 As Double, Color As Integer, celda As Range|
|Color = CeldaColor.Interior.ColorIndex |
|For Each celda In Datos.Cells...