Saberexcel - o site das macros

Essas macros do Aplicativo Microsoft Excel VBA, tem por objetivo inserir um ítem de menu para navegação pelas folhas de planilhas, o objeto inserido pelo procedimento é uma combobox relacionando todas as folhas de planilhas contidas no livro. Podem observar que usei o Evento auto_open para execução da macro na abertura do livro e auto_close() para deleção do menu personalizado no fechamento do livro


Essa macro insere uma barra de menu na forma de uma combobox para navegação pelas folhas de planilhas, usando o evento auto_open,
para montar o menu na abertura do livro.
Sub auto_open()
On Error Resume Next
CommandBars("Barra_Planilhas").Delete

Set vBarra = CommandBars.Add
vBarra.Name = "Barra_Planilhas"
vBarra.Visible = True

Set Menu = vBarra.Controls.Add(msoControlComboBox)

For i = 1 To Sheets.Count
Menu.AddItem Sheets(i).Name
Next

Menu.OnAction = "Navega_Plan"
Menu.Text = "Seleciona Planilha"
End Sub

'macro usando o evento auto_close para deleção do menu personalizado (Barra_Planilhas) ao fechar o livro.
Sub auto_close()
On Error Resume Next
CommandBars("Barra_Planilhas").Delete
End Sub

'macro que selecionará a folha de planilha desejada na lista da combobox no menuzinho personalizado. (veja imagem acima.)
Sub Navega_Plan()
Sheets(CommandBars("Barra_Planilhas").Controls(1).Text).Select
End Sub

'Essa macro é um (volta Principal) inserido em todas as folhas de planilha, quero que observe para um detalhe importante,
'aqui referenciamos a folha de planilha Principal, não pelo nome da folha de Planilha mas pela "FOLHA DE CÓDIGO DA FOLHA DE PLANILHA PRINCIPAL", o porque?,
R: se o usuário mudar o nome da folha de planilha lá na aba de planilha a macro vai funcionar, por estar referenciando à folha de código, ao contrário, isto é, se fosse pelo nome da folha de planilha Sheets("Principal").Select - (resultaria em erro, se o usuário mudassee o nome da folha de planilha) . entendeu?

Sub voltar()
sbPrincipal.Select ' planilha referenciada pelo nome da folha de código.
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel




   Baixe o exemplo de planilha contendo as macros acima
vba navegar planilhas menu personalizado (153.64 kB)

Publicidade
Compre com segurança, garantia e ótimos preços