Llenado de Lisxbox

1) Si el ListBox es un Control ActiveX y esta en una hoja:

Sub test()
Dim arrVal As Variant
With ActiveSheet
arrVal = Application.Transpose(.Range("A1:B6"))
With .ListBox1
.ColumnCount = UBound(arrVal, 2)
.Column = arrVal
End With
End With
End Sub

2) Si el ListBox es un Control ActiveX y esta en un Formulario (UserForm)

Opcion a.

Private Sub UserForm_Initialize()
Dim arrVal As Variant
arrVal = Application.Transpose(ActiveSheet.Range("A1:B6"))
With Me.ListBox1
.ColumnCount = UBound(arrVal, 2)
.Column = arrVal
End With
End Sub

Opcion b.

Private Sub UserForm_Initialize()
Dim rng As Range
Set rng = ActiveSheet.Range("A1:B6")
With Me.ListBox1
.ColumnCount = rng.Columns.Count
.RowSource = rng.Address(, , , True)
End With
End Sub

Saludos,
KL


"JForero" wrote in message news:

Buenas tardes grupo, por favor alguien me puede indicar como lleno un list box para un rango específico de columnas a y b. ???
ejemplo:
Columna a y b, llenarlo con lo que contiene desde la fila 6 hasta la primera fila que encuentre vacia

gracias...