Cambiar color de objeto según el resultado de formula de una celda

[Leonardo Briceño]

Hola amigos de Ayuda Excel

Muy buenos días. Estoy haciendo un indicador visual el cual consiste en que una forma (compuesta de 3 objetos)  debe cambiar de color en función del resultado de una formula en una celda.

En este sentido,  si el resultado de E17 es mayor o igual a 0, el circulo y flecha arriba de la forma deben ser de color verde y la flecha abajo sin color.

Y si el resultado de E17 es menor de 0, el circulo y flecha abajo de la forma debe ser de color rojo y la flecha arriba sin color.

Agradecido de antemano por la ayuda y valiosa colaboración

 

COLOR DE OBJETO.xlsm

[Janlui]

Prueba esto

COLOR DE OBJETO (1).xlsm

[Leonardo Briceño]

@JanluiHola amigo gracias por tu respuesta.  Es bastante pareceido a lo que quiero. El único detalle es que la  celda E17 es una formula, por lo que los cambios de color deben suceder cuando se actualice la formula.

Como me lo mandaste, colocando el valor manualmente si funciona, pero E17 es una formula y así no hace el cambio de no colores.

[Janlui]

Será esto?

 

COLOR DE OBJETO (1).xlsm

[Leonardo Briceño]

@JanluiExcelente amigo, Gracias, muy amable!!!

 

[Antoni]

Aunque ya está solucionado, creo que esta versión es más eficiente.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E17").Precedents) Is Nothing Then
    If IsNumeric(Target.Value) Then
        If Range("E17").Value >= 0 Then
            ActiveSheet.Shapes("Flecha arriba 2").Fill.ForeColor.RGB = vbGreen
            ActiveSheet.Shapes("Anillo 1").Fill.ForeColor.RGB = vbGreen
            ActiveSheet.Shapes("Flecha abajo 3").Fill.ForeColor.RGB = vbWhite
        Else
            ActiveSheet.Shapes("Flecha arriba 2").Fill.ForeColor.RGB = vbWhite
            ActiveSheet.Shapes("Anillo 1").Fill.ForeColor.RGB = vbRed
            ActiveSheet.Shapes("Flecha abajo 3").Fill.ForeColor.RGB = vbRed
        End If
    End If
End If
End Sub

 

[Leonardo Briceño]

@Antoniexcelente Antoni, gracias!!!