Exibir planilhas sequencialmente por timer no excel

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

5 Posts

4 Usuários

0 Reactions

896 Visualizações

RSS

eng_gilnei

(@eng_gilnei)

Posts: 2

New Member

Topic starter

Boa tarde, amigos

Desenvolvi alguns relatórios em um arquivo Excel, sendo que estes relatórios estão em 3 planilhas (abas) diferentes, Plan1, Plan2 e Plan3. Gostaria de executar uma macro (ou coisa parecida) de forma que a cada 5 minutos, automaticamente, fossem exibidas sequencialmente uma a uma as planilhas. Ou seja, abre-se a Plan1, 5 minutos depois a Plan2 é exibida, 5 minutos depois a Plan3, e 5 minutos depois volta para a Plan1, esse processo continua num ciclo (looping) até parar a macro ou fechar o arquivo.

Se alguém puder me ajudar, ficarei muito grato.

Gilnei Pereira
Fortaleza/CE

Postado : 16/04/2014 11:56 am

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

Seria algo assim (coloque em EstaPasta_de_Trabalho)

Não testado:

Option Explicit

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:05:00"), "Lopar_Planilha_GT"

End Sub


Sub Lopar_Planilha_GT()

Dim ws As Worksheet

ws = ActiveSheet

If ActiveSheet = Sheet("Plan1") Then
    Sheet("Plan2").Select
    Application.OnTime Now + TimeValue("00:05:00"), "Lopar_Planilha_GT"
End If

If ActiveSheet = Sheet("Plan2") Then
    Sheet("Plan3").Select
    Application.OnTime Now + TimeValue("00:05:00"), "Lopar_Planilha_GT"
End If

If ActiveSheet = Sheet("Plan3") Then
    Sheet("Plan1").Select
    Application.OnTime Now + TimeValue("00:05:00"), "Lopar_Planilha_GT"
End If

End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 16/04/2014 12:14 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Por favor, indique as postagens cruzadas!!!!!!!!!
http://profwillianexcel.forumeiros.com/ ... r-no-excel

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 16/04/2014 12:25 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Gilmar,

Acho que se código apresenta alguns erros...

Aproveitando seu código, fiz apenas algumas pequenas alterações:

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:05:0"), "Lopar_Planilha_GT"
End Sub

Sub Lopar_Planilha_GT()
    Dim Aba As String
    
    Aba = ActiveSheet.Name
    
    If Aba = "Plan1" Then
        Sheets("Plan2").Select
        Application.OnTime Now + TimeValue("00:05:0"), "Lopar_Planilha_GT"
    End If
    
    If Aba = "Plan2" Then
        Sheets("Plan3").Select
        Application.OnTime Now + TimeValue("00:05:0"), "Lopar_Planilha_GT"
    End If
    
    If Aba = "Plan3" Then
        Sheets("Plan1").Select
        Application.OnTime Now + TimeValue("00:05:0"), "Lopar_Planilha_GT"
    End If
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 16/04/2014 1:21 pm