En este grupo En todos

Foro de Excel



Como sumar celdas de colores, si el color está dado con un formato condicional

Juan
Marruecos, Marruecos
Escrito por Juan López
el 28/03/2007

Pues eso.

Que tengo una lista de valores en rojo y negro y quiero sumar ambos por separado. Ha tener en cuenta que el color lo dá un formato condicional aplicado a dichas celdas (el color viene de si ponemos en otra columna los valores de G -GASTO- o I -INGRESO-.

He intentado utilizar la función SUMACOLORES que tienes puesta por ahí pero no funciona ya que me coge el color base de la celda pero nó el que le dá el formato condicional.

¿Alguna solución?.

Un saludo y gracias por la respuesta.



Grillo Pepe Pepe
Navarra, España
Escrito por Grillo Pepe Pepe
el 28/03/2007

Prueba con esto

Cópialo en un modulo

Function SumarColor(rango As Range, color As Long) As Double
    Application. Volatile
    Dim rngC As Range
   
    For Each rngC In rango. Cells
        If rngC.FormatConditions.Count > 0 Then
            If ColorIndexOfCF(rngC) = color Then
                SumarColor = SumarColor + rngC
            End If
        End If
    Next rngC
   
    Set rngC = Nothing
End Function
Function ColorIndexOfCF(Rng As Range) As Integer
    'Función escrita por Chip Pearson

    Dim AC As Integer
    AC = ActiveCondition(Rng)
   
    If AC = 0 Then
        ColorIndexOfCF = Rng.Interior.ColorIndex
    Else
        ColorIndexOfCF = Rng. FormatConditions(AC). Interior. ColorIndex
    End If
   
End Function