¿Cómo guardar datos de un listbox en una sola columna?
Tengo un listbox con muchas filas, pero al guardarlas quiero que estas se me vayan almacenando en una sola columna... ¿alguna idea de como hacerlo?
He probado con:
Hoja1.Cells(1 ,3) = Me.ListCargar.List(i, 1)
Hoja1.Cells(2, 3) = Me.ListCargar.List(i, 2)
Hoja1.Cells(3 ,3) = Me.ListCargar.List(i, 1)
Hoja1.Cells(4, 3) = Me.ListCargar.List(i, 2)
Hoja1.Cells(1, 3) = Me.ListCargar.List(1, 1)
Hoja1.Cells(2, 3) = Me.ListCargar.List(1, 2)
Hoja1.Cells(3, 3) = Me.ListCargar.List(2, 1)
Hoja1.Cells(4, 3) = Me.ListCargar.List(2, 2)
Este es el resultado de la macro
asi queda en la hoja 2
y esta es la macro
Private Sub CommandButton1_Click()
Set h2 = Worksheets("hoja2")
matriz = ListBox1.List
filas = UBound(matriz)
columnas = ListBox1.ColumnCount - 1
Total = filas * columnas
Set destino = h2.Range("a1").Resize(Total, 1)
x = 1
For i = 0 To filas
For j = 0 To columnas
dato = matriz(i, j)
destino.Cells(x, 1) = dato
x = x + 1
Next j
Next i
End Sub
¡Gracias! James
Podrías subir el archivo con el ejemplo?... me da error en Ubound
gracias
¿Cómo se llama tu listbox?, si tiene un nombre diferente a listbox1 entonces cargara la matriz con valor 0 y por eso te sale el error, de ser este el caso cambia el nombre listbox1 por el nombre que estés usando.
