Boa tarde Preciso alterar entre uma plan e outra em um determinado tempo, sendo que este tempo muda, em uma plan ele permanece por 00:00:01 e na outra ficaria 00:00:02. consegui alterar atraves do código abaixo. Public altern As Date, i As Long
Sub AlternaPlans() If i = 0 Then i = 1 End If altern = Now + TimeValue("00:00:01") Application.OnTime altern, "AlternaPlans" Sheets(i).Activate If i < Sheets.Count Then i = i + 1 Else: i = 1 End If
End Sub so que neste código o tempo é igual para todas as plans. Você consegue me ajudar para criar um código para que para cada plan eu tenha um tempo diferente de permanencia e a macro fique rodando até que eu de o comando para ela parar? Desde já agradeço.
Pergunta
Edemilss
Boa tarde
Preciso alterar entre uma plan e outra em um determinado tempo, sendo que este tempo muda, em uma plan ele permanece por 00:00:01 e na outra ficaria 00:00:02. consegui alterar atraves do código abaixo.
Public altern As Date, i As Long
Sub AlternaPlans()
If i = 0 Then
i = 1
End If
altern = Now + TimeValue("00:00:01")
Application.OnTime altern, "AlternaPlans"
Sheets(i).Activate
If i < Sheets.Count Then
i = i + 1
Else: i = 1
End If
End Sub
so que neste código o tempo é igual para todas as plans.
Você consegue me ajudar para criar um código para que para cada plan eu tenha um tempo diferente de permanencia e a macro fique rodando até que eu de o comando para ela parar?
Desde já agradeço.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.