Cargar varios Textbox con un combobox

11/10/2008 - 14:23 por GRIEGO59 | Informe spam
Hola!
Tengo un formulario con un combobox Productos y siete Textbox:TextBox1,
TextBox2 ... TextBox7, con el siguiente código:

Private Sub UserForm_Initialize()
Productos.ColumnCount = 4
Productos.ColumnWidths = "45;180;100,25"
With Worksheets("FichaTécnica")
Productos.List = .Range(.Range("a2"), .Range("e2").End(xlDown)).Value
End With
End Sub

Private Sub Productos_Change()
TextBox1 = Productos.Value

End With
End Sub

Por los momentos, al seleccionar un producto en combobox Productos, el
código aparece en TextBox1. Yo quisiera que si selecciono otros productos
más, sus códigos se muestren en TextBox2, TextBox3, … TextBox7.

La cantidad de productos a seleccionar, depende del estado de ánimo del
cliente.
El Código de producto puede repetirse en TextBox1, TextBox2 … TextBox7.

Sería fenomenal si al tener varios productos seleccionados y borro un código
de producto de un TextBox intermedio, y luego selecciono un nuevo producto,
el nuevo producto aparece en el TextBox intermedio que he borrado.

Alguien podría ayudarme?

La hoja FichaTécnica tiene las siguientes columnas:
Código, Descripción del producto, Color, Ubicación física.

Gracias por la ayuda,

Darío.
 

Leer las respuestas

#1 Ivan
11/10/2008 - 17:04 | Informe spam
hola Dario,

creo que tu exposicion deja unas cuantas dudas en el aire, importantes
para no tirar a ciegas:

Tengo un formulario con un combobox Productos y siete Textbox:TextBox1,
TextBox2 ... TextBox7,
...
... al seleccionar un producto en combobox Productos, el


código aparece en TextBox1. Yo quisiera que si selecciono otros productos
más, sus códigos se muestren en TextBox2, TextBox3, … TextBox7
...
La cantidad de productos a seleccionar, depende del estado de ánimo del
cliente.



¿y, dado que la cantidad de productos seleccionados depende del
criterio del usuario, que se supone que debe hacerse si se supera el
nº de 7 productos?

en cualquier caso creo que una primera aproximacion podria ser al go
tipo=>

recorrer los 7 textbox con un bucle cada vez que 'cambie' [en tu ej.
usas el Change] el combo y asignar el valor seleccionado al 1er
textbox vacio que encuentres. Por ej, usando la propiedad controls del
userform. Algo tipo

dim n as integer
for n= 1 to 7
if me.controls("TextBox" & n).Text = "" then _
me.controls("TextBox" & n).Text = Productos.Value : Exit for
next

ahora, aparte de otros factores, control de errores incluido, cuando
los siete textbox esten llenos ¿que se deberia hacer?

bueno, creo que hay alguna duda mas, pero a lo mejor te sirve para ir
cogiendo alguna idea

un saludo
Ivan

Preguntas similares