Msgbox
Hola hermano.
Tengo un problema, en textbox que al momento de ingresar un dato me hace una búsqueda en el libro activo, pero cuando no encuentra el dato tengo una trampa de error con un msgbox que menciona que no ah sido encontrado, el problema es que cada que meto el dato aunque si lo encuentre me manda el msgbox, ¿cómo puedo corregir esto?
De antemano muchas gracias, anexo el código que he utilizado.
Saludos.
Private Sub TextBox1_Change() "aqui se ingresan los datos a buscar"
On Error GoTo noencontro
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
noencontro:
MsgBox "Valor no encontrado"
Range("F1").FormulaR1C1 = TextBox1
End Sub
Tengo un problema, en textbox que al momento de ingresar un dato me hace una búsqueda en el libro activo, pero cuando no encuentra el dato tengo una trampa de error con un msgbox que menciona que no ah sido encontrado, el problema es que cada que meto el dato aunque si lo encuentre me manda el msgbox, ¿cómo puedo corregir esto?
De antemano muchas gracias, anexo el código que he utilizado.
Saludos.
Private Sub TextBox1_Change() "aqui se ingresan los datos a buscar"
On Error GoTo noencontro
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
noencontro:
MsgBox "Valor no encontrado"
Range("F1").FormulaR1C1 = TextBox1
End Sub
1 respuesta
Respuesta de Eduard Caballero
1
Prueba así
Private Sub TextBox1_Change() 'aqui se ingresan los datos a buscar'
Set resp = Cells.Find(What:=textbox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox "Valor no encontrado"
Else
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
Range("F1").FormulaR1C1 = textbox1
End If
End Sub
Private Sub TextBox1_Change() 'aqui se ingresan los datos a buscar'
Set resp = Cells.Find(What:=textbox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
MsgBox "Valor no encontrado"
Else
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
Range("F1").FormulaR1C1 = textbox1
End If
End Sub
Muchas gracias por la pronta respuesta.
Ya probé con el código que me mandaste, ahora lo que sucede es que me arroja el valor que conincida con el primer dígito del valor que busco.
Ejemplo
Los valores que busco empiezan de esta forma y todos llevan el mismo formato
FS000001 AL FS039000
Ya no busca el valor exacto sino solamente la coincidencia de la primera letra que es la "F" para todos.
Así mismo me gustaría comentarte que la búsqueda me gustaría hacerla con un lector de código de barras, y con este solo me lee el primer dígito del código que seria "F" (también los hice con copy paste y ahí fue donde comprobé el error que te menciono arriba)
Agradezco de sobremanera tu garndiosa ayuda. Gracias.
Ya probé con el código que me mandaste, ahora lo que sucede es que me arroja el valor que conincida con el primer dígito del valor que busco.
Ejemplo
Los valores que busco empiezan de esta forma y todos llevan el mismo formato
FS000001 AL FS039000
Ya no busca el valor exacto sino solamente la coincidencia de la primera letra que es la "F" para todos.
Así mismo me gustaría comentarte que la búsqueda me gustaría hacerla con un lector de código de barras, y con este solo me lee el primer dígito del código que seria "F" (también los hice con copy paste y ahí fue donde comprobé el error que te menciono arriba)
Agradezco de sobremanera tu garndiosa ayuda. Gracias.
Eso es porque colocaste que se hiciera la búsqueda en el Change del formulario.
Si te fijas la modificación de tu código original no fue significativa. Haría lo mismo en el caso que no se hubiese modificado.
Deberías colocarla que la búsqueda se haga al dar click en un command button o en algún otro evento del textbox
Si te fijas la modificación de tu código original no fue significativa. Haría lo mismo en el caso que no se hubiese modificado.
Deberías colocarla que la búsqueda se haga al dar click en un command button o en algún otro evento del textbox
Gracias por la ayuda, ya se soluciono el error, cambien el código al command button y se ejecuta hasta que hay interacion con el usuario.
Saludos.
Saludos.
