CodMac VBA

Transforme tarefas repetitivas em processos automáticos e eleve sua produtividade a um novo nível!

Bem-vindo(a) ao Centro de VBA!

Este portal é o seu novo aliado para dominar o VBA no Excel. Projetado para ser intuitivo e eficaz, ele permite que qualquer pessoa aprenda, teste e aplique macros de forma prática e rápida.

Nosso objetivo é desmistificar o VBA, tornando-o acessível e divertido. Prepare-se para multiplicar sua produtividade!

Códigos macro

Automação de Ordem Alfabética

Macro que organiza grandes dados cadastrais em ordem alfabética com um único clique.

Instruções de Uso:

  1. No Excel, pressione ALT + F11 para abrir o Editor do VBA.
  2. No menu, vá em Inserir > Módulo.
  3. Copie o código abaixo e cole-o no Módulo recém-criado.
  4. Importante: Edite o nome da planilha e o intervalo conforme sua necessidade.
  5. Execute a macro com ALT + F8 → ORDEM_ALFABETICA_EDIT → Executar.

Demonstração (Vídeo Interativo):

Sub ORDEM_ALFABETICA_EDIT() 'nome da macro

' ORDEM_ALFABETICA Macro


    Range("K2:O26").Select    'selecione a sua tabela até onde sua planilha termina incluindo cabeçalho
    ActiveWorkbook.Worksheets("teste").Sort.SortFields.Clear            'selecione o nome da sua planilha e mude nas linhas em ("teste").
    ActiveWorkbook.Worksheets("teste").Sort.SortFields.Add2 Key:= _
        Range("K3:K26"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal ':selecione a sua tabela somente os dados da sua primeira coluna
    With ActiveWorkbook.Worksheets("teste").Sort
        .SetRange Range("K2:O26") 'selecione a sua tabela até onde sua planilha termina incluindo cabeçalho
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
0 Cópias

Remover Linhas Vazias em uma Seleção

Otimize suas planilhas eliminando linhas completamente vazias dentro de um intervalo selecionado.

Instruções de Uso:

  1. Abra o Editor do VBA (ALT + F11).
  2. Insira um novo Módulo (Inserir > Módulo).
  3. Copie o código abaixo e cole-o no Módulo.
  4. Selecione o intervalo desejado e execute a macro.
Sub RemoverLinhasVazias()
    Dim Rng As Range
    Dim LastRow As Long
    Dim i As Long

    ' Comentário: Sempre defina a seleção para segurança
    On Error Resume Next
    Set Rng = Selection
    On Error GoTo 0

    If Rng Is Nothing Then
        MsgBox "Selecione um intervalo para remover linhas vazias.", vbExclamation
        Exit Sub
    End If

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual ' Desabilita cálculo para performance

    LastRow = Rng.Rows.Count

    For i = LastRow To 1 Step -1
        ' Verifica se todas as células na linha estão vazias
        If Application.WorksheetFunction.CountA(Rng.Rows(i)) = 0 Then
            Rng.Rows(i).Delete
        End If
    Next i

    Application.Calculation = xlCalculationAutomatic 
    Application.ScreenUpdating = True

    MsgBox "Linhas vazias removidas com sucesso na seleção!", vbInformation, "Sucesso!"
End Sub
0 Cópias

Mais Macros em Breve!

Estamos trabalhando para trazer ainda mais automações incríveis para o seu Excel. Volte sempre!