Imprimir datos cargados dentro de un mismo listbox
Necesito imprimir datos cargados dentro de un mismo listbox, estos datos no recogen información de una hoja de excel, sino que quiero imprimir cuatro columnas del listbox a excel.
1 Respuesta
Respuesta de Dante Amor
1
¿Quieres pasar los datos de un listbox a una hoja de excel?
Si es así, utiliza lo siguiente:
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h = Sheets("Hoja9")
fila = 1
For i = 0 To ListBox1.ListCount - 1
h.Cells(fila, "E") = ListBox1.List(i, 0)
h.Cells(fila, "F") = ListBox1.List(i, 1)
h.Cells(fila, "G") = ListBox1.List(i, 2)
h.Cells(fila, "H") = ListBox1.List(i, 3)
fila = fila + 1
Next
End SubCambia "Hoja9" por el nombre de la hoja donde vas a poner los datos
Cambia fila = 1 por el número de fila donde quieres que inicien los datos
Cambia "E", "F", "G" y "H" por las columnas.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
