Página 1 de 1

Macro alterna algumas abas da planilha

Enviado: 04 Set 2018 às 08:02
por William2885
Olá, gostaria de uma ajuda, tenho uma planilha com 11 abas (sheets), e um código que percorre a cada 5 segundos 04 dessas 11 abas. O que preciso é de um código que faça a repetição dessa macro, e um outro código que paralise a mesma, pois posteriormente vou criar um botão para iniciar e outro para parar a macro.
Segue abaixo o código utilizado que consegui aqui mesmo no fórum após algumas pesquisas, mas como não entendo muito de VBA não consegui fazer a adaptação.
Agradeço desde já...

Public Sub Muda_Planilha()
Call Application.OnTime(Now + TimeValue("00:00:05"), "Muda_1")
Call Application.OnTime(Now + TimeValue("00:00:10"), "Muda_2")
Call Application.OnTime(Now + TimeValue("00:00:15"), "Muda_3")
Call Application.OnTime(Now + TimeValue("00:00:20"), "Muda_4")
End Sub

Sub Muda_1()
Sheets("Meta de Produção").Select
End Sub
Sub Muda_2()
Sheets("Painel Operacional").Select
End Sub
Sub Muda_3()
Sheets("Produção Máquina Hora").Select
End Sub
Sub Muda_4()
Sheets("Segurança do Trabalho").Select
End Sub

Re: Macro alterna algumas abas da planilha

Enviado: 04 Set 2018 às 10:48
por ExcelFlex
Olá william2885, montei um código na planilha em anexo, dá uma olhada se ajuda.

Marcus.

Re: Macro alterna algumas abas da planilha

Enviado: 04 Set 2018 às 11:13
por William2885
Olá Marcus, muito obrigado pela resposta! O código que você montou percorre todas as abas da planilha só que eu precisava de um código que percorresse somente 4 abas (Meta de Produção / Painel Operacional / Produção Máquina Hora / Segurança do trabalho) as outras não, é possível? Mais uma vez agradeço...

Re: Macro alterna algumas abas da planilha

Enviado: 04 Set 2018 às 12:08
por ExcelFlex
Coloquei um array para definir quais são as planilhas que serão alternadas

Macro alterna algumas abas da planilha

Enviado: 04 Set 2018 às 13:14
por William2885
Marcus, era exatamente isso que eu precisava, muito obrigado pela sua ajuda.