buscarv con cuadro de texto en formulario

23/03/2008 - 08:09 por GRIEGO59 | Informe spam
Hola!
Estoy usando este código para buscar en la hoja productos la descripción y
el presio y ponerlos en los textbox 50 y 51 en función del textbox2

pero no me funciona muy bien ya que si el codigo del producto es por ejemplo
si yo escribo 31 el toma cualquier producto que dentro de su código tenga el
31 es decir toma el producto con el codigo 3124

ya probé poniendo en codigo con el after uptate pero igual.

Private Sub TextBox2_change()
Sheets("productos").Select
[c7].Select
On Error GoTo noencontro
Cells.Find(What:=TextBox2, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate

ActiveCell.Offset(0, 1).Select
TextBox50 = ActiveCell
ActiveCell.Offset(0, 4).Select
TextBox51 = ActiveCell
noencontro:
End Sub


Gracias por la ayuda

Osiris

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
23/03/2008 - 08:18 | Informe spam
hola, Darío !

Estoy usando este codigo para buscar en la hoja productos la descripcion y el presio
y ponerlos en los textbox 50 y 51 en funcion del textbox2
pero no me funciona muy bien ya que si el codigo del producto es por ejemplo si yo escribo 31
el toma cualquier producto que dentro de su codigo tenga el 31 es decir toma el producto con el codigo 3124
ya probe poniendo en codigo con el after uptate pero igual.



prueba cambiando en el metodo ".Find", el argumento LookAt...
de: -> xlPart
a: -> xlWhole

saludos,
hector.

__ el codigo expuesto __
Private Sub TextBox2_change()
Sheets("productos").Select
[c7].Select
On Error GoTo noencontro
Cells.Find(What:=TextBox2, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox50 = ActiveCell
ActiveCell.Offset(0, 4).Select
TextBox51 = ActiveCell
noencontro:
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida