Anónimo
Búsqueda de hojas de calculo
Hola que tal
Tengo un libro de excel con 600 hojas de calculo y deseo buscar una en especifico, ¿hay algún comando como el de búsqueda (Ctrl+b) o una macro para hacer esto?
Agradezco tu colaboración
Alex
Tengo un libro de excel con 600 hojas de calculo y deseo buscar una en especifico, ¿hay algún comando como el de búsqueda (Ctrl+b) o una macro para hacer esto?
Agradezco tu colaboración
Alex
1 Respuesta
Respuesta de tavopz
1
Si la idea es buscar la hoja con base en el nombre de ella, creo que no existe una función pero podría hacerse una macro simple para ello:
Sub buscahoja()
x = InputBox("Ingrese el nombre de la hoja")
s = ActiveSheet.Name
Application.ScreenUpdating = fase
Sheets(1).Activate
While ActiveSheet.Name <> x
If ActiveSheet.Index = Sheets.Count Then
MsgBox ("No se encontró la hoja " & x)
Sheets(s).Activate
GoTo fin
End If
ActiveSheet.Next.Select
Wend
fin:
Application.ScreenUpdating = True
End Sub
Si la idea es buscar en el contenido de las hojas. Puedes utilizar la misma opción de búsqueda Ctrl + B, sólo que antes debes seleccionar todas las hojas (esto lo haces dando clic derecho sobre cualquier hoja y dando clic sobre Seleccionar todas las hojas.
Sub buscahoja()
x = InputBox("Ingrese el nombre de la hoja")
s = ActiveSheet.Name
Application.ScreenUpdating = fase
Sheets(1).Activate
While ActiveSheet.Name <> x
If ActiveSheet.Index = Sheets.Count Then
MsgBox ("No se encontró la hoja " & x)
Sheets(s).Activate
GoTo fin
End If
ActiveSheet.Next.Select
Wend
fin:
Application.ScreenUpdating = True
End Sub
Si la idea es buscar en el contenido de las hojas. Puedes utilizar la misma opción de búsqueda Ctrl + B, sólo que antes debes seleccionar todas las hojas (esto lo haces dando clic derecho sobre cualquier hoja y dando clic sobre Seleccionar todas las hojas.