Se você trabalha com Excel e deseja automatizar tarefas repetitivas, como criar planilhas mensais ou limpar sua pasta de trabalho mantendo apenas a principal, este post é para você! Vamos explorar duas macros VBA poderosas que facilitam a organização de planilhas mensais e a exclusão seletiva de abas no Excel.

Este conteúdo é ideal para quem busca eficiência, organização e sabedoria na gestão de dados. E como diz a Palavra:

“Bem-aventurado o homem que acha sabedoria, e o homem que adquire conhecimento.” – Provérbios 3:13 “O coração do prudente adquire conhecimento; e o ouvido dos sábios busca a ciência.” – Provérbios 18:15 “Ensina-nos a contar os nossos dias, para que alcancemos coração sábio.” – Salmos 90:12

Macro 1: Criar 12 Planilhas Mensais no Excel

Esta macro insere automaticamente 12 planilhas com os nomes dos meses do ano atual, organizando-as ao final da pasta de trabalho. Ideal para relatórios mensais, planejamento financeiro ou controle de metas.

Sub Doze_planilhas_meses()
    Dim i As Integer
    On Error Resume Next
    If TypeName(Selection) <> "Range" Then
        MsgBox "planilha......mensagem!", vbCritical
        Exit Sub
    End If

    Application.ScreenUpdating = False

    For i = 1 To 12
        ActiveWorkbook.Sheets.Add
        With ActiveSheet
            .Move After:=Sheets(Sheets.Count)
            .Name = Application.WorksheetFunction.Proper( _ 
             Format(DateSerial(1, i, 1), "mmm")) & " " & Year(Now())
        End With
    Next i
    Sheets("Plan1").Select
End Sub

Funções principais:

• Criação automática de 12 abas
• Nomeação com mês e ano atual
• Organização sequencial no final da pasta

Macro 2: Deletar Todas as Planilhas Exceto a Principal

Se você precisa limpar sua pasta de trabalho e manter apenas a planilha principal (por exemplo, “Plan1”), esta macro faz isso com segurança e sem alertas manuais.

Sub Deleta_Planilhas_Exceto_Desejada()
    For Each Nm In Worksheets
        Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
        If Nm.Name <> "Plan1" Then
            Nm.Delete
        End If
    Next
End Sub

Funções principais:

• Exclui todas as planilhas exceto a desejada
• Evita mensagens de confirmação
• Ideal para reiniciar projetos ou limpar dados antigos

Conclusão

Com essas duas macros, você pode transformar seu fluxo de trabalho no Excel, ganhando tempo e clareza. A sabedoria está em automatizar o que é repetitivo e focar no que realmente importa.

Se quiser mais dicas de Excel VBA, deixe seu comentário abaixo ou compartilhe este post com quem precisa organizar melhor suas planilhas!

   https://somaexcel.com.br/course/curso-excel-vba/
Conteúdo na Área de Membros Excel VBA – Acessar Agora!

O post Planilhas Excel VBA Crie e Gerencie Planilhas dos Meses do Ano apareceu primeiro em Excel - Curso VBA - Aprender Programação.

  Excel VBA Criativo Treine com Dados Gerados Automaticamente |  Sabedoria  um “Dom de Deus”

Aprenda Excel VBA Criando um Banco de Dados com Flores, Frutas e Criatividade!

Faça o Download do Exemplo de Planilha Excel VBA.
           Excel VBA Criativo Treine com Dados Gerados Automaticamente e Sabedoria Bíblica.xlsm

Se você está em busca de uma forma prática e interessante de treinar Excel VBA, esta lição é para você. Vamos automatizar a criação de um banco de dados com 1.500 registros fictícios, recheados de nomes, endereços florais e bairros frutados. E ainda com um hiperlink direto para um curso gratuito no final de cada linha!

Além de divertido, o projeto mostra como você pode usar criatividade para ensinar ou treinar pessoas com dados dinâmicos.

O Que Você Vai Aprender

• Como automatizar a geração de dados com VBA usando arrays
• Como preencher células com CPF, RG, telefone, data e observações
• Como aplicar formatação adequada nos dados
• Como adicionar links automáticos em células via VBA
• E o mais importante: como usar o Excel de forma criativa e útil!

Benefícios Dessa Atividade

• Redução de tempo com tarefas repetitivas
• Formação de base de teste para desenvolvimento de sistemas
• Exercício prático para entrevistas ou portfólio
• Inspiração para construir planilhas com identidade própria
• Inserção de links didáticos para estimular o aprendizado

Código VBA Completo

Sub sbx_gerar_banco_dados_automaticamente()
    Dim i As Long
    Dim nomes As Variant, cidades As Variant, ddds As Variant
    Dim flores As Variant, frutas As Variant
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("BaseDeDados")

    nomes = Array("Ana Clara", "Lucas Silva", "Paulo Souza", _
        "Carla Mendes", "Fernanda Lima", "João Pedro", "Mariana Oliveira")
    cidades = Array("São Paulo", "Rio de Janeiro", "Salvador", _
        "Belo Horizonte", "Fortaleza")
    cab = Array("ID", "NOME", "ENDEREÇO", "BAIRRO", "CIDADE", "CPF", _
        "CEP", "TELEFONE", "STATUS", "DATA", "OBSERVAÇÕES")

    For i = 1 To UBound(cab)
        Cells(1, i) = cab(i - 1)
    Next i

    ddds = Array("11", "21", "71", "31", "85")
    flores = Array("Rosa", "Orquídea", "Violeta", "Lírio", "Tulipa", _
            "Girassol", "Jasmim", "Dália")
    frutas = Array("Macieira", "Bananeiras", "Abacaxis", "Laranjeiras", _
            "Videira", "Mangueira", "Cajueiro", "Pereira")

    For i = 2 To 1501
        ws.Cells(i, 1).Value = i - 1
        ws.Cells(i, 2).Value = nomes(Int(Rnd * UBound(nomes) + 1))
        ws.Cells(i, 3).Value = "Rua: " & _
           flores(Int(Rnd * UBound(flores) + 1)) & ", nº " & Int(Rnd * 999 + 1)
        ws.Cells(i, 4).Value = "Bairro: " & _
            frutas(Int(Rnd * UBound(frutas) + 1))

        Dim idx As Integer: idx = Int(Rnd * UBound(cidades) + 1)
        ws.Cells(i, 5).Value = cidades(idx)
        ws.Cells(i, 6).Value = _
           Format(Int(Rnd * 900000000 + 100000000), "000\.000\.000\-00")
        ws.Cells(i, 7).Value = _
           Format(Int(Rnd * 90000000 + 10000000), "00\.000\.000\-0")
        ws.Cells(i, 8).Value = _
            "(" & ddds(idx) & ") 9" & _
               Int(Rnd * 9000 + 1000) & "-" & Int(Rnd * 9000 + 1000)
        ws.Cells(i, 9).Value = Choose(Int(Rnd * 3 + 1), _
                "Ativo", "Inativo", "Pendente")
        ws.Cells(i, 10).Value = _
                DateSerial(2023, Int(Rnd * 12 + 1), Int(Rnd * 28 + 1))
        ws.Cells(i, 11).Value = Choose(Int(Rnd * 3 + 1), _
               "Aguardando retorno", "Contato recente", "Sem observações")

        ws.Hyperlinks.Add _
            Anchor:=Cells(i, 12), _
            Address:="https://somaexcel.com.br/cursos/curso-excel-vba/", _
            TextToDisplay:="Curso Excel VBA - SomaExcel"
    Next i

    MsgBox "Banco de dados Florido e Fruteiras gerado com sucesso! 🌷🍊"
End Sub

Inspiração Bíblica Para Aprendizado e Evolução

> “O coração sábio busca o conhecimento, mas a boca dos tolos se alimenta de insensatez.” — Provérbios 15:14 > > “Ensina-nos a contar os nossos dias, para que alcancemos coração sábio.” — Salmo 90:12 > > “Melhor é o sábio do que o forte, e o homem de conhecimento do que o poderoso.” — Provérbios 24:5

Agradecimento e Contato

Muito obrigado por acompanhar esta lição. Espero que ela inspire você a criar, praticar e evoluir com Excel VBA de forma leve e criativa. Deus abençoe sua jornada de aprendizado!

Fico à disposição para dúvidas e sugestões:

  Prof. Expedito Marcondes
Tire-Dúvidas: suportecursovba@gmail.com

O post Excel VBA Criativo Treine com Dados Gerados Automaticamente apareceu primeiro em Excel - Curso VBA - Aprender Programação.