Carrito: 
Me han hecho esta pregunta frecuentemente a través de mi email.
¿Cómo cargar una lista de datos que tiene filas vacías a un ListBox?.
Me he dado el debido tiempo para responder con una solución muy práctica y fácil de adaptar a cualquier tipo de datos que deseen cargar a un ListBox, descarguen el archivo de ejemplo y verán su funcionamiento.
¿Conoces alguna otra forma de hacerlo?, compártelo.
¿Conoces alguna otra forma de hacerlo?, compártelo.
Código VBA del UserForm:
'****************************************'
' Email: obed.cruz@exceltrabajaporti.com '
' www.exceltrabajaporti.com '
'****************************************'
Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim iRow As Long, iRow2 As Long, lRow As Long
Dim Arr() As Variant
ListBox1.Clear
lRow = Cells(Rows.Count, 2).End(xlUp).Row
For iRow = 2 To lRow
If Cells(iRow, 2) <> "" Then
ReDim Preserve Arr(0 To 6, 0 To iRow2)
Arr(0, iRow2) = Cells(iRow, 2)
Arr(1, iRow2) = Cells(iRow, 4)
Arr(2, iRow2) = Cells(iRow, 6)
Arr(3, iRow2) = Cells(iRow, 8)
Arr(4, iRow2) = Cells(iRow, 10)
Arr(5, iRow2) = Cells(iRow, 12)
Arr(6, iRow2) = Cells(iRow, 14)
iRow2 = iRow2 + 1
End If
Next iRow
ListBox1.Column = Arr
End Sub
