Opcion de Busqueda en excel.
Buenas hermanito...
Es un honor consultar con ustedes, ya son expertos en el tema.
Tengo una macros que hace búsquedas en hojas de excel, la idea es modificarla, acá esta el ejemplo:
Sub Buscar_txt()
x = InputBox("Ingrese el texto a buscar")
Set RangeObj = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If RangeObj Is Nothing Then MsgBox "No Encontrado" Else RangeObj.Select
End Sub
La idea es que en la linea:
If RangeObj Is Nothing Then MsgBox "No Encontrado" Else RangeObj.Select
Si no encuentra en rango, en vez de mostrar un MsgBox, me envíe a otra hoja del libro, y si encuentra el valor, siga su curso normal: Else RangeObj. Select.
Solo quiero cambiarle el MsgBox, por alguna forma de que me envíe a otra página..
Gracias, agradezco su colaboración.
ATT; Luis
Es un honor consultar con ustedes, ya son expertos en el tema.
Tengo una macros que hace búsquedas en hojas de excel, la idea es modificarla, acá esta el ejemplo:
Sub Buscar_txt()
x = InputBox("Ingrese el texto a buscar")
Set RangeObj = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If RangeObj Is Nothing Then MsgBox "No Encontrado" Else RangeObj.Select
End Sub
La idea es que en la linea:
If RangeObj Is Nothing Then MsgBox "No Encontrado" Else RangeObj.Select
Si no encuentra en rango, en vez de mostrar un MsgBox, me envíe a otra hoja del libro, y si encuentra el valor, siga su curso normal: Else RangeObj. Select.
Solo quiero cambiarle el MsgBox, por alguna forma de que me envíe a otra página..
Gracias, agradezco su colaboración.
ATT; Luis
1 Respuesta
Respuesta de Alvaro Silveira
1
Aquí te dejo el código, espero que te sirva.
Sub buscar()
x = InputBox("Ingrese el texto a buscar")
For Each Sheet In Worksheets
Sheet.Activate
Set rangeobj = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rangeobj Is Nothing Then
MsgBox "No Encontrado en " & Sheet.Name
Else
rangeobj.Select
Exit For
End If
Next Sheet
End Sub
Por cualquier consulta quedo a las ordenes
Saludos, y no te olvides de finalizar y evaluar la respuesta.
Sub buscar()
x = InputBox("Ingrese el texto a buscar")
For Each Sheet In Worksheets
Sheet.Activate
Set rangeobj = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If rangeobj Is Nothing Then
MsgBox "No Encontrado en " & Sheet.Name
Else
rangeobj.Select
Exit For
End If
Next Sheet
End Sub
Por cualquier consulta quedo a las ordenes
Saludos, y no te olvides de finalizar y evaluar la respuesta.
