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
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