Planilhas Excel VBA Crie e Gerencie Planilhas dos Meses do Ano
🧠 Planilha Exemplo Exercícios Automatize seu Excel com VBA: Crie e Gerencie Planilhas dos Meses do Ano
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!📊