Visual Basic - Semaforo

Life is soft - evento anual de software empresarial
   
Vista:

Semaforo

Publicado por Helmut (1 intervención) el 16/04/2017 00:45:13
Hola a todos
Estoy creando un semáforo con macros en excel, pudiesen ayudarme con lo siguiente, he seguido la siguiente formula encontrada en internet pero no me ha funcionado

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_change()
ActiveSheet.Shapes.Range(Array("verde", "rojo", "amarillo")).Visible = False
Select Case ComboBox1.Value
        Case "rojo"
        ActiveSheet.Shapes("verde").Visible = True
    Case "Verde"
        ActiveSheet.Shapes("rojo").Visible = True
    Case Else
        ActiveSheet.Shapes("amarillO").Visible = True
    End Selec
End Sub

Solo me aparece el color amarillo al seleccionar amarillo del combobox y no los otros colores.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Semaforo

Publicado por Christian Matias cmc1476@hotmail.com (697 intervenciones) el 29/04/2017 01:33:50
Tene en cuenta que cuando selecciones el rojo vas a tener que poner en false el amarillo y verde, luego con el amarillo en false el rojo y verde y con el verde,el rojo y el amarillo. Se entiende?

ActiveSheet.Shapes.Range(Array("verde", "rojo", "amarillo")).Visible = False

Esta parte ponela cuando se abre el libro excel.

saludos.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Semaforo

Publicado por Christian cmc1476@hotmail.com (697 intervenciones) el 29/04/2017 02:02:19
Aca va elarchivo !!
Saludos.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar