Exemplos de Códigos VBA

Procure na lista abaixo exemplos de códigos Excel VBA gratuitos e completos com explicações.
Alguns incluem também arquivos para download. Estes Scripts & Macros Excel VBA são desenvolvidos profissionalmente e estão prontos para uso.

Esperamos que você ache esta lista útil!

Visite nossa página de exemplos de código VBA em inglês para encontrar mais de 500 artigos

Exemplos de Macro Excel

Abaixo você encontrará uma lista de exemplos básicos de macro para tarefas comuns de automação do Excel.

Copiar e Colar uma Linha de uma Planilha Para Outra

Esta macro super simples copiará uma linha de uma planilha para outra.

Sub Colar_UmaLinha()
'Copiar e Colar Linha
Sheets("Planilha1").Range("1:1").Copy Sheets("Planilha2").Range("1:1")

Application.CutCopyMode = False

End Sub

Enviar E-mail

Esta macro útil iniciará o Outlook, redigirá um e-mail e anexará o ActiveWorkbook.

Sub Enviar_Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .to = "test@test.com"
        .Subject = "Email de Teste"
        .Body = "Corpo da Mensagem"
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Listar Todas as Planilhas do Arquivo

Esta macro listará todas as planilhas em um arquivo.

Sub ListarPlanilhas()
    
    Dim ws As Worksheet
    Dim x As Integer
    
    x = 1
    
    ActiveSheet.Range("A:A").Clear
    
    For Each ws In Worksheets
        ActiveSheet.Cells(x, 1) = ws.Name
        x = x + 1
    Next ws
    
End Sub

Reexibir Todas as Planilhas

Esta macro irá reexibir todas as planilhas.

' Reexibe Todas as Planilhas
Sub ReexibirTodasPlanilhas()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
    
End Sub

Ocultar Todas as Planilhas, exceto a Ativa

Esta macro ocultará todas as planilhas, exceto a planilha ativa.

' Oculta todas as planilhas exceto a planilha ativa
Sub OcultarTodasExcetoPlanilhaAtiva()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
    Next ws
    
End Sub

Desproteger Todas as Planilhas

Este macro exemplo desprotegerá todas as planilhas de um arquivo.

' Desprotege todas as planilhas
Sub DesprotegerTodasPlanilhas()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Unprotect "senha"
    Next ws
    
End Sub

Proteger Todas as Planilhas

Esta macro protegerá todas as planilhas de um arquivo.

' Protege todas as planilhas
Sub ProtegerTodasPlanilhas()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.protect "senha"
    Next ws
    
End Sub

Apagar Todas as Formas

Esta macro excluirá todas os formas em uma planilha.

Sub ApagarTodasFormas()

Dim ObterForma As Shape

For Each ObterForma In ActiveSheet.Shapes
  ObterForma.Delete
Next

End Sub

Excluir Todas as Linhas em Branco da Planilha

Este macro exemplo eliminará todas as linhas em branco de uma planilha.

Sub ApagarLinhasEmBranco()
Dim x As Long

With ActiveSheet
    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
        If WorksheetFunction.CountA(.Rows(x)) = 0 Then
            ActiveSheet.Rows(x).Delete
        End If
    Next
End With

End Sub

Destacar Valores Duplicados na Seleção

Use esta macro simples para destacar todos os valores duplicados em uma seleção.

' Destacar Valores Duplicados na Seleção
Sub DestacarValoresDuplicados()
    Dim MeuIntervalo As Range
    Dim Celula As Range
    
    Set MeuIntervalo = Selection
    
    For Each Celula In MeuIntervalo
        If WorksheetFunction.CountIf(MeuIntervalo, Celula.Value) > 1 Then
            Celula.Interior.ColorIndex = 36
        End If
    Next Celula
End Sub

Destacar Números Negativos

Esta macro automatiza a tarefa de destacar números negativos.

' Destacar Números Negativos
Sub DestacarNumerosNegativos()
    Dim MeuIntervalo As Range
    Dim Celula As Range
    
    Set MeuIntervalo = Selection
    
    For Each Celula In MeuIntervalo
        If Celula.Value < 0 Then
            Celula.Interior.ColorIndex = 36
        End If
    Next Celula
End Sub

Destacar Linhas Alternadas

Esta macro é útil para destacar linhas alternadamente.

' Destacar linhas alternadas
Sub DestacarLinhasAlternadas()
    Dim Celula As Range
    Dim MeuIntervalo As Range
    
    Set MeuIntervalo = Selection
    
    For Each Celula In MeuIntervalo.Rows
        If Celula.Row Mod 2 = 1 Then
            Celula.Interior.ColorIndex = 36
        End If
    Next Celula
End Sub

Destacar as Células em Branco na Seleção

Esta macro básica destaca as células em branco em uma seleção.

' Destacar todas as células em branco na seleção
Sub DestacarCelulasEmBranco()
    Dim rng As Range
    
    Set rng = Selection
    rng.SpecialCells(xlCellTypeBlanks).Interior.Color = vbCyan
    
End Sub

Exemplos de Macros Excel VBA – Download gratuito

Criamos um suplemento gratuito de Exemplos de Códigos VBA (Macros). O add-in contém mais de 100 exemplos de macro prontos para uso, incluindo os exemplos de macro acima!

Excel Macro / VBA FAQs

Como escrever código VBA (Macros) em Excel?

Para escrever código VBA no Excel, abra o Editor VBA (ALT + F11). Digite “Sub HelloWorld”, pressione Enter, e você criou uma Macro! OU Copie e cole um dos procedimentos listados nesta página na janela de código.

O que é Excel VBA?

VBA é a linguagem de programação usada para automatizar o Excel.

Como usar VBA para automatizar o Excel?

Você usa VBA para automatizar o Excel ao criar Macros. Macros são blocos de código que completam certas tarefas.

Pratique o VBA

Você pode praticar VBA com nosso tutorial de VBA interativo.