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?
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
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.
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
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
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
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