Foro Excel

Hola, presento una macro que al ejecutarla presenta un menú con el nombre de las hojas.

Código: Seleccionar todo

Sub ListaHojas()
On Error GoTo DoNothing
With Application.CommandBars("workbook tabs").Controls(16)
If Right(.Caption, 3) = "..." Then .Execute Else .Parent.ShowPopup
End With
Exit Sub
DoNothing:
End Sub

Que bien Adrian,
gracias por compartir con nosotros.. esta muy buena la macro

saludos
Silvia

Excelente Adrián,

Muy interesante y ahora que ya sabemos “cómo”, de seguro le encontraremos varias aplicaciones para la macro.
Me pregunto si podríamos elegir una ubicación específica donde aparezca el menú, es decir, C5 o D9

Saludos

hola, !

aqui hay una lista de algunas de las veces que anteriormente ya se ha sugerido ese metodo para evitar la "construccion" de formularios para la busqueda de los nombres de las hojas de un libro: http://tinyurl.com/7hgllty

(si no recuerdo mal, su primera aparicion fue +/- en junio de 2005)

saludos,
hector.

Hola a todos, navegando por la red econtré esta macro para crear indece de hojas.

Código: Seleccionar todo

Private Sub Worksheet_Activate()
Dim cHoja As Worksheet
Dim L As Long
L = 1

With Me
    .Columns(1).ClearContents
    .Cells(1, 1) = "INDICE"
    .Cells(1, 1).Name = "Indice"
End With

For Each cHoja In Worksheets

If cHoja.Name <> Me.Name Then
L = L + 1

    With cHoja
        .Range("A1").Name = "Inicio" & cHoja.Index
        .Hyperlinks.Add Anchor:=.Range("A1"), Address:=" ", SubAddress:="Indice", TextToDisplay:="Volver al índice"
    End With
        Me.Hyperlinks.Add Anchor:=Me.Cells(L, 1), Address:=" ", SubAddress:="Inicio" & cHoja.Index, TextToDisplay:=cHoja.Name

End If

Next cHoja
End Sub

Buenos dias, la macro listaHojas esta muy bien, pero se podria hacer para que apareciera fijo en una hoja llamada menu; por medio de botones

Gracias
Rafael

Esta macro listaHojas se podria hacer en una hoja llamada menu y que no tuviera que ejecutarla cuando la necesito y ademas se le podrian añadir botones con el nombre de cada hoja

wow muchas gracias por esta macro esta buenísima, he tratado de modificarla para, iniciar desde la celda B2 pero no he podido, alguien sabe como??