Devolver valor de un ComboCox en TextBox

A ver quien puede ayudarme.

Tengo una tabla con datos en 3 columnas.

Tengo un ComboBox1 que selecciona un nombre de la primera columna de "Tabla3" y quiero que me devuelva el valor de la segunda y tercera columna de la "Tabla3" en un TextBox1 y TextBox2 pero no se como hacerlo.

2 Respuestas

Respuesta
1

Esto te puede ayudar

https://www.youtube.com/watch?v=T96KL_A1euo&list=PLdK9H5dMIfQhfsDkpH5ZCBGrh68DfOTa3 

https://www.youtube.com/watch?v=7c7mV8fe4sw&list=PLdK9H5dMIfQhfsDkpH5ZCBGrh68DfOTa3 

Respuesta
1

[Hola Javier. Te pongo un ejemplo para un botón, pero también lo puedes poner dentro del evento change del combobox.

Private Sub CommandButton1_Click()
 If ComboBox1 = "" Then Exit Sub
 Set h = Sheets("Hoja1")
 Set b = h.Range("A:A").Find(ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
 If Not b Is Nothing Then
    TextBox1 = h.Range("B" & b.Row)
    TextBox2 = h.Range("C" & b.Row)
 Else
    MsgBox ("El código no existe")
 End If
End Sub

Doy por hecho que cargas el combobox con los datos de la hoja. Recuerda cambiar, en el código, el nombre del combobox1 por el que tengas, igual con los textbox. 

Espero que sea lo que necesitas, si es así, recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas