Como puedo carga los Textbox que tengo con los Combox

Necesito que con el combox1 se cargan los datos en los textbox1, textbox2,... Textbox5
Con el Combobox2 se cargan los datos de en los textbox6, textbox7... Textbox8... Extbox13
Los datos están en la hoja MKP2 véase la fig.

1 Respuesta
Pero en el combobox1, ¿tienes más datos o solamente un dato?
Lo mismo en el combobox2, ¿tienes solamente un dato?
Solo quiero que el Combobox me seleccione los Textbox que luego sus datos mi botonclick irán a excel
Eusebio
Te anexo 2 formas de hacerlo, la primera con el combobox1 y la segunda en el combobo2
Private Sub ComboBox1_Change()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then Exit Sub
Set h = Sheets("MKP2")
TextBox1.Value = h.Range("D2")
TextBox2.Value = h.Range("D3")
TextBox3.Value = h.Range("D4")
TextBox4.Value = h.Range("D5")
TextBox5.Value = h.Range("D6")
End Sub
'
Private Sub ComboBox2_Change()
For i = 6 To 13
Me.Controls("TextBox" & i).Value = ""
Next
If ComboBox2.Value = "" Or ComboBox2.ListIndex = -1 Then Exit Sub
Set h = Sheets("MKP2")
For i = 6 To 13
fila = i - 5
Me.Controls("TextBox" & i).Value = h.Range("F" & fila)
Next
End SubEl combo1 carga los textbox de la columna D y el combo2 de la columna F, ajusta las columnas.
Sal u dos


En el Combobox1 debe Cargar en los Textboxe lo que se encuentra en C, y en el Combobox2 se carga lo que se encuentra en DE, envío lo que he echo pero no sube nada a los Textbox
Saludos
Eusebio
Debes elegir un dato que previamente hayas cargado en el combo.
Si solamente cargaste un dato en el combo, entonces debes elegir ese dato y los datos se pondrán en el textbox.
Si por ejemplo utilizaste combobox1. Additem "hola", entonces en el combobox1 te debe aparecer el dato "hola", simplemente elige ese dato y los datos serán cargados
Cuando Cargo la palabra Maschinen en el Combox4 me debe cargar los Textbox con las palabras que están abajo, y cuando cargo la palabra Geräte en el combobox2 me debe cargar en los Textbox los elementos que están abajo, pero es que que en el userform no aparece nada cuando hago click en el combox4 ni tampoco en el combobox5
Quita esta línea en ambos combos
If ComboBox4.Value = "" Or ComboBox4.ListIndex = -1 Then Exit Sub
Los textbox se cargarán cuando escribas algo en el combo
Ya estoy dudando de cómo tienes los dato.
¿Esa es la hoja?
¿Hay datos en las celdas?
Solamente escribe una letra dentro del combo, pon una letra con el teclado dentro del combo, una sola letra dentro del combo
Tengo que ver tu archivo, qué tienes en la hoja, en cuáles celdas, cómo se llaman los controles. Si tu form está en el mismo libro, etc, etc.
Envíame tu archivo y te apoyo.
Listo, revisa mi ejemplo:
Private Sub ComboBox4_Change()
TextBox38.Value = ""
TextBox40.Value = ""
TextBox41.Value = ""
TextBox42.Value = ""
TextBox43.Value = ""
Set h = Sheets("MKP2")
TextBox38.Value = h.Range("C2")
TextBox40.Value = h.Range("C3")
TextBox41.Value = h.Range("C4")
TextBox42.Value = h.Range("C5")
TextBox43.Value = h.Range("C6")
End Subsal u dos
- Compartir respuesta



