Menu Suspenso Excell


#1

Boa tarde. Não manjo de programação no excel, mas diante da necessidade de criar um menu suspenso, encontrei o seguinte código para a minha demanda:

Sub Menu_Lista()
Application.CommandBars(“Workbook tabs”).ShowPopup
End Sub

Minha dúvida: Com este código consigo um menu suspenso que aparece e me permite a navegação por todas as planilhas em uma unica pasta de trabalho, contudo necessito delimitar quais planilhas quero que apareçam no Menu. O que altero neste código para conseguir isto?

Fico no aguardo. Obrigado!


#2

Cara você , sem querer acabou de me ajudar e muito!

Se eu conseguir fazer isso que você quer eu volto pra te falar…

Muito Obrigado!!!


#3

@oribesjr Cara Faz assim:

Vamos supor que você tenha 3 Plans.
Você quer Ocultar a “Plan2”. Então Faça:

Sub teste()
Sheets("Plan2").Visible = xlSheetVeryHidden
Application.CommandBars("Workbook tabs").ShowPopup
Sheets("Plan2").Visible = True
End Sub

Assim, você verá na lista suspensa apenas a Plan1 e Plan3!

Abrç! E obrigado mais uma vez…


#4

Legal xlarruda. Quando tem apenas uma menu suspenso funciona certinho, mas quando tem mais de uma menu suspenso, os links puxam as planilhas erradas. Eu quero esta função justamente para mais de um menu suspenso. Ou seja, seguindo o seu exemplo eu fiz assim para dois menus suspensos.

Usei esta função para o menu 1:

Sub teste()
Sheets(“Plan2”).Visible = xlSheetVeryHidden
Sheets(“Plan4”).Visible = xlSheetVeryHidden
Application.CommandBars(“Workbook tabs”).ShowPopup
Sheets(“Plan2”).Visible = True
Sheets(“Plan4”).Visible = True
End Sub

E usei esta função para o menu 2:

Sub teste2()
Sheets(“Plan1”).Visible = xlSheetVeryHidden
Sheets(“Plan3”).Visible = xlSheetVeryHidden
Application.CommandBars(“Workbook tabs”).ShowPopup
Sheets(“Plan1”).Visible = True
Sheets(“Plan3”).Visible = True
End Sub

Ou seja, como eu disse a você, a partir do momento que tem dois menus suspensos, os respectivos links funcionam incorretamente. Faça o teste e veja. Desde já, agradeço a sua ajuda. Grato!


#5

Fiz o teste e funcionou corretamente.

Abrç!