Mostrar en listbox solo las filas con dato, a partir de la columna 1 de la tabla.
Tengo una tabla con datos, la primera columna (A) es un ID, cuando se completa información en mi base de datos, el número del ID lo elimino, quedando vacío. Entonces cuando vuelvo a cargar el listbox, no quiero que las filas con ID vacío se muestren el el listbox.
El siguiente es el código que utilizo para cargar el listbox. La primera fila con dato ID es la 3.
Option Explicit
Sub cargarlista()
Dim i As Long
i = 2
Do While Hoja1.Cells(i + 1, 1).Value <>""
With ListContratosHH.ListBox1
.AddItem Hoja1.Cells(i + 1, 1).Value
.List(i - 2, 1) = Hoja1.Cells(i + 1, 4).Value
.List(i - 2, 2) = Hoja1.Cells(i + 1, 5).Value
.List(i - 2, 3) = Hoja1.Cells(i + 1, 11).Value
End With
i = i + 1
Loop
End Sub
3 Respuestas
I. Hola Héctor, en mi caso no fui capaz de encontrar la información necesaria ni soy experto, pero deseaba dejarle los resultados de una búsqueda en Inglés y en especial a ofrecerme para trasladar su consulta a un experto en caso de que no recibiese respuestas en breve. Le ruego me disculpe todas las molestias, ánimo.
https://www.access-programmers.co.uk/forums/threads/listbox-with-bound-second-column.134217/
https://www.access-programmers.co.uk/forums/threads/select-column-value-in-a-listbox.321595/
¡Gracias!
Muy agradecido David por tu interés, excelente aporte.
Bendiciones,
I. Hola Héctor, muchísimas gracias por sus amables palabras :) me alegro de que pueda serle de utilidad.
Un abrazo.
Para asegurarte de que solo las filas con un ID no vacío se carguen en el ListBox
Modifique tu código ajustado:
Option Explicit Sub cargarlista() Dim i As Long i = 3 With ListContratosHH.ListBox1 .Clear Do While Hoja1.Cells(i, 1).Value <> "" Or Hoja1.Cells(i, 1).Value <> 0 If Hoja1.Cells(i, 1).Value <> "" Then .AddItem Hoja1.Cells(i, 1).Value .List(.ListCount - 1, 1) = Hoja1.Cells(i, 4).Value .List(.ListCount - 1, 2) = Hoja1.Cells(i, 5).Value .List(.ListCount - 1, 3) = Hoja1.Cells(i, 11).Value End If i = i + 1 Loop End With End Sub
