De ComboBox de 2 columnas a Listbox de 3 columnas

[Moratti]

Tengo un comboBox con 2 Columnas y al pasar los datos a un ListBox, solo me pasa el dato de una de las columnas. Asignar una prenda y la cantidad de prendas.

en el Formulario tengo lo siguiente

Private Sub UserForm_Initialize()

Dim L as Long

With Hoja7

      Me.ComboProd = Clear       ' ComboProd es el nombre del Combo

     Do while   . Cells(L,1)  <>""

            ComboProd.AddItem

            ComboProd.List(ComboProd.ListCount -1, 0) =.Cells(L, 1)

            ComboProd.List(ComboProd.ListCount -1, 1)=.Cells(L, 1)

    L = L + 1

   Loop

End With

End Sub

 

Se añaden los datos al ListBox a través de Un CommandButton y tengo este código

Private Sub Validar_Click()

With ListaProd

    .ColumnCount =3

    .Columnswidths =   "40;120;50"

    . AddItem

    . List(.ListCount -1, 0) = ComboProd

    .List(.ListCount -1, 1 ) =  ' Aquí debería de aparecer la segunda columna del Combo y no se como hacerlo

    .List(.ListCount -1, 2) = TextCantProd  ' Donde este es un textBox para meter la cantidad de prendas

End With

 

Gracias

[Antoni]

 .List(.ListCount -1, 1 )  = ComboProd.List(ComboProd.ListIndex, 1)

 

[Moratti]

En 17/11/2020 at 19:00 , Antoni dijo:

 .List(.ListCount -1, 1 )  = ComboProd.List(ComboProd.ListIndex, 1)

 

muchísimas gracias, enredando se aprende, pero hay veces... al final aprenderé.