BuscarV en textbox

04/05/2008 - 05:08 por GRIEGO59 | Informe spam
Hola!
Estaba usando este codigo para buscar en la hoja productos en funcion de el
textbox2,pero ahora no se por que no me funciona.

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

ActiveCell.Offset(0, 1).Select
TextBox18 = ActiveCell
ActiveCell.Offset(0, 4).Select
TextBox34 = ActiveCell
noencontro:
End Sub

me lleva directo al corrector de codigo y se remarca desde
On error hasta
.Activate

Que estare haciendo mal?
Darío
 

Leer las respuestas

#1 Héctor Miguel
04/05/2008 - 06:36 | Informe spam
hola, Darío !

ELIMINA el espacio y el guion_bajo que tienes en la linea del "On Error .."
de: -> On Error GoTo noencontro _
a: -> On Error GoTo noencontro

saludos,
hector.

__ la consulta original __
Estaba usando este codigo para buscar en la hoja productos en funcion del textbox2, pero ahora no se por que no me funciona.

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


ActiveCell.Offset(0, 1).Select
TextBox18 = ActiveCell
ActiveCell.Offset(0, 4).Select
TextBox34 = ActiveCell
noencontro:
End Sub

me lleva directo al corrector de codigo y se remarca desde On error hasta .Activate

Que estare haciendo mal?

Preguntas similares