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