Cambiar el color de un ListBox de acuerdo al valor obtenido

Necesito que me ayuden con un proyecto, mi objetivo es lograr que el Listbox lst_ES cambie el color de fondo a rojo, si es que su valor es igual a SUSPENDIDO. Y a verde, si es que su valor es igual a ACTIVO

Desde ya, muchas gracias por la ayuda

Saludos cordiales

Blás

2 Respuestas

Respuesta
1

Te faltó aclarar que estás trabajando con controles ListBox (y combobox) como si fuesen TextBox, de ahí que la confusión de dan.

Las instrucciones serían:

If lst_ES.List(0) = "SUSPENDIDO" Then
lst_ES.BackColor = &HFF&      'rojo
Else
lst_ES.BackColor = &HC000&     'verde
End If

Para darle otro color, selecciona desde la propiedad BackColor (en lista de Propiedades en panel a tu izquierda) el color deseado y copia y pega ese nro de color en el código. Veras que se acorta en cantidad de dígitos pero es correcto.

Sdos!

¡Gracias! por vuestra ayuda, nuestro proyecto no podría  continuar sin ustedes

Cordiales Saludos 

Blas

Respuesta
1

H o l a:

Pero en el listbox hay varios datos, ¿si es así cuál registro hay que revisar?

¿Cuál columna del listbox hay que revisar?

Para cambiar el color, hay que hacerlo al momento en que cargas el listbox, en ese momento preguntas si es "SUSPENDIDO", ¿o en qué momento quieres hacerlo?

Estimado Experto:

Es en la primera columna,  y cambiaría de color al cargar el ListBox 

No respondiste mi primer duda,

¿Vas a cargar varios registros?

¿Puedes poner el código con el que estás cargando?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Como adecuar picture de fondo dependiendo de pantalla?

Tengo un libro de Excel que manejo con formularios. Tengo una hoja cuyo fondo tengo una imagen que dependiendo del ordenador en que lo habra, sale desplazado o mas grande... Es decir, me varia dependiendo, creo yo de la resolucion o tamaño de...
2 respuestas

Cargar un rango de datos que tiene algunas filas y columnas vacías a un ListBox vba excel

Me gustaría poder seleccionar un rango de una hoja excel, por ej. Columnas B a I, las filas comenzaría en la 3 hasta final del rango no vacío de la columna C (que es el que contiene mayor numero de filas) y que ese rango se muestre en un ListBox de...
1 respuesta

¿Macro al escribir carácter en un rango de Excel?

A tod@s! Tengo una hoja llamada Acción y lo que quiero es que en cualquier celda de la columna C, cada vez que escriba un carácter ejecute una acción o macro. ¿Cómo puedo hacerlo?
1 respuesta

¿Código VBA en Excel para filtrar en un textbox sin tener en cuenta acentos, mayúsculas o minúsculas?

Estoy utilizando el siguiente código en una hoja de excel para buscar y filtrar lo que escribo en dos Texbox: Private Sub TextBox1_Change() ActiveSheet.Unprotect ALERTA = "*" & TextBox1.Value & "*" Range("D3").AutoFilter Field:=4, Criteria1:=ALERTA...
1 respuesta

Función buscarv sobre el resultado de una celda

Trato de obtener resultado sobre la función de buscarv la cual detallo esta :=SI.ERROR(BUSCARV(B666;COMPRAS!$M$3:$O$325;3;FALSO);""). Lo busco sobre una celda que tiene la siguiente formula: =SI(D666="Apertura ";"";IZQUIERDA($G$666;10)). El resultado...
2 respuestas

Una macro no se ejecuta desde otra macro, pero sí si la ejecuto manualmente, ¿Por qué?

En una hoja tengo un botón que ejecuta el siguiente código: Sub preguntar_scroll() Dim respuesta respuesta = MsgBox("¿Quieres extender la pantalla actual?", vbYesNo + vbQuestion, "Extender pantalla") If respuesta = vbYes Then Sheets("visor").Activate...
1 respuesta

Mover contenido de una celda hacia arriba y abajo

Mover el contenido de una celda de una tabla con un botón hacia arriba y hacia abajo. En una hoja de excel. Y poder colocarlo donde uno desee.
1 respuesta

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Crear Macro, con condiciones y editar celda

¿Cómo crear una macro que Busque en toda la hoja, (bucle con condiciones), introduciendo texto y se pueda editar celda?
1 respuesta

Trabajar con una ventana duplicada en excel

Tengo una macro mediante la cual me duplica la ventana activa de excel para mostrarla en un segundo monitor: Sub bot_extenderpantalla_Click() 'creamos una nueva ventana de excel con la hoja activa (visor) Sheets("visor").Activate...
1 respuesta