- 04 Set 2018 às 08:02
#36341
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
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
Você não está autorizado a ver ou baixar esse anexo.