Notifications
Clear all

MACRO PARA MUDAR ABA DA PLANILHA

7 Posts
2 Usuários
0 Reactions
7,911 Visualizações
(@natalia-oliveira)
Posts: 43
Eminent Member
Topic starter
 

Boa Tarde,

Preciso de uma macro que altere a "PLAN" a cada 1 minuto, tenho uma planilha com 4 abas, gostaria que mudasse de aba a cada 1 minuto e que isso fique com um looping executando automaticamente.
Alguem pode me ajudar?

 
Postado : 21/11/2013 12:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Natalia

O colega Osvaldo (Osvaldomp) postou em outro fórum uns códigos que irão servir direitinho para você, basta apenas alterar o tempo.
1.cole os códigos abaixo em um módulo (Alt+F11 > Inserir > Módulo)
2.atribua um botão 'liga' à sub 'AlternaPlans' e um botão 'desliga' à sub 'DeslAlterna'
3. o código alterna a planilha ativa a cada 5 seg, para ajustar o intevalo altere em 'TimeValue("00:00:05")'

Public altern As Date, i As Long

Sub AlternaPlans()
If i = 0 Then
i = 1
End If
altern = Now + TimeValue("00:00:05")
Application.OnTime altern, "AlternaPlans"
Sheets(i).Activate
If i < Sheets.Count Then
i = i + 1
Else: i = 1
End If
End Sub

Sub DeslAlterna()
On Error Resume Next
Application.OnTime earliesttime:=altern, procedure:="AlternaPlans", schedule:=False
MsgBox "desligado", vbInformation, "Status"
End Sub

4. para rodar o código ao abrir o arquivo, sem precisar clicar no 'liga', cole o código abaixo no módulo de 'EstaPasta_de_trabalho' (Alt+F11 > duplo clique em 'EstaPasta_de_tralho'); salve, feche e reabra o arquivo para funcionar

Private Sub Workbook_Open()
    Dim inicia As Date
        inicia = Now + TimeValue("00:00:02")
    Application.OnTime inicia, "AlternaPlans"
End Sub

Dê retorno.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/11/2013 1:01 pm
(@natalia-oliveira)
Posts: 43
Eminent Member
Topic starter
 

Esta macro só funciona de estiver em outra plan ai ela vai pra primeira, ela não fica alternado de uma pra outra. Preciso que ela fica mudando de uma pra outra de 1 em 1 minuto.

 
Postado : 21/11/2013 2:32 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Natalia

Você fez alguma coisa errada, eu testei aqui numa planilha com 4 abas e a macro ficou alternando entre as Abas de 5 em 5 segundos conforme a temporização digitada na macro.
Como você quer a cada 1 minuto é só alterar o tempo na macro.

Att.te

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/11/2013 4:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Natalia, as instruções qu o Patropi passou estão corretas, talvez você não tenha feito da forma certa.

No Arquivo que quer que fique alternando as abas, abra o Editor do VBE e de dois cliques na janela de propriedades em "EstaPasta_de_trabalho" e cole a rotina Private Sub Workbook_Open().

Depois clique com o botão direito na janela propriedade e escolha inserir Modulo, neste Modulo cole as outras rotinas.

Feche, Salve e reabra o arquivo e irá funcionar corretamente.

Quanto ao tempo entre as alternações é só definir o valor na instrução :
altern = Now + TimeValue("00:00:05")

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/11/2013 4:21 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Natalia

Baixe a planilha já com o código instalado.
Eu deixei com tempo menor para você perceber o revezamento das Abas, depois vc substitui;

Dê retorno.

Se a resposta foi útil, clique na mãozinha que fica do lado da ferramenta Citar.

Abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/11/2013 4:53 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/11/2013 5:26 am