Excel: Como criar uma barra de pesquisa para me permitir pesquisar e me enviar para certas guias

Question

Eu tenho uma planilha mestre do Excel com mais de 150 guias. Estou tentando criar uma barra de pesquisa que me permita visualizar facilmente essas guias nomeadas em ordem alfabética e me levar a essas guias quando clicadas.

    

Answer 1

Eu usaria o seguinte código VBA para criar uma lista de nomes de guias como hiperlinks em uma nova planilha chamada 'Index' e, em seguida, classificá-los manualmente.

Sub generate_DOWN_list_with_hyperlinks_of_sheets_in_the_Active_Workbook()
Dim ws As Worksheet

If MsgBox("Do you want to create a list, starting in the active cell, of all sheets in this work book?", vbYesNo) = vbNo Then Exit Sub

For Each ws In ActiveWorkbook.Worksheets
        'insert name
        ActiveCell.Value = ws.Name
        'insert hyperlink
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
            SubAddress:="'" & ws.Name & "'!A1", _
            TextToDisplay:=ws.Name
        ActiveCell.Offset(1, 0).Activate
Next ws     
End Sub