Foros del Web » Programación para mayores de 30 ;) » Programación General »

Buscador Catalogo Automotriz

Estas en el tema de Buscador Catalogo Automotriz en el foro de Programación General en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 05/03/2013, 16:35
 
Fecha de Ingreso: marzo-2013
Mensajes: 1
Antigüedad: 9 años, 5 meses
Puntos: 0
Pregunta Buscador Catalogo Automotriz

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

Logre hacer un formulario con un macro que hiciera 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.
Es posible que el Fiat 500 de 2012 utilize la pieza D123 o la D321.

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

Etiquetas: busqueda, catalogo, excel, visualbasic
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 05:14.