SUMAR CELDAS POR COLOR CON VBA

 SUMAR CELDAS POR COLOR CON VBA 

Ejercicio: Crear una función definida por el usuario para sumar celdas por color.

Procedimiento :

PASO 01:Clic en la pestaña programador, luego en Visual Basic

PASO 02: Clic en la pestaña insertar, clic en módulo

PASO 03: Copiar el siguiente código en el módulo insertado

Function SUMAR_COLOR(rangosuma As Range, SumaColor As Range)
    Dim SumaColorbuscado As Integer
    Dim TotalSuma As Long
    Dim colorcelda As Range
    SumaColorbuscado = SumaColor.Interior.ColorIndex
    Set colorcelda = rangosuma
    For Each colorcelda In rangosuma
        If colorcelda.Interior.ColorIndex = SumaColorbuscado Then
        TotalSuma = TotalSuma + colorcelda.Value
        End If
    Next colorcelda
    SUMAR_COLOR = TotalSuma
End Function

PASO 04: 

- Damos clic en la celda E3 y llamamos la función definida por el usuario creada anteriormente y escribimos =SUMAR_COLOR($B$3:$B$14;E3), presionamos la tecla enter y podemos observar que el total de unidades vendidas de TV que corresponde a las celdas de color verde es de 2170.

-Clic en la celda E4 y llamamos la función definida por el usuario creada anteriormente y escribimos =SUMAR_COLOR($B$3:$B$14;E4), presionamos la tecla enter y podemos observar que el total de unidades vendidas de Laptop que corresponde a las celdas de color celeste es de 80.

-Clic en la celda E5 y llamamos la función definida por el usuario creada anteriormente y escribimos =SUMAR_COLOR($B$3:$B$14;E5), presionamos la tecla enter y podemos observar que el total de unidades vendidas de licuadoras que corresponde a las celdas de color amarillo es de 220.

-Clic en la celda E6 y llamamos la función definida por el usuario creada anteriormente y escribimos =SUMAR_COLOR($B$3:$B$14;E6), presionamos la tecla enter y podemos observar que el total de unidades vendidas de horno que corresponde a las celdas de color amarillo es de 290.

VER VIDEO :