Sumar Celdas del Mismo Color

Cuando trabajamos con Excel la mayoría las veces necesitamos Sumar celdas que están separadas y para poder sumarlas es necesario ir agregándolas a la formula SUMA una por una lo cual cuando son demasiadas celdas llega a ser fastidioso y más si nos equivocamos y las celdas que habíamos agregado se quitan de la formula.
Mediante una UDF (función definida por el usuario) es posible facilitar esa tarea para solamente sumar las celdas que tienen el mismo color, es decir, de una sola vez se agregarían todas las celdas a la función y la propia función se encargaría de sumar solamente las celdas que tengan el mismo color.
La función a utilizar es la siguiente

Public Function SumaPorColor(Color As Range, ParamArray Valores() As Variant) As Double
    On Error Resume Next
    Application.Calculation = xlCalculationManual
    Dim celda As Range
    Dim rango As Variant
    For Each rango In Valores
        For Each celda In rango
            If celda.Interior.ColorIndex = Color.Cells(1, 1).Interior.ColorIndex Then
                If IsNumeric(celda) Then
                    SumaPorColor = SumaPorColor + celda
                End If
            End If
        Next celda
    Next rango
    Set celda = Nothing
    Set rango = Nothing
    Application.Calculation = xlCalculationAutomatic
End Function


La función se debe agregar a un módulo y se utiliza de la siguiente manera.
El primer rango que se le pasa como parámetro debe ser la celda que tiene el color, los demás rangos que se le pasan son los que se van a sumar, los rangos pueden estar en diferentes hojas como en la imagen de abajo y solamente las celdas que tengan el mismo color que el primer rango se sumaran, en la imagen de abajo solamente se suman las celdas de color azul (2+4+6+7+2=21).

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s