Notifications
Clear all

Menu Suspenso para Mudar de Planilha

11 Posts
3 Usuários
0 Reactions
2,550 Visualizações
(@dih120690)
Posts: 17
Active Member
Topic starter
 

Pessoal me ajudem!! Estou com o seguinte código para mudar de planilhas em menu. Porém esse código exibe todas as planilhas, porém preciso que esse botão de atalho exiba apenas algumas planilhas e não todas. Outro problema e que o excel fecha somente onde tem o botão de atalho. HELP!!!! Se vocês souberem de um outro código, agradeço!
Sub Menu_Lista()
Application.CommandBars("Workbook tabs").ShowPopup
End Sub

Obrigado!!

 
Postado : 19/04/2017 6:04 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

dih120690,

Bom dia!

Não seria melhor assim?

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 20/04/2017 5:07 am
(@dih120690)
Posts: 17
Active Member
Topic starter
 

Gostei da ideia da lista suspensa, porém nesse menu ao fundo terá uma forma com preenchimento gradiente.Por esse motivo a lista suspensa não ficaria visivel...Contudo consegui um outro código, porém o mesmo não seleciona os outros meses, como fevereiro e março. A planilha total não tem mesmo que aparecer nessa listagem. HELP!!!

Dim Guia1 As Worksheet

Sub Seleciona_plan()
        Application.CommandBars("Cell").Reset
  
        Dim cbc As CommandBarControl
  
        'Oculta todos os comandos do botão direito
        For Each cbc In Application.CommandBars("cell").Controls
                cbc.Visible = False
        Next cbc
  
                
                Application.CommandBars("Cell").Controls.Add(Type:=msoControlPopup).Caption = "&IrPara"
                With Application.CommandBars("Cell").Controls("IrPara")
                       
                        X = "&Janeiro"
                        .Controls.Add(Type:=msoControlButton).Caption = X
                        .Controls(X).OnAction = "Plan_3"
                        
                        X = "&Fevereiro"
                        .Controls.Add(Type:=msoControlButton).Caption = X
                        .Controls(X).OnAction = "plan_2"
                End With
                
                
                
   Application.CommandBars("Cell").ShowPopup
   
   
   Application.CommandBars("Cell").Reset
               For Each cbc In Application.CommandBars("cell").Controls
                cbc.Visible = True
        Next cbc
Guia1.Activate
End Sub

Sub plan_2()
    Set Guia1 = Plan2
End Sub
Sub plan_3()
    Set Guia1 = Worksheets("janeiro")
End Sub

Me ajudem....

 
Postado : 20/04/2017 4:06 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Bom... nesse caso, você tem então que elaborar seu arquivo, da forma que você imagina, com o formulário ou com essa forma e disponibilizar para que se possa ajudar, pois, o que você pediu é relativamente fácil de ser feito. Todavia, deve ser feito em cima de algo que você tem planejado para poder ficar a contento.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 20/04/2017 4:10 pm
(@dih120690)
Posts: 17
Active Member
Topic starter
 

wag

Segue o arquivo

 
Postado : 20/04/2017 4:21 pm
(@gesus)
Posts: 44
Eminent Member
 

Boa noite,

Tenta adaptar este esquema na sua planilha, segue em anexo!

Conforme o Wag falou manda algo mais concreto o que realmente precisa, certamente receberá a ajuda de forma rápida e eficaz!

Boa sorte!

 
Postado : 20/04/2017 4:30 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

dih120690,

Bom... eu não entendi o que esse código que você enviou na planilha faz.

Fica mais fácil você dizer o que quer. Por exemplo: Ao clicar nesse botão IR PARA que tem na planilha o que é que deve ocorrer? IR PARA ONDE? Que abas devem ficar visíveis quando o botão for clicado? De qualquer modo, acho que ao clicar no botão IR PARA, se você quer selecionar uma aba específica, pelo menos um formulário vai ter que aparecer na hora que clicar no botão para poder você selecionar uma aba para poder se deslocar até aquela aba. Não pode clicar no botão IR PARA e o computador "adivinhar" qual é a aba que ele tem que procurar,

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 20/04/2017 4:34 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Pronto! Essa ideia aí do Gesus é o que eu estava imaginando.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 20/04/2017 4:36 pm
(@dih120690)
Posts: 17
Active Member
Topic starter
 

Pessoal muito obrigado...isso mesmo que estava precisando. Porém só aparece um problema....quando vc está na planilha que é para ser selecionada no formulário o excel não consegue ser fechado. Apenas qaundo se está em uma planilha que não está no formulário...Falta apenas isso para solucionar meu problema!

 
Postado : 20/04/2017 5:14 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Não entendi... aqui o Excel fecha em qualquer planilha que se esteja. Exceto na planilha1 quando o formulário para escolher a planilha esta aberto.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 20/04/2017 5:54 pm
(@dih120690)
Posts: 17
Active Member
Topic starter
 

Boa noite,

Tenta adaptar este esquema na sua planilha, segue em anexo!

Conforme o Wag falou manda algo mais concreto o que realmente precisa, certamente receberá a ajuda de forma rápida e eficaz!

Boa sorte!

Exatamente o que procuro, porém gostaria de saber se existe a possibilidade de eu alterar o nome da planilha para exibição quando chamar o formulário.....Por exemplo minha planilha estará com o nome de Tesouraria_Jan....porém quando chamar o formulário que aparece apenas o nome de Janeiro....e não Tesouraria_Jan. Porque meu arquivo terá vários setores que repetem os meses.
Obrigado pela ajuda!!!!

 
Postado : 11/07/2017 12:51 pm