- 16 Dez 2017 às 00:27
#28869
Olá me chamo Lucas e to com uma duvida que só conseguir sanar ela em partes. Preciso executar uma mesma macro padrão em varias planilhas.
exemplo: tenho minhas guias: INICIO, equipe1,equipe2,equipe3,equipe4,...., dai na guia INICIO eu vou colocar um botão pra executar essa macro que vai rodar em todas. Fiz uma aqui que vê as guias visíveis e executa a macro, ai no caso eu tive que ocultar a guia INICIO, pra não executar nela, e executar pelo F5 , mas eu queria saber como faço pra rodar em guias especificas sem eu precisar ficar ocultando outras?
a que eu fiz ta mais ou menos assim: ele verifica se a guia ta visível, se tiver ele executa a macro, se não ele vai para outra guia.
No caso a minha macro padrao ta toda com activesheet, então o codigo ,que eu andei pesquisando, que está abaixo, serve bastante, pq ele ativa a planilha e executa uma de cada vez
Outra coisa, eu vou ter varias guias com um nome qualquer, onde não deve ser executada a macro, e vou ter guias com nomes de equipes onde nelas a macro dever executada
Sub RodarTodas()
Dim sht As Excel.Worksheet
For Each sht In ThisWorkbook.Worksheets
If sht.Visible = xlSheetVisible Then
sht.Activate
Call CopiaOutraPlanilha2
End If
Next sht
End Sub
Desde ja agradeço quem puder ajudar
exemplo: tenho minhas guias: INICIO, equipe1,equipe2,equipe3,equipe4,...., dai na guia INICIO eu vou colocar um botão pra executar essa macro que vai rodar em todas. Fiz uma aqui que vê as guias visíveis e executa a macro, ai no caso eu tive que ocultar a guia INICIO, pra não executar nela, e executar pelo F5 , mas eu queria saber como faço pra rodar em guias especificas sem eu precisar ficar ocultando outras?
a que eu fiz ta mais ou menos assim: ele verifica se a guia ta visível, se tiver ele executa a macro, se não ele vai para outra guia.
No caso a minha macro padrao ta toda com activesheet, então o codigo ,que eu andei pesquisando, que está abaixo, serve bastante, pq ele ativa a planilha e executa uma de cada vez
Outra coisa, eu vou ter varias guias com um nome qualquer, onde não deve ser executada a macro, e vou ter guias com nomes de equipes onde nelas a macro dever executada
Sub RodarTodas()
Dim sht As Excel.Worksheet
For Each sht In ThisWorkbook.Worksheets
If sht.Visible = xlSheetVisible Then
sht.Activate
Call CopiaOutraPlanilha2
End If
Next sht
End Sub
Desde ja agradeço quem puder ajudar
Espero ter ajudado.
Caso seu problema tenha sido resolvido, por favor marcar o tópico como Resolvido.
Se fui útil, seu like também é muito bem vindo
Caso seu problema tenha sido resolvido, por favor marcar o tópico como Resolvido.
Se fui útil, seu like também é muito bem vindo
