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