Concatenado en celda a Listbox

[Potter08]

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

[Antoni]

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.

[Potter08]

Excelente Antoni, muchas gracias

 

Exacto lo que necesitaba

 

 

Tema cerrado

Salu2