Mas de 10 col discontinuas en Listbox

Hola:

Espero haber entendido bien, si ya sabes cuáles son las columnas esto te
puede funcionar, con los if dentro del for next forzas el salteo de columnas

Private Sub UserForm_Initialize()

Dim MisColumnas() As Variant
Dim fila As Integer
Dim i As Integer, j As Integer
Dim col As Integer

fila = Application.CountA(Sheets(1).Range("A:A"))
col = 1

ListBox2.ColumnCount = 10
ReDim MisColumnas(10, fila)

For i = 0 To 10
For j = 0 To fila - 1
If col = 5 Then col = 7
If col = 9 Then col = 14
c = Sheets(1).Cells(j + 1, col).Value
MisColumnas(i, j) = c
Next j
col = col + 1
Next i
ListBox2.Column() = MisColumnas()

End Sub

Saludos, fer


"Jorge" escribió en el mensaje
news:1e7a01c4afa6$14338850$
Buen día,

Me apoyaron con un código para agregar mas de 10 columnas
en un listbox y funcione perfectamente.

Estoy trabajando con columnas que no están juntas, si
están en la misma base de daos y lo que hago es
seleccionar columna por columna las copio y las pego en
otras celdas para que están continuas y esto me fuciona.
Hay alguna manera mas simple de hacerlo ??

De antemano, gracias.

Un saludo.