H o l a:
Esta es una opción, para que en una pestaña de excel, se carguen todas tus hojas y puedas seleccionar la hoja a la que quieres ir:
Para crear la pestaña y se carguen las hojas, ejecuta la siguiente macro.
Pon la macro en un módulo:
Sub Crearmenu()
'Por.Dante Amor
Dim Hoja As Worksheet
On Error Resume Next
CommandBars("Menu de hojas").Delete
With CommandBars.Add(Name:="Menu de hojas")
With .Controls.Add(Type:=msoControlDropdown)
For Each Hoja In Worksheets
.AddItem Hoja.Name
.OnAction = "Irahoja"
.TooltipText = "Seleccione hoja"
Next
End With
.Visible = True
End With
End Sub
También pon la siguiente macro en el mismo módulo:
Sub Irahoja()
'Por.Dante Amor
Application.ScreenUpdating = False
With CommandBars.ActionControl
h = .List(.ListIndex)
End With
Sheets(h).Select
End Sub
Después, selecciona la pestaña "Complementos y ahí selecciona del combo la hoja que quieres.
Sigue las Instrucciones para ejecutar la macro
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Para ejecutarla presiona F5
Para quitar el menú, ejecuta la siguiente macro:
Sub QuitarMenu()
'Por.Dante Amor
On Error Resume Next
CommandBars("Menu de hojas").Delete
End Sub