Cargar 2 fila de un lixtbox a Textbox

[Alynson]

Hola a todos,  aqui le presento  una sugerencia.

Es posible poder pasar datos 2 o mas filas de un Listbox a varios Textbox.

Private Sub lbxListado_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   'CARGAR DATOS A CAJA DE TEXTO
   INDICE = Me.lbxListado.ListIndex
     tbxNombre.Value = lbxListado.List(INDICE, 0)
     tbxPrecio.Value = lbxListado.List(INDICE, 1)
     cbxUnidad.Value = lbxListado.List(INDICE, 2)
    
End Sub

Aqui consigo pasar los datos de una fila, pero me gustaria poder pasar 2 o mas fila si es posible.

[Antoni]

Sube tu archivo y pon un ejemplo de lo que quieres.

[Alynson]

Okey, gracias, eso hare

 

[Israel Cassales]

Saludos cordiales.

En lo que se comparte el ejemplo y en base a lo explicado hasta ahora, considero que necesitarías iterar sobre las filas seleccionadas en tu ListBox.

Algo así:

Private Sub lbxListado_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'CARGAR DATOS A CAJAS DE TEXTO
    Dim i As Integer
    For i = 0 To lbxListado.ListCount - 1
        If lbxListado.Selected(i) Then
            tbxNombre.Value = tbxNombre.Value & " " & lbxListado.List(i, 0)
            tbxPrecio.Value = tbxPrecio.Value & " " & lbxListado.List(i, 1)
            cbxUnidad.Value = cbxUnidad.Value & " " & lbxListado.List(i, 2)
        End If
    Next i
End Sub

Este ejemplo el código agrega los valores de todas las filas seleccionadas en el ListBox a los TextBox correspondientes. Toma en cuenta que si deseas que los valores se agreguen en TextBox diferentes, necesitas tener más TextBox disponibles y asignar los valores que le correspondan. Si lo ajustas, podrías usarlo para que se adapte a lo que necesitas.