Pasar elementos de un listbox a varios text

[David]

Iniciado por Kitty_05

Código:

Private Sub ArtProvs_Click()
Dim x As Long
Dim r, tmp
 
For x = 0 To ArtProvs.ListCount - 1
    If ArtProvs.Selected(x) Then
       ArtReq(x).Text = ArtProvs.List(x)
    End If
 
Next x
End Sub

Esto me funciona pero me coloca lo q capturo directamente en el textbox q tenga el mismo indice del listbox.

Eso esta bien pero no logro q lo agregue justo al siguiente
por ejemplo si selecciona el ArtProvs.List(2) del listbox q lo agregue al ArtReq(1).Text y solo al 1 .. aora solo logro que caiga en el que corresponde al indice se q la razon es pq tienen la misma variable pero si le coloc otra diferente no se como sacarlo del ciclo luego de q llena ese campo

Coloca un contador:

Código:

 
Private Sub ArtProvs_Click()
Dim Count As Long
Dim x As Long
Dim r, tmp
 
For x = 0 To ArtProvs.ListCount - 1
    If ArtProvs.Selected(x) Then
       ArtReq(Count).Text = ArtProvs.List(x)
       Count = Count + 1
    End If
 
Next x
End Sub