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

Respuesta
1

Pero en el combobox1, ¿tienes más datos o solamente un dato?

Lo mismo en el combobox2, ¿tienes solamente un dato?

¡Gracias! Solo un dato

Gracias 

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 Sub

El 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

He echo lo que me has dicho ahí te envío fotos nada, no sube nada

Pero tienes que escribir algo dentro del combo.

En tu imagen el combo está vacío

Observa que abajo siguen vacío

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

Esos datos lo toma de MKP2 esa es la hoja de donde tomo los datos

Si quieres te ayudo a adaptar el código, envíame tu archivo y te apoyo.

[email protected]

Envíame tu archivo y te apoyo.

[email protected]

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.

[email protected]

ya lo he enviado

Cualquier duda avisame, desde ayer estoy trabado en eso y no encuentro la solución

Gracias

Eusebio

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 Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas