Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
BOTÃO DIREITA E ESQ...
 
Notifications
Clear all

BOTÃO DIREITA E ESQUERDA

 
2024 - VBA & Macros
Post Recente por HigorTerra 7 anos atrás
4 Posts
3 Usuários
0 Reactions
984 Visualizações
RSS
 HigorTerra
(@higorterra)
Posts: 9
Active Member
Topic starter
 

Galera,

Tenho uma planilha com informações de todos os meses (JANEIRO, FEVEREIRO, MARÇO...) e eu gostaria de criar dois botões em cada uma dela para ir para a aba da direita ou ir para a aba da esquerda.

EX: estou na planilha fevereiro e se eu quisesse ir pra aba janeiro, clicaria no botão indicando o lado esquerdo e se eu fosse para março, clicaria no botão indicado pro lado esquerdo.

Eu até consigo criar colocando sheets("março").select , porém queria um código único para os botões, algo do tipo sheets(right).select , mas essa possibilidade não é possível.

É algo simples e acredito que vocês saibam.

Desde já, agradeço a atenção.

 
Postado : 25/01/2018 2:29 pm
fcarlosc
 fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Boa-tarde

Tente o seguinte código:

Sub Voltar()

Application.SendKeys ("^{PGDN}")

End Sub

Sub Avançar()

Application.SendKeys ("^{PGUP}")

End Sub

Att,

Francisco

 
Postado : 25/01/2018 2:55 pm
 jonatasjho
(@jonatasjho)
Posts: 25
Eminent Member
 

Olá HigotTerra segue minha contribuição conforme solicitado.

Sub MudarPag()
    'Avança uma guia
    ActiveSheet.Next.Select
    'Retorna uma Guia
    ActiveSheet.Previous.Select
End Sub

Agora é só salvar esses códigos em dois botões distintos.

 
Postado : 25/01/2018 3:02 pm
 HigorTerra
(@higorterra)
Posts: 9
Active Member
Topic starter
 

Muito obrigado companheiro.

Problema resolvido

Só uma coisinha, os comandos são inverso que você colocou.

Voltar é o "UP" e Avançar é o "DOWN"

Mas a lógica está perfeita

 
Postado : 25/01/2018 4:44 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico