combobox con varias columnas

fulljaz · el 29 de octubre

tengo un programa donde necesito colocar en el combo (el combo busca por nombre de articulo es es el rango), pero cuando se le coloca para que hayan 2 columnas el combo entonces no muestra el nombre del articulo sino el codigo

En excel las columnas estan asi definidas para otros formularios mas, no se deberia cambiar este orden:

SERIAL ARTICULO CANT PRECIO UNITARIO

en formulario:

SERIAL ARTICULO CANTDISPONIBLE PRECIO UNITARIO

textbox1_serial combos1_artic textbox1_cantidad textbox1_precio 10 campos iguales

AL LLENAR EL COMBO ESTA ASI



Private Sub LLENARCOMBO()

cbb1.List = Productos.Range("B2:B" & Productos.Range("A" & Rows.Count).End(xlUp).Row).Value -> ESTA LINEA MUESTRA UNA COLUMNA NADA MAS


cbb1.List = Productos.Range("B2:A" & Productos.Range("A" & Rows.Count).End(xlUp).Row).Value -> ESTA LINEA MUESTRA 2 COLUMNAS PERO NO BUSCA COMO ARTICULO SINO COMO SERIAL Y ENTONCES EL COMBO QUE ES PARA EL NOMBRE DEL PRODCTO SE COLOCA ES EL SERIAL Y EN EL CAMPO DEL SERIAL TAMBIEN ESTA EL SERIAL


cbb1.ColumnWidths = "40;120" -> ANCHO DE COLUMNAS


For N = 2 To 10  ->DEL 1 AL 10 SON 10 COMBOS

   Controls("cbb" & N).RowSource = ""

   Controls("cbb" & N).RowSource = ""

   Controls("cbb" & N).List = cbb1.List

Next

End Sub

[/CODE]

[b]OTROS DATOS DE LOS COMBOS

[/b]

[CODE]
Private Sub UserForm_Initialize() -> INICIALIZAR
LLENARCOMBO
End Sub
[/CODE]

[b]LLENAR LOS OTROS CAMPOS AL ELEGIR DEL COMBO ESTE CODIGO ANDA BN LLENA TODOS LOS DATOS EN CADA CAMPO CORRESPONDIENTE, EL UNICO PROBLEMA ES EL COMOBO QUE LE SALE SIEMPRE ES EL SERIAL Y NO EL NOMBRE DEL PRODUCTO

[/b]

[CODE]
Private Sub PRODUCTO_Change(Combo As Control) 'Común a todos los combos de producto
If Saltar = True Then Exit Sub
If Combo.ListIndex <> -1 Then
N = Mid(Combo.Name, 4)
Controls("txtcodigo" & N) = Productos.Range("A" & Combo.ListIndex + 2)
Controls("txtprecio" & N) = Format(CDbl(Productos.Range("D" & Combo.ListIndex + 2)), "###,###,###")
Controls("txtdisponible" & N) = Productos.Range("C" & Combo.ListIndex + 2)
Controls("txtcantidad" & N).SetFocus
End If
End Sub
[/CODE]

Gracias!!