Mudança automática ...
 
Notifications
Clear all

Mudança automática de abas específicas

3 Posts
2 Usuários
0 Reactions
883 Visualizações
(@osmarjol)
Posts: 0
New Member
Topic starter
 

Amigos,
pesquisando aqui nos fóruns, consegui uma solução com uma macro postada por um dos colegas. Primeiramente, Obrigado!
Agora tenho uma outra dúvida.

Contextualizando: Precisava que um painel meu mudasse automaticamente de aba automaticamente. Perfeito, consegui por meio da Macro abaixo.
Situação a ser resolvida: Tenho algumas abas ocultas, de onde os painéis, tiram as informações, mas não queria que elas fossem consideradas na contagem do tempo. Ou seja, utilizando o exemplo abaixo, as abas passam de 5 em 5 segundos entre as abas, quando a aba está oculta, ela não é exibida, mas o tempo dela é considerado (ex.: se eu tenho 2 abas ocultas o Excel fica 15 seg na mesma tela). Assim, preciso que a Macro abaixo alterne automaticamente entre abas específicas. Me ajudem?!

Obrigado!!!

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
 
Postado : 08/09/2016 2:31 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente (não testado)

Sub AlternaPlans()
If i = 0 Then i = 1
If Sheets(i).Visible = False Then i = i + 1
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
 
Postado : 08/09/2016 6:34 pm
(@osmarjol)
Posts: 0
New Member
Topic starter
 

Reinaldo

------- Não deu certo!! A macro manteve a visualização apenas na aba que estava selecionada, não alternou entre as abas não ocultas!!
Contudo, obrigado pela tentativa.

 
Postado : 09/09/2016 6:54 am