Cargar datos en textbox al seleccionar algo en combobox

4 envíos / 0 nuevos
Último envío
kiossno
Imagen de kiossno
Offline
última acción: Hace 1 año 1 mes
alta: 03/01/2017 - 16:18
Puntos: 25
Cargar datos en textbox al seleccionar algo en combobox

Hola a todos! Soy nuevo en el foro y estoy aprendiendo apenas el uso de formularios y lenguaje de programación en VBA.

Quisiera de su ayuda y experiencia, para que me orienten en como hacer que al seleccionar un "ÍTEM" en el combobox, se me rellenen en auntomatico los diferentes textbox que tengo.

Verán, tengo una base de datos con datos en las columnas como ítem, transformador, ubicación, capacidad, etc, y quisiera que al seleccionar un ítem, me muestre los diferentes datos pertencientes a dicho ítem. 

Como verán, tengo una pequeña tabla dinámica que utilicé para hacer la lista de los ítems, de manera que no se repitan y cargarla al combobox. 

formularios base de datos en Excel

Tengo esta cantidad de textbox's porque son la maxima cantidad que se ocupan para mostrar la informacion perteneciente a dicho ítem. Pero cuando selecciono cualquier otro ítem que no rellena todos los campos pues obviamente me sale un error, debido a que no lo puede rellenar porque no hay información. Tengo éste código:

Private Sub ComboBox1_Change()

 Me.TextBox5.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G31"), 2, False)

 Me.TextBox6.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G31"), 3, False)

 Me.TextBox7.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G31"), 4, False)

 Me.TextBox8.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G31"), 5, False)

 Me.TextBox9.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G31"), 6, False)

 Me.TextBox10.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G31"), 7, False)

 Me.TextBox11.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A3:G31"), 2, False)

 Me.TextBox12.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A3:G31"), 3, False)

  Me.TextBox13.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A3:G31"), 4, False)

 Me.TextBox14.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A3:G31"), 5, False)

  Me.TextBox15.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A3:G31"), 6, False)

 Me.TextBox16.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A3:G31"), 7, False)

  Me.TextBox17.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A4:G31"), 2, False)

 Me.TextBox18.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A4:G31"), 3, False)

  Me.TextBox19.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A4:G31"), 4, False)

 Me.TextBox20.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A4:G31"), 5, False)

  Me.TextBox21.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A4:G31"), 6, False)

 Me.TextBox22.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A4:G31"), 7, False)

  Me.TextBox23.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A5:G31"), 2, False)

 Me.TextBox24.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A5:G31"), 3, False)

  Me.TextBox25.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A5:G31"), 4, False)

 Me.TextBox26.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A5:G31"), 5, False)

  Me.TextBox27.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A5:G31"), 6, False)

 Me.TextBox28.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A5:G31"), 7, False)

  Me.TextBox29.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A6:G31"), 2, False)

 Me.TextBox30.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A6:G31"), 3, False)

  Me.TextBox31.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A6:G31"), 4, False)

 Me.TextBox32.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A6:G31"), 5, False)

  Me.TextBox33.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A6:G31"), 6, False)

 Me.TextBox34.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A6:G31"), 7, False)

Me.TextBox35.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G31"), 2, False)

 Me.TextBox36.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G31"), 3, False)

  Me.TextBox37.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G31"), 4, False)

 Me.TextBox38.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G31"), 5, False)

  Me.TextBox39.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G31"), 6, False)

 Me.TextBox40.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G31"), 7, False)

  Me.TextBox41.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A8:G31"), 2, False)

 Me.TextBox42.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A8:G31"), 3, False)

  Me.TextBox43.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A8:G31"), 4, False)

 Me.TextBox44.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A8:G31"), 5, False)

  Me.TextBox45.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A8:G31"), 6, False)

 Me.TextBox46.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A8:G31"), 7, False)

  Me.TextBox47.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A9:G31"), 2, False)

 Me.TextBox48.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A9:G31"), 3, False)

  Me.TextBox49.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A9:G31"), 4, False)

 Me.TextBox50.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A9:G31"), 5, False)

  Me.TextBox51.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A9:G31"), 6, False)

 Me.TextBox52.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A9:G31"), 7, False)

  Me.TextBox53.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A10:G31"), 2, False)

 Me.TextBox54.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A10:G31"), 3, False)

  Me.TextBox55.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A10:G31"), 4, False)

 Me.TextBox56.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A10:G31"), 5, False)

  Me.TextBox57.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A10:G31"), 6, False)

 Me.TextBox58.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A10:G31"), 7, False)

  Me.TextBox59.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A11:G31"), 2, False)

 Me.TextBox60.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A11:G31"), 3, False)

  Me.TextBox61.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A11:G31"), 4, False)

 Me.TextBox62.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A11:G31"), 5, False)

  Me.TextBox63.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A11:G31"), 6, False)

 Me.TextBox64.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A11:G31"), 7, False)

  Me.TextBox65.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G31"), 2, False)

 Me.TextBox66.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G31"), 3, False)

  Me.TextBox67.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G31"), 4, False)

 Me.TextBox68.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G31"), 5, False)

  Me.TextBox69.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G31"), 6, False)

 Me.TextBox70.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G31"), 7, False)

End Sub

 
Como ven es muy tedioso, pero es la manera que yo encontré, apenas empiezo y quisiera que me ayudaran a resolver este problemilla.
 
Gracias!
AdjuntoTamaño
Image icon sin_titulo.png181.74 KB

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 11 horas 23 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 8115
Varias cosas:Si estás

Varias cosas:

Si estás empezando y tienes posibilidad, no empieces con Excel sino con Access. Access es más adecuado para casos como este, para crear formularios, para manipular datos relacionados (un ítem con varios artículos), etc.

Dicho esto:

En tu caso tienes para un mismo Item varios registros diferentes. Esto NO lo puedes resolver mediante BUSCARV o VLOOKUP en VBA, porque esta función sólo devuelve la primera coincidencia, así que sólo va a devolver el primer registro 11 veces

El truco que empleas de cambiar la referencia en la que buscas para obtener los siguientes datos (empiezas por Información_general!A2:G31 y terminas en Información_general!A12:G31) sólo te sirve para el primer Item, Anillo_1, pero no te sirve para los demás registros porque están en otras filas, por ejemplo el anillo3 está en las filas 15 a 25. Imagino que no sabes de antemano en qué filas está cada cosa, porque si lo supieses leerías directamente los datos y no tendrías que buscarlos con Vlookup

 

Sobre el error que te da al buscar datos que no están: añade un control de errores a tu procedimiento

Private Sub ComboBox1_Change()

On error GoTo TrataError

....' aquí tu código

Exit Sub

TrataError:

'aquí compruebas lo que sea con el error, puedes comprobar el número de error o lo que necesites

' por ejemplo puedes pasar a lo siguiente

   Resume Next  'para pasar a la siguiente instrucción

End Sub

 

 

Data Tools Suite
datos y tablas con Excel

Jiovani (no verificado)
Imagen de Jiovani
Gracias

Muchas gracias por contestar! 

Por ahora tengo un código que me vá, pero es muy impráctico, y como dices el "truco" que utilicé sólo me sirve para el primer ítem, por lo que reacomodé la tabla de manera que puse los que siempre aparecerán en la primer fila de los textbox al inicio.

Como digo es impráctico, pero por ahora funciona. Me meteré con acces para ver que puedo entender. Muchas gracias!

Private Sub ComboBox1_Change()

Me.TextBox5.value = ""

Me.TextBox6.value = ""

Me.TextBox7.value = ""

Me.TextBox8.value = ""

Me.TextBox9.value = ""

Me.TextBox10.value = ""

Me.TextBox11.value = ""

Me.TextBox12.value = ""

Me.TextBox13.value = ""

Me.TextBox14.value = ""

Me.TextBox15.value = ""

Me.TextBox16.value = ""

Me.TextBox17.value = ""

Me.TextBox18.value = ""

Me.TextBox19.value = ""

Me.TextBox20.value = ""

Me.TextBox21.value = ""

Me.TextBox22.value = ""

Me.TextBox23.value = ""

Me.TextBox24.value = ""

Me.TextBox25.value = ""

Me.TextBox26.value = ""

Me.TextBox27.value = ""

Me.TextBox28.value = ""

Me.TextBox29.value = ""

Me.TextBox30.value = ""

Me.TextBox31.value = ""

Me.TextBox32.value = ""

Me.TextBox33.value = ""

Me.TextBox34.value = ""

Me.TextBox35.value = ""

Me.TextBox36.value = ""

Me.TextBox37.value = ""

Me.TextBox38.value = ""

Me.TextBox39.value = ""

Me.TextBox40.value = ""

Me.TextBox41.value = ""

Me.TextBox42.value = ""

Me.TextBox43.value = ""

Me.TextBox44.value = ""

Me.TextBox45.value = ""

Me.TextBox46.value = ""

Me.TextBox47.value = ""

Me.TextBox48.value = ""

Me.TextBox49.value = ""

Me.TextBox50.value = ""

Me.TextBox51.value = ""

Me.TextBox52.value = ""

Me.TextBox53.value = ""

Me.TextBox54.value = ""

Me.TextBox55.value = ""

Me.TextBox56.value = ""

Me.TextBox57.value = ""

Me.TextBox58.value = ""

Me.TextBox59.value = ""

Me.TextBox60.value = ""

Me.TextBox60.value = ""

Me.TextBox61.value = ""

Me.TextBox62.value = ""

Me.TextBox63.value = ""

Me.TextBox64.value = ""

Me.TextBox65.value = ""

Me.TextBox66.value = ""

Me.TextBox67.value = ""

Me.TextBox68.value = ""

Me.TextBox69.value = ""

Me.TextBox70.value = ""

On Error GoTo TrataError

Me.TextBox5.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G6"), 2, False)

Me.TextBox6.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G6"), 3, False)

Me.TextBox7.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G6"), 4, False)

Me.TextBox8.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G6"), 5, False)

Me.TextBox9.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G6"), 6, False)

Me.TextBox10.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A2:G6"), 7, False)

Me.TextBox11.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G11"), 2, False)

Me.TextBox12.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G11"), 3, False)

Me.TextBox13.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G11"), 4, False)

Me.TextBox14.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G11"), 5, False)

Me.TextBox15.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G11"), 6, False)

Me.TextBox16.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A7:G11"), 7, False)

Me.TextBox17.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G15"), 2, False)

Me.TextBox18.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G15"), 3, False)

Me.TextBox19.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G15"), 4, False)

Me.TextBox20.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G15"), 5, False)

Me.TextBox21.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G15"), 6, False)

Me.TextBox22.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A12:G15"), 7, False)

Me.TextBox23.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A16:G19"), 2, False)

Me.TextBox24.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A16:G19"), 3, False)

Me.TextBox25.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A16:G19"), 4, False)

Me.TextBox26.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A16:G19"), 5, False)

Me.TextBox27.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A16:G19"), 6, False)

Me.TextBox28.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A16:G19"), 7, False)

Me.TextBox29.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A20:G22"), 2, False)

Me.TextBox30.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A20:G22"), 3, False)

Me.TextBox31.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A20:G22"), 4, False)

Me.TextBox32.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A20:G22"), 5, False)

Me.TextBox33.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A20:G22"), 6, False)

Me.TextBox34.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A20:G22"), 7, False)

Me.TextBox35.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A23:G24"), 2, False)

Me.TextBox36.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A23:G24"), 3, False)

Me.TextBox37.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A23:G24"), 4, False)

Me.TextBox38.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A23:G24"), 5, False)

Me.TextBox39.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A23:G24"), 6, False)

Me.TextBox40.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A23:G24"), 7, False)

Me.TextBox41.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A25:G26"), 2, False)

Me.TextBox42.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A25:G26"), 3, False)

Me.TextBox43.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A25:G26"), 4, False)

Me.TextBox44.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A25:G26"), 5, False)

Me.TextBox45.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A25:G26"), 6, False)

Me.TextBox46.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A25:G26"), 7, False)

Me.TextBox47.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A27:G28"), 2, False)

Me.TextBox48.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A27:G28"), 3, False)

Me.TextBox49.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A27:G28"), 4, False)

Me.TextBox50.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A27:G28"), 5, False)

Me.TextBox51.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A27:G28"), 6, False)

Me.TextBox52.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A27:G28"), 7, False)

Me.TextBox53.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A29:G29"), 2, False)

Me.TextBox54.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A29:G29"), 3, False)

Me.TextBox55.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A29:G29"), 4, False)

Me.TextBox56.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A29:G29"), 5, False)

Me.TextBox57.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A29:G29"), 6, False)

Me.TextBox58.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A29:G29"), 7, False)

Me.TextBox59.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A30:G30"), 2, False)

Me.TextBox60.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A30:G30"), 3, False)

Me.TextBox61.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A30:G30"), 4, False)

Me.TextBox62.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A30:G30"), 5, False)

Me.TextBox63.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A30:G30"), 6, False)

Me.TextBox64.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A30:G30"), 7, False)

Me.TextBox65.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A31:G31"), 2, False)

Me.TextBox66.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A31:G31"), 3, False)

Me.TextBox67.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A31:G31"), 4, False)

Me.TextBox68.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A31:G31"), 5, False)

Me.TextBox69.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A31:G31"), 6, False)

Me.TextBox70.value = Application.WorksheetFunction.VLookup(Me.ComboBox1.value, Range("Información_general!A31:G31"), 7, False)

Exit Sub

TrataError:

'aquí compruebas lo que sea con el error, puedes comprobar el número de error o lo que necesites

' por ejemplo puedes pasar a lo siguiente

Resume Next   'para pasar a la siguiente instrucción

End Sub

AdjuntoTamaño
Image icon sin_titulo.png123.81 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 11 horas 23 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 8115
Pero lo que estás haciendo en

Pero lo que estás haciendo en realidad es ir uno por uno en tu lista y si coincide copias los datos.

Para eso no necesitas el Vlookup, Comprueba el valor con el código:

Haz un bucle que recorra tus filas

comprueba si el valor en la primera celda es lo que elegiste en el desplegable, y si lo es

rellenas los valores de los cuadros de texto

 

lleva un contador de los datos que vas copiando para saber en qué textbox lo tienes que apuntar 

Igual te resulta útil referirte a los textbox por su nombre de la siguiente manera

Me.Controls("TextBox1")

Así puedes componer el nombre del control como una cadena de texto y utilizar un contador o una variable para saber dónde anotar el dato.

Me.Controls("TextBox" & contador) ' es sólo un ejemplo

 

Data Tools Suite
datos y tablas con Excel