De listbox a hoja excell

[Alfonso5597]

Hola estimados amigos de ayuda excel

Recurro a ustedes despues de estar batallando con un trabajo y estoy bloqueado, les explico, tengo una funcion buscar, y los resultados los envia a un listbox, de hay click en el item que quiero imprimir y me lo envia a la hoja, hasta hay todo bien, el problema lo tengo cuando selecciono varios item, por que solo me pasa uno, espero y agradezco su ayuda

Muchas gracias por anticipado

Funcion buscar.rar

[Antoni]

Este código hace lo que buscas.

Set a = Sheets("Listado")

For x = 0 To Me.ListBox1.ListCount - 1

   If Me.ListBox1.Selected(x) = True Then

      filaedit = a.Range("A" & Rows.Count).End(xlUp).Row + 1

      a.Cells(filaedit, "A") = ListBox1.List(fila, 0)

      a.Cells(filaedit, "B") = ListBox1.List(fila, 1)

      a.Cells(filaedit, "C") = ListBox1.List(fila, 2)

      a.Cells(filaedit, "D") = ListBox1.List(fila, 3)

      a.Cells(filaedit, "E") = ListBox1.List(fila, 4)

      a.Cells(filaedit, "F") = ListBox1.List(fila, 5)

      a.Cells(filaedit, "G") = ListBox1.List(fila, 6)

      a.Cells(filaedit, "H") = ListBox1.List(fila, 7)

      a.Cells(filaedit, "I") = ListBox1.List(fila, 8)

      a.Cells(filaedit, "J") = ListBox1.List(fila, 9)

      a.Cells(filaedit, "K") = ListBox1.List(fila, 10)

      a.Cells(filaedit, "L") = ListBox1.List(fila, 11)

      a.Cells(filaedit, "M") = ListBox1.List(fila, 12)

      a.Cells(filaedit, "N") = ListBox1.List(fila, 13)

   End If

Next


[/CODE]

[Alfonso5597]

Saludos maestro Macro Antonio, con tu solucion no se arregla , solo funca parcialmente, ahora si selecciono el item 1, 2, 3 y 4, me envia 4 veces el item 1 a la hoja "listado"

Saludos