Semaforo en EXcel

[luca]

Tengo una planilla de Excel la cual calcula varios indicadores. Lo que me solicitaron es que si el indicador llega a cierto porcentaje de la meta, cambie el color de un semaforo que me colocaron. El mismo se genero con un circulo de Autoformas. lA IDEA ES que cuando el indicador de de 1 a 6 se ponga ROJO, del 6.1 a 8.5 (Amarillo) y de 8.6 a 10Pts (Verde). No son 3 circulos es un solo circulo generado con autoformas el mismo se llama Elipse 4. Desde ya muchas gracias.

[abrahamvj]

Pues, obviamente necesitas hacerlo con macros. PAra obtener el codigo para cambiar el color de tu eelipse, pues, usa la grabadora de macros. Luego, mediante algun IF o un SELECT-CASE, y el evento Change de la hoja, pues, logras el cambio

Abraham

[luca]

Coloco este comando pero no funciona, la idea que si el valor de la celda AW20 es igual a 5 el semaforo se ponga verde, sino rojo. Pero no me funciona, me dice falta un objeto y me subraya la segunda vez que escribo Elipse4.BackColor = RGB(255, 0, 0)

Saludos

Sub Semaforo()
'
' Semaforo Macro
' Macro grabada el 13/06/2008 por Pablo Gonzalez
'
If [AW20] = 5 Then

Elipse4.BackColor = RGB(0, 128, 128)

Else

Elipse4.BackColor = RGB(255, 0, 0)

End If
End Sub

[abrahamvj]

aun estaba en hora de almuerzo, asi que aproveche y te hic algo. Pegalo en el modulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intvalor%
If Target.Address = "$A$1" Then
intvalor% = Target.Value
Select Case intvalor%
Case 1 To 6
ActiveSheet.Shapes("Elipse 4").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Case 6.1 To 8.5
ActiveSheet.Shapes("Elipse 4").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
Case 8.6 To 10
ActiveSheet.Shapes("Elipse 4").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Case Else
ActiveSheet.Shapes("Elipse 4").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
End Select
End If
End Sub

Abraham