Excel Submenu no Userform para abrir as planilhas

[Jmbs]

Prezados,

 

Tenho uma planilha igual a postada 12 abas e 2 Userform sendo, 1 para tela de login e 1 para o menu. Gostaria de inserir no Userform menu, um Submenu para chamar as planilhas, poderiam gentileza me ajudar ?.

 

Atenciosamente 

Planilha Folha de Pagamentos.zipBuscando informações...

[Midori]

Na caixa de ferramentas do VBA não tem menus, você pode inserir um dos controles disponíveis como o Combo ou List.

[Jmbs]

@Midori

 

Obrigado pela atenção!

Será uma coisa bem básica, tipo o print.

[Midori]

Você pode adicionar o nome delas no Combo para ativar a planilha no evento Change,

 

Private Sub UserForm_Initialize()
    Dim Aba As Worksheet
    
    For Each Aba In ThisWorkbook.Sheets
        Call ComboBox1.AddItem(Aba.Name)
    Next Aba
End Sub

Private Sub ComboBox1_Change()
    ThisWorkbook.Sheets(ComboBox1.Text).Activate
End Sub

 

[Jmbs]

@Midori

 

Eu posso substituir a ComboBox por CommandButton ou teria que mudar a estrutura da Sub ?

 

 

Atenciosamente

[Midori]

É possível substituir. Para isso os Buttons serão adicionados dinâmicamente já que para cada aba vai ter um botão.

 

Dependendo da quantidade de abas não vejo vantagem nisso já que o Form vai ficar com muitos controles. Com o Combo basta um com a lista para seleção.