Saludos, tengo un catalogo para piezas automotrices al que le agrege un motor de busqueda con VB. Soy nuevo en este proceso y las variables de mi tabla son muy amplias.

La tabla tiene 12 columnas, A,B D es Marca, Modelo y Año y quisiera que el resultado de la busqueda me arrojara el resultado de las celdas correspondientes en las columnas F y H.

Ejemplo de la tabla:

Marca Modelo X año Y DEL Z TRAS

Fiat 500 x1 2012 y1 D123 z1 T456

Fiat 500 x2 2012 y2 D456 z1 T456

Ford Focus x3 2002 y3 D789 z3 T678

Incluyo anexo.

He logrado hacer un formulario con un macro que hace la busqueda inicial pero no se como extraer los datos de las celdas F y H.

El otro problema es como evitar errores de Loop si el dato introducido no existe en la tabla.

Notar que el dato del año puede ser problematico debido a que un vehiculo del mismo ano puede tener 1 o mas coincidencias. Es decir puede tener dos o tres piezas delanteras o traseras que sirven al mismo auto.

Es posible que el Fiat 500 de 2012 utilize la pieza D123 o la D456.

Muchas gracias de antemano

Esto es lo que tengo hasta ahora:

Private Sub CommandButton1_Click()

Columns("A:A").Select

Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(0, 1).Activate

Cells.Find(What:=TextBox2, After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(0, 2).Activate

Cells.Find(What:=TextBox3, After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Select

ActiveCell.Offset(0, 2).Select

End Sub

Ejemplo catalogo1.xls

Suba un archivo de muestra con lo que lleva programado.

Listo, Gengis Khan. Espero que esto ayude.

Saludos

Hola tazne

Bienvenido al foro.

En el adjunto tienes una opción con un filtro avanzado (automatizado con una macro), creo que es la opción más rápida y sencilla.

Un saludo desde Vitoria

FiltroAvanzado_io_130307.zip

Ioyama, Gracias por tu ayuda, el filtro fuciona muy bien, pero todavia no pude entender del todo el procedimiento. Serias tan amable de explicar el significado de la formula que utilizaste? Especialmente la definicion de los rangos en la primera y segunda linea. De nuevo, muchas gracias.

Saludos desde Boston