Command Botton error 91
Una vez más recurro a ustedes.
Espero me puedan ayudar, y si no, aun así se les agradezco el tiempo.
Mi pregunta es esta:
Manejo una base de datos en excel, son cerca de 2,500 filas, donde vienen datos de facturas, uso un cuadro de búsqueda y un cuadro de texto para buscar (...) números de facturas, el detalle es que cuando ingreso un numero que no se encuentra en la base de datos me manda el error ¨se ha producido el error 91 en tiempo de ejecución: Variable de objeto o bloque With no establecido¨la pregunta es: ¿Se puede modificar este aviso para en ves de decir eso diga algo así como ¨no se localiza factura¨?
Mil gracias por su tiempo!
Espero me puedan ayudar, y si no, aun así se les agradezco el tiempo.
Mi pregunta es esta:
Manejo una base de datos en excel, son cerca de 2,500 filas, donde vienen datos de facturas, uso un cuadro de búsqueda y un cuadro de texto para buscar (...) números de facturas, el detalle es que cuando ingreso un numero que no se encuentra en la base de datos me manda el error ¨se ha producido el error 91 en tiempo de ejecución: Variable de objeto o bloque With no establecido¨la pregunta es: ¿Se puede modificar este aviso para en ves de decir eso diga algo así como ¨no se localiza factura¨?
Mil gracias por su tiempo!
1 respuesta
Respuesta de Abraham Valencia
Perdoname, mil disculpas, la función es esta:
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Private Sub TextBox1_Change()
End Sub
Saludos...
Private Sub CommandButton1_Click()
Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
Private Sub TextBox1_Change()
End Sub
Saludos...
Private Sub CommandButton1_Click()
on error goto xxx
Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
end sub
xxx:
Msgbox "No hay nada"
End Sub
Abraham
on error goto xxx
Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
end sub
xxx:
Msgbox "No hay nada"
End Sub
Abraham
