Sumar en Excel según el color de la celda

Por

Hemos recibido la petición de algunos usuarios, para publicar una forma de sumar valores en Excel, según el color de la celda donde se encuentras esos valores.

Cuando trabajamos con formatos condicionales, le colocamos un determinado color a las celdas que cumplan con ciertos requisitos, luego podemos necesitar sumar todas las celdas de color azul, por ejemplo.

Desafortunadamente Excel no tiene una formula o una función que realice esta tarea, por lo que tendremos que construir una función personalizada.

Para ello vamos a “Programador”, “Visual Basic” e insertamos un nuevo modulo [Esto para office 2007]

En office 2003 o anteriores, vamos a “Herramientas”, “Macros”, “Editor Visual Basic” e insertamos un nuevo modulo.

Una vez hayamos abierto nuestro modulo, en el editor de Visual Basic, pegaremos el siguiente código:

Function Sumarcolor(Celdacolor As Range, Rangosuma As Range) As Double
    Dim celda As Range
    For Each celda In Rangosuma
        If celda.Interior.ColorIndex = Celdacolor.Cells(1, 1).Interior.ColorIndex Then Sumarcolor = Sumarcolor + celda
    Next celda
    Set celda = Nothing
End Function

Guardamos el archivo, volvemos a Excel, y en la celda en la que queremos colocar el resultado de la suma, escribiremos la siguiente fórmula:

=Sumarcolor(B2;A2:A15)

En esta fórmula estamos suponiendo que los valores están en la columna A desde la fila 2 hasta la fila 15, por eso el rango A2:A15.

La celda B2, es la celda que tendrá el color que queremos sumar. En este caso queremos sumar la celdas de color azul del rango A2:A14, entonces la celda B2 la colocamos de color azul.

Si queremos sumar otros colores, todo lo que hay que haces es cambiar el color de la celda referencia, que en este caso es la celda B2, pero cada quien podrá elegir cualquier celda, teniendo presente que deberá modificar la fórmula según el rango de la celda referencia.

Una vez se cambie el color de la celda referencia, la celda donde se encuentra la formula, debe ser actualizada, y para ello nos ubicamos en la celda respectiva, presionamos F2 y luego Enter.

Descargar archivo de ejemplo

Código tomado de Funciones personalizadas

Nota: Tenga en cuenta que para que la fórmula funcione correctamente, las macros deben estar habilitadas. Excel se encargará de informarle mediante una advertencia de seguridad que las macros se han deshabilitado, y le ofrecerá la opción para que las habilite.

Contenido relacionado:
Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.


Déjenos su opinión

3 Opiniones
  1. MAKI Dice:

    A mi la suma me da 0, no me marca error ni nada pero el resultado es 0

    Responder
  2. Cris Dice:

    Y se puede anidar con la función SI ?

    Responder
  3. jesica suarez Dice:

    La función anduvo genial el único problema es que cuando dejo sin relleno(color) una celda no me modifica el resultado... osea sumo todo lo rojo y una ves que pague algo a eso le saco el color y en el resultado no se me resta automáticamente.
    espero puedan ayudarme

    Responder
En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo con respeto, sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.