Sumar contenido de celdas de acuerdo a su color
Sumar contenido de celdas de acuerdo a su color, ese el problema, quiero sumar el contenido de un rango de celdas de acuerdo al color que tenga cada una, sería algo similar a la función SUMAR.SI pero con la posibilidad de que la condición se refiera al color de la celda. Desde ya agradezco la ayuda que puedan brindarme.
1 Respuesta
Respuesta de fejoal
1
La siguiente función que deberás ingresa en un módulo nuevo de Visual Basic, te devolverá un código que representa el color que tiene una determinada celda donde aplicaste tal función. Luego puedes operar con ese código con cualquiera de las funciones para suma condicional (por ejemplo, SUMAR. SI)
Public Function QueColor(ByVal Lacelda As Range)
If Lacelda.Interior.ColorIndex < 0 Then
QueColor = False
Else
QueColor = Lacelda.Interior.ColorIndex
End If
End Function
Nota que si la celda no tiene color asignado te devolverá un valor booleano "Falso".
Esta solcuión te permite realizar sumas de acuerdo a varios colores.
Ejemplo:
Supongamos que "pintas" una celda (B4, por ejemplo) del color a sumar y que agregaste una columna auxiliar con la fórmula =QueColor(D8) (llenando toda la columna, claro está).
Entonces podrás usar una fórmula de este tipo:
=SUMAR.SI($D$8:$D$300,QueColor(B4),$D$8:$D$300)
[Considera si sueles usar comas o punto y coma para separar argumentos de las funciones. Yo usé ","]
O podrías usar una tabla dinámica para que te arme las sumas correspondientes a cada color en tu base, usando esta columna auxiliar.
Aclarando qué entendí mal o qué faltó.
Public Function QueColor(ByVal Lacelda As Range)
If Lacelda.Interior.ColorIndex < 0 Then
QueColor = False
Else
QueColor = Lacelda.Interior.ColorIndex
End If
End Function
Nota que si la celda no tiene color asignado te devolverá un valor booleano "Falso".
Esta solcuión te permite realizar sumas de acuerdo a varios colores.
Ejemplo:
Supongamos que "pintas" una celda (B4, por ejemplo) del color a sumar y que agregaste una columna auxiliar con la fórmula =QueColor(D8) (llenando toda la columna, claro está).
Entonces podrás usar una fórmula de este tipo:
=SUMAR.SI($D$8:$D$300,QueColor(B4),$D$8:$D$300)
[Considera si sueles usar comas o punto y coma para separar argumentos de las funciones. Yo usé ","]
O podrías usar una tabla dinámica para que te arme las sumas correspondientes a cada color en tu base, usando esta columna auxiliar.
Aclarando qué entendí mal o qué faltó.
