Jump to content
Alfonso5597

Imprimir desde listbox

Recommended Posts

Hola estimados amigos , espero que me puedan ayudar en este asunto con el que no acierto, tengo este codigo, con el selecciono lo que tengo en el listado para enviarlo a la hoja, pero solo consigo enviar la fila que selecciono, y la quiero enviar todas las del listado

 Muchas gracias por adelantado 

Un cordial saludo

 

Private Sub ListBox2_Click()
Sheets("Facturas").Select
Range("A16:H16").Select
Cells.Select
Selection.ClearContents
With ActiveSheet
Lin = 15
For i = 0 To ListBox2.ListCount - 1
 
        .Cells(Lin, 1) = CDbl(ListBox2.Column(0, i))
        .Cells(Lin, 2) = ListBox2.Column(1, i)
        .Cells(Lin, 3) = CDbl(ListBox2.Column(2, i))
        .Cells(Lin, 4) = CCur(ListBox2.Column(3, i))
        .Cells(Lin, 5) = ListBox2.Column(4, i)
        Next
        End With
End Sub

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png