Semaforo

19/10/2009 - 21:03 por Mauricio | Informe spam
De antemano agradezco a la persona que me pueda colaborar con la solución a
este tema.

Hace año y medio cree en en Excel2003 un aplicativo de indicadores, cada
indicador esta en una hoja diferente y tiene asociado un Semáforo para
verificar el estado de dicho indicador. El semáforo funciona haciendo clic en
un botón llamado CMBEST, al dar clic en el botón el semaforo debe cambiar de
color (rojo verde o amarillo) dependiendo del valor del ACUMULADO (celda F30)
y la META (celda G30). Cada bombillo de cada uno de los colores estan
creados en Paint y se tienen guardados en el mismo servidor donde esta el
aplicativo, por la propiedad IMAGEN de cada botón se asocian a cada uno de
los botones ( CMBROJ, CMBAMA, CMBVER). Ver código.


Código:

Private Sub CMBEST_Click()
ActiveSheet.Range("F30").Select
META = ActiveCell
ActiveSheet.Range("G30").Select
VALOR = ActiveCell
If ACUMULADO > META Then
CMBROJ.Visible = True
CMBAMA.Visible = False
CMBVER.Visible = False
ElseIf ACUMULADO < META Then
CMBROJ.Visible = False
CMBAMA.Visible = False
CMBVER.Visible = True
ElseIf ACUMULADO = "" Or META = "" Then
CMBROJ.Visible = True
CMBAMA.Visible = True
CMBVER.Visible = True
Else
CMBROJ.Visible = False
CMBAMA.Visible = True
CMBVER.Visible = False
End If
End Sub

Todo este código funciona perfecto. Hace 15 días hice el cambio del
aplicativo a la versión Excel 2007 y los botones de los semaforos perdieron
la asociación a cada uno de los colores por tal motivo me puse en la tarea
de volver asociar uno a uno, pero me he dado cuenta que cada vez que se abre
nuevamente dicho archivo quedan como si no se hubieran modificado. Las
macros están habilitadas al igual que los vínculos.

Quisiera saber como puedo superar este inconveniente para que todo quede
funcionando correctamente.
 

Leer las respuestas

#1 Héctor Miguel
21/10/2009 - 03:52 | Informe spam
hola, Mauricio !

1) en el codigo expuesto, asignas valores y haces llamadas a variables DIFERENTES
a) estableces valores a las variables llamadas META y VALOR (pero..)
b) haces comparaciones llamando a variables META y ACUMULADO
(con esta salvedad, comentarias como es que este codigo funciona "perfecto" ?)

2) por otro lado, no me queda claro a que te refieres con: "pierden la asociacion con los colores" ?

saludos,
hector.

__ OP __
... cree en Excel2003 un aplicativo de indicadores, cada indicador esta en una hoja diferente
y tiene asociado un Semaforo para verificar el estado de dicho indicador.
El semaforo funciona haciendo clic en un boton llamado CMBEST
al dar clic en el boton el semaforo debe cambiar de color (rojo verde o amarillo)
dependiendo del valor del ACUMULADO (celda F30) y la META (celda G30).
Cada bombillo de cada uno de los colores estan creados en Paint
y se tienen guardados en el mismo servidor donde esta el aplicativo
por la propiedad IMAGEN de cada boton se asocian a cada uno de los botones
(CMBROJ, CMBAMA, CMBVER). Ver codigo (...)

Todo este codigo funciona perfecto... hice el cambio... a la version Excel 2007
y los botones de los semaforos perdieron la asociacion a cada uno de los colores
por tal motivo me puse en la tarea de volver asociar uno a uno
pero me he dado cuenta que cada vez que se abre nuevamente dicho archivo quedan como si no se hubieran modificado.
Las macros estan habilitadas al igual que los vinculos.
Quisiera saber como puedo superar este inconveniente para que todo quede funcionando correctamente.



__ el codigo expuesto __
Private Sub CMBEST_Click()
ActiveSheet.Range("F30").Select
META = ActiveCell
ActiveSheet.Range("G30").Select
VALOR = ActiveCell
If ACUMULADO > META Then
CMBROJ.Visible = True
CMBAMA.Visible = False
CMBVER.Visible = False
ElseIf ACUMULADO < META Then
CMBROJ.Visible = False
CMBAMA.Visible = False
CMBVER.Visible = True
ElseIf ACUMULADO = "" Or META = "" Then
CMBROJ.Visible = True
CMBAMA.Visible = True
CMBVER.Visible = True
Else
CMBROJ.Visible = False
CMBAMA.Visible = True
CMBVER.Visible = False
End If
End Sub

Preguntas similares