Buscar sumandos
Buenas tardes experto:
Tengo un pequeño problema sobre el que necesito ayuda. En una hoja de cálculo tengo una columna con 60 importes diferentes. La suma de varios de esos importes da 428,56. ¿Existe alguna fórmula para averiguar los sumandos de los que está compuesto ese importe?
Tengo un pequeño problema sobre el que necesito ayuda. En una hoja de cálculo tengo una columna con 60 importes diferentes. La suma de varios de esos importes da 428,56. ¿Existe alguna fórmula para averiguar los sumandos de los que está compuesto ese importe?
1 Respuesta
Respuesta de José Saúl Méndez Alonso
1
Si sólo necesitas conocer los elementos que componen tu resultado puedes usar la opción Rastrear Precedentes de la Auditoría de Fórmulas
También puedes crear una MACRO que usando los datos de la suma te cambie el color de esas celdas.
Sub IluminaSumandos()
If Range("L31").HasFormula Then 'Primero valida que la celda tenga una fórmula
Dim sRangos As String
sRangos = Replace(Replace(Replace(Range("L31").FormulaLocal, "=SUMA", ""), ")", ""), "(", "") 'Elimina los datos de la función usada en esta caso SUMA()
Range(sRangos).Interior.Color = vbRed 'Pone color de fondo ROJO
Range(sRangos).Font.Color = vbWhite 'Pone Color BLANCO a las letras
MsgBox sRangos
End If
End Sub
También puedes crear una MACRO que usando los datos de la suma te cambie el color de esas celdas.
Sub IluminaSumandos()
If Range("L31").HasFormula Then 'Primero valida que la celda tenga una fórmula
Dim sRangos As String
sRangos = Replace(Replace(Replace(Range("L31").FormulaLocal, "=SUMA", ""), ")", ""), "(", "") 'Elimina los datos de la función usada en esta caso SUMA()
Range(sRangos).Interior.Color = vbRed 'Pone color de fondo ROJO
Range(sRangos).Font.Color = vbWhite 'Pone Color BLANCO a las letras
MsgBox sRangos
End If
End Sub
