Función buscar en un textbox
Hola matodor
Antes que nada te mando un saludo y agradecimientos por las anteriores ayudas, y esta es una de esas
Quiero ver si me puedes ayudar, mira tengo un textbox y quiero que realice una búsqueda y estoy utilizando lo siguiente
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Pero al momento que localice algo lo ponga en una celda en especifico
No se si se pueda mediante un IF o y si si como funciona
Antes que nada te mando un saludo y agradecimientos por las anteriores ayudas, y esta es una de esas
Quiero ver si me puedes ayudar, mira tengo un textbox y quiero que realice una búsqueda y estoy utilizando lo siguiente
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Pero al momento que localice algo lo ponga en una celda en especifico
No se si se pueda mediante un IF o y si si como funciona
1 Respuesta
Respuesta de Eduard Caballero
1
Puedes hacer así. Esto es un ejemplo
Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
Worksheets("Facturas").Activate
MsgBox ("No se encontro factura # " & TextBox1.Value)
Else
resp.Activate
End If
Eso te selecciona la búsqueda. Si quieres moverte a la columna contigua usa activecell. Offset(0,). select y listo
Set resp = Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resp Is Nothing Then
Worksheets("Facturas").Activate
MsgBox ("No se encontro factura # " & TextBox1.Value)
Else
resp.Activate
End If
Eso te selecciona la búsqueda. Si quieres moverte a la columna contigua usa activecell. Offset(0,). select y listo
