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
 

Preguntas similares