Vincular un combobox con un textbox

4 envíos / 0 nuevos
Último envío
jismael
Imagen de jismael
Offline
última acción: Hace 3 semanas 5 días
alta: 23/10/2017 - 14:48
Puntos: 45
Vincular un combobox con un textbox

Buenos días, soy nuevo en el foro.

Tengo un combobox1, y deseo que al seleccionar un dato de este combobox me muestre un valor en un textbox1, me explico, selecciono el codigo de un producto en un combobox y que el nombre del producto aparezca en el textbox.

Tengo una hoja llamada "datos", y la columna O tiene los codigos, y la columna P, tiene los nombres de los productos.

Si alguien tiene un código les agradecería mucho.

Saludos

Jorge Ismael 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 3 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7570
Application.WorksheetFunction.VLOOKUP

Puedes utilizar la función BURCARV desde el código; en VBA se hace con Application.WorksheetFunction.Vlookup

por ejemplo en el evento Change de tu combobox podrías tener algo parecido a esto:

Me.TextBox1.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Datos!O:P"), 2, False)

 

 

Data Tools Suite
datos y tablas con Excel

jismael
Imagen de jismael
Offline
última acción: Hace 3 semanas 5 días
alta: 23/10/2017 - 14:48
Puntos: 45
Algo al parecer etoy haciendo

Algo al parecer etoy haciendo mal, Error 1004 en tiempo de ejecucion.. que será?

jismael
Imagen de jismael
Offline
última acción: Hace 3 semanas 5 días
alta: 23/10/2017 - 14:48
Puntos: 45
Hice ésto y me resultó,

Hice ésto y me resultó, espero si alguien mas lo necesita que le seriva...

dato = ComboBox1.Value

Set busco = Sheets("datos").Range("o2:p100").Find(dato, LookIn:=xlValues, lookat:=xlWhole)

If Not busco Is Nothing Then

TextBox1 = busco.Offset(0, 1).Value

'Else   'si no lo encontró limpia el textbox de posibles valores anteriores

'TextBox1 = "Sin Dato"

End If

Abrazos desde Chile