VBA – Percorrer Todas as Planilhas com For Each
In this Article
As macros aplicadas a uma pasta de trabalho inteira podem ser úteis para extrair dados de várias planilhas para uma nova pasta de trabalho, aplicar formatação avançada a todas as planilhas ou por muitos outros motivos. Veja a seguir a sintaxe básica e um exemplo de código funcional para VBA que funciona em todas as planilhas de uma pasta de trabalho.
Loop por Todas as Planilhas da Pasta de Trabalho
A sintaxe básica para percorrer todas as planilhas de uma pasta de trabalho e aplicar o código VBA a elas é
For Each ws In Worksheets
'Atualizar ou fazer algo aqui
NextAtualizar Todas as Planilhas da Pasta de Trabalho Usando VBA
Para obter um exemplo funcional, copie e cole o código a seguir em um módulo e execute-o. O resultado é um texto colocado na célula A1 de todas as planilhas de sua pasta de trabalho.
Public Sub FazerParaTodas()
'Declarar nossa variável
Dim ws As Worksheet
For Each ws In Worksheets
'coloque o código entre For e Next
'para o que você gostaria de fazer em
'cada planilha
ws.Range("A1") = "AutomateExcel.com"
Next
End SubCodificação VBA facilitada
Pare de procurar códigos VBA on-line. Saiba mais sobre o AutoMacro – um construtor de código VBA que permite que os iniciantes codifiquem procedimentos do zero com o mínimo de conhecimento de codificação e com muitos recursos que economizam tempo para todos os usuários!
