Mostrar en listbox solo las filas con dato, a partir de la columna 1 de la tabla.

¡Gracias!  estimado Dante, perdón no responder antes, vi los videos me sirvieron harto, incluso para otras planillas.

Saludos,

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

Para ajustar tu código y asegurarte de que las filas con un ID vacío no se muestren en el ListBox, solo necesitas agregar una condición que verifique si la celda de la columna A (que contiene el ID) está vacía antes de agregar los datos al ListBox.

A continuación te muestro cómo modificar tu código para que solo cargue las filas en el ListBox si la columna A (ID) tiene un valor:

Código actualizado:

Option Explicit

Sub cargarlista()

Dim i As Long
i = 3 ' Empieza desde la fila 3, según tu descripción

Do While Hoja1.Cells(i, 1).Value <> "" ' Continúa el bucle mientras haya datos en la columna A (ID)

' Verifica si el ID (columna A) no está vacío
If Hoja1.Cells(i, 1).Value <> "" Then
With ListContratosHH.ListBox1
.AddItem Hoja1.Cells(i, 1).Value ' Agrega el ID a la primera columna del ListBox
.List(.ListCount - 1, 1) = Hoja1.Cells(i, 4).Value ' Agrega el dato de la columna 4 (D)
.List(.ListCount - 1, 2) = Hoja1.Cells(i, 5).Value ' Agrega el dato de la columna 5 (E)
.List(.ListCount - 1, 3) = Hoja1.Cells(i, 11).Value ' Agrega el dato de la columna 11 (K)
End With
End If
i = i + 1 ' Avanza a la siguiente fila
Loop

End Sub

Explicación:

1. Condición If Hoja1.Cells(i, 1).Value <> "" Then:

Antes de agregar los datos al ListBox, el código verifica si la celda en la columna A (ID) de esa fila tiene un valor.

Si está vacía, el código no agregará esa fila al ListBox y seguirá con la siguiente fila.

2. Cambio en Do While Hoja1.Cells(i, 1).Value <> "":

El bucle ahora depende de que la columna A tenga un valor para detenerse. Si encuentra una fila sin valor en la columna A, el bucle termina.

3. Uso de .ListCount - 1:

Al usar .ListCount - 1, el código se asegura de que siempre se esté llenando la última fila disponible del ListBox, ya que las filas se agregan dinámicamente.

Resultado:

Este ajuste garantiza que solo las filas con un ID en la columna A se muestren en el ListBox, ignorando las que tienen el ID vacío.