Hola, buenas tardes me podrian ayudar con este proyecto.

adjunto ejemplo

Lo que necesito es que tengo en una base, datos concatenados en un hoja de excel y he logrado separarlo con split a unos textbox pero ahora me surgio la idea de ponerlos directamente en un listbox sin separarlos previamente. sera que me podria ayudar con el codigo.

 

Salu2

 

Ejemplo Listbox concatenado.xls

Private Sub LlenarListBox()
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   B = Split(Range("B" & x), "-")
   C = Split(Range("C" & x), "-")
   D = Split(Range("D" & x), "-")
   With ListBox1
      For y = 0 To UBound(B)
         .AddItem Range("A" & x)
         .List(.ListCount - 1, 1) = B(y)
         .List(.ListCount - 1, 2) = C(y)
         .List(.ListCount - 1, 3) = D(y)
      Next
   End With
Next
End Sub

Llama a este procedimiento para llenar el ListBox.

Excelente Antoni, muchas gracias

 

Exacto lo que necesitaba

 

 

Tema cerrado

Salu2