Sumar por color de celda – Excel

Hay momentos donde las funciones de Excel no son suficientes para hacer realizar nuestras actividades diarias y parece algo tan sencillo que uno no entiende porque no está en el catálogo de fórmulas de Excel, pero si estan, y yo no me he dado cuenta, pido disculpas de una vez a Microsoft, pero si no 😠.

Lo bueno es que a Microsoft le gusta que nosotros hagamos su trabajo por eso nos deja la herramienta VBA donde podemos hacer casi todo lo que queramos. Para nuestro ejemplo vamos a hacer un ejemplo sencillo, pero que muestra el punto.

Queremos sumar solo el monto pagado, que este caso es todo lo que está en color verde y lo que está pendiente en color rojo. Trate de usar el SUMAR.SI pero por más que trate no encontré como hacerlo, por lo cual vamos a crear una formula usando VBA.

Estoy suponiendo que ya saben cómo abrir el VBA de Excel ¿verdad?, Aquí les dejo el código.

Function SUMARPORCOLOR(Color As Range, Rango As Range)
Dim Total
Dim Celda As Range
For
Each Celda In Rango

If Celda.Interior.ColorIndex = Color.Interior.ColorIndex Then

Total = Total + Celda.Value


End
If

Next Celda

SUMARPORCOLOR = Total

End
Function

Ya teniendo el código lo que tenemos que hacer es ir a Excel y escribir la formula.

Donde lo primero que vamos a ingresar es el color, entonces escogemos cualquier celda que tenga el color que queremos sumar, en este caso use D2, como se muestra en la imagen, luego seleccionamos el rango que queremos sumar, en este caso D2:D11 y como resultado ya tenemos la suma por color.

Espero que les pueda ayudar este truco.

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

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Blog de WordPress.com.

Subir ↑

A %d blogueros les gusta esto: