Pasar columnas de un textbox a una hoja
Hola, tengo un formulario donde se cargan en un listbox 14 columnas de unos datos filtrados, con un botón he intentado crear una acción que copie desde el listbox la columna 1 y la pegue en la columna A desde la fila 10, la columna 2 del listbox que la pegue en la columna C desde la fila 10 y la columna 13 del listbox que la peque en la columna D.
He intentado con esta orden pero solo funciona para la primera columna:
Private Sub CommandButton2_Click()
Sheets("DEVOLUCIONES").Activate
For i = 0 To ListBox1.ListCount - 1
Range("A10").Offset(i, 0).Value = ListBox1.List(i)
Next i
End Sub
No sé como modificar la macro para que se ejecute la tarea, podrían ayuadarme?
Prueba con la macro así:
Private Sub CommandButton2_Click()
Sheets("DEVOLUCIONES").Activate
range("a10").select
For i = 0 To ListBox1.ListCount - 1
activecell.value = ListBox1.List(i,0)
activecell.offset(0,2).value = listbox1.list(i,1)
activecell.offset(0,3).value = listbox1.list(i,12)
activecell.offset(1,0).select
Next i
End Sub
Funcionó perfecto, muchas gracias, una ultima cosa, si deseo que el rango hasta el que se copien los datos del textbox a la hoja sea máximo hasta la fila A59 que instrucción le podría colocar al principio para que impida que los datos se coloquen mas allá de esa fila?
Ok, entonces la macro sería esta:
Private Sub CommandButton2_Click()
Sheets("DEVOLUCIONES").Activate
range("a10").select
For i = 0 To ListBox1.ListCount - 1
activecell.value = ListBox1.List(i,0)
activecell.offset(0,2).value = listbox1.list(i,1)
activecell.offset(0,3).value = listbox1.list(i,12)
activecell.offset(1,0).select
if activecell.row > 59 then exit sub
Next i
End Sub
