23/06/2008, 20:47
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 32
Antigüedad: 23 años Puntos: 0 | |
| Respuesta: Semaforo en EXcel
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
__________________
luca !! |