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.
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