Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Aplicar Macro em To...
 
Notifications
Clear all

Aplicar Macro em Todas as Planilhas

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,900 Visualizações
RSS
 williannunesjr
(@williannunesjr)
Posts: 3
Active Member
Topic starter
 

Olá Pessoal, estou precisando de uma ajudinha aqui.
Fiz uma macro simples para ocultar as linhas iniciadas com a flag "!X".
Funcionou perfeitamente.

O problema é que eu tenho um arquivo com várias planilhas e preciso aplicar a macro em todas elas ao mesmo tempo.

Alguém pode me ajudar por favor!
Muito obrigado.

Segue a macro:

Sub OcultaLinha()
'
Dim faixa As Range
Dim celula As Range

Set faixa = Range("a1:a10")
For Each celula In faixa
     If celula = "!X" Then
         celula.EntireRow.Hidden = True
     End If
Next

End Sub
 
Postado : 09/02/2012 6:03 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Utilize:
For Each Sheet In Sheets
For Each celula In faixa
If celula = "!X" Then
celula.EntireRow.Hidden = True
End If
Next
Next

 
Postado : 09/02/2012 6:20 am
 williannunesjr
(@williannunesjr)
Posts: 3
Active Member
Topic starter
 

Reinaldo,
Não funcionou!

 
Postado : 09/02/2012 6:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

OOps! Veja agora

Sub OcultaLinha()
Dim faixa As Range
Dim varSheet As Variant, NN As Variant
Application.ScreenUpdating = False
For Each varSheet In Sheets
    NN = varSheet.Name
    Worksheets(NN).Activate

    Set faixa = Range("a1:a10")
        For Each celula In faixa
             If celula = "!X" Then
                 celula.EntireRow.Hidden = True
             End If
        Next
Next
Application.ScreenUpdating = True
End Sub
 
Postado : 09/02/2012 6:53 am
 williannunesjr
(@williannunesjr)
Posts: 3
Active Member
Topic starter
 

Funcionou!!!
Muito obrigado Reinaldo!
O mesmo procedimento eu faço para qualquer Macro que eu queira?

 
Postado : 09/02/2012 7:34 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

bom dia!!!

Se a resposta foi util favor clicar na mãozinha (para reinaldo).

Caso tenha resolvido, favor marcar como resolvido!! ;)

 
Postado : 09/02/2012 8:02 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Willian,
não entendi direito sua pergunta, mas o procedimento para "navegar" nas planilhas de um workbook e o mesmo, e entre esses "pulos" voce pode executar algum(ns) procedimentos.

 
Postado : 09/02/2012 9:29 am
Forum Jump:
  Tópico Anterior
Próximo Tópico