Acceder a las pestañas de las hojas en un grupo de la cinta de opciones

Me gustaria saber si habria una forma de acceder a las pestañas de hojas que se encuentran a bajo izquierda de la venta del excel con botones en un nuevo grupo de la cinta de opciones.

Mediante las opciones de excel de personalizar la cinta de opciones no lo he conseguido me imagino que será progamando en VBA. Por si alguien lo tiene ya programado o una solución.

Respuesta
1

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

  1. Abre tu archivo de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. 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

Funciona para excel 2003 y 2007.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

¡Genial muchas gracias Dante! Es lo que buscaba, además super bien explicado ;). Un detalle menor, solo por mayor comodidad, el combo list se podría sustituir por botones que representen cada una de las hojas de forma indivudales en la misma pestaña complementos. Muchas gracias por tu tiempo y explicaciones.

Pues no he revisado si se pueden crear botones, es una solución que encontré en la red y la adapté.

Tal vez si buscas cómo crear botones, tienes que adaptarlo en esta parte del código:

    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

con la instrucción .Controls.Add(type:=msoControlDropdown se crea la lista, tal vez haya que buscar como crear un controlcommmandbutton.

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas