Como se puede pasar todos los datos del listbox1 a la hoja
Necesito un código para pasar los datos del listbox1 a la hoja1 (primera fila vacía) y que si ejecuto de nuevo, no borre lo anterior copiado.
El listbox1 tiene 6 columnas y el número de filas a copiar varía.
Quedo atenta. Salud
1 Respuesta
Respuesta de Dante Amor
1
Prueba el siguiente código:
Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim lr As Long
Set sh = Sheets("Hoja1")
lr = sh.Range("A" & Rows.Count).End(3).Row + 1
With ListBox1
sh.Range("A" & lr).Resize(.ListCount - 1, .ColumnCount).Value = .List
End With
End Sub[Avísame cualquier duda. No olvides valorar.
