Excel VBA Evento WorkBook_NewSheet AutoNumero Soma | M1 – Aula 73 – 40

By Marcondes Published 03/11/2025 Curso VBA Excel Treinamento

Evento WorkBook_NewSheet Curso Completo Excel VBA Tutoriais Estudos Treinamento e Aprendizado passo a passo com Video Aulas e Exercícios de Planilhas explicados em detalhes de Como fazer para obter o máximo de resultados com o uso dos Eventos de Planilha e WorkBook_NewSheet AutoNumero Soma 40 no Excel com VBA Macros.

Faça o Download da Planilha Exemplo Evento WorkBook_NewSheet AutoNumero Soma
Excel VBA Evento WorkBook_NewSheet AutoNumero Soma | M1 – Aula 73 – 40.xlsm

Curso Excel VBA – Aula 73 (Parte 40): Como Usar o Evento Workbook_NewSheet para AutoNumeração e Soma no Excel

Nesta aula do Curso Completo de Excel VBA, você aprenderá como utilizar o evento Workbook_NewSheet para automatizar a criação de planilhas com autonumeração e fórmulas de soma. Essa técnica é extremamente útil para quem deseja padronizar relatórios, organizar lançamentos e garantir que cada nova aba criada já venha configurada com cálculos automáticos.

Além disso, você terá acesso a videoaulas explicativas, planilhas de exemplo para download e exercícios práticos que reforçam o aprendizado. Dessa forma, o objetivo é proporcionar um treinamento completo, capacitando você a aplicar macros VBA enxutas e eficientes em cenários reais.

🎯 Objetivo da Aula

O foco principal desta aula é ensinar como usar o evento Workbook_NewSheet para automatizar tarefas sempre que uma nova planilha for criada. Assim, você poderá configurar autonumeração de células, inserir fórmulas de soma e até mesmo padronizar o layout de cada nova aba.

Portanto, essa técnica é ideal para:

Criar relatórios padronizados automaticamente
Numerar linhas ou colunas sem esforço manual
Inserir fórmulas de soma em novas planilhas
Garantir consistência em planilhas de controle
Automatizar processos repetitivos de criação de abas

🧠 Por que usar o evento Workbook_NewSheet?

O Workbook_NewSheet é acionado sempre que uma nova planilha é criada dentro do arquivo. Ou seja, ao aplicar esse evento, você garante que cada nova aba já venha configurada com os elementos necessários.

Consequentemente, essa automação melhora a produtividade, reduz erros e garante padronização. Além disso, elimina a necessidade de repetir manualmente tarefas como numerar linhas ou inserir fórmulas de soma.

Dessa forma, dominar esse evento é essencial para quem deseja criar sistemas profissionais e dinâmicos no Excel VBA.

📥 Planilha de Exemplo para Download

Para facilitar seu aprendizado, disponibilizamos uma planilha modelo com os exemplos abordados nesta aula. Assim, você pode baixá-la gratuitamente e acompanhar cada passo da explicação.

Arquivo:
📁 Planilha Exemplo – Workbook_NewSheet AutoNumeração e Soma – M1 – Aula 🔗
🔑 Área de Membros com conteúdo exclusivo

📌 O que você vai aprender nesta aula:

Como funciona o evento Workbook_NewSheet no Excel VBA
Como numerar automaticamente linhas ou colunas em novas planilhas
Como inserir fórmulas de soma automaticamente
Criar planilhas padronizadas com macros
Evitar erros manuais e garantir consistência nos registros
Desenvolver sistemas de relatórios dinâmicos
Integrar o evento com outras macros para soluções completas
Aplicar lógica condicional para personalizar a autonumeração

🔍 Exemplo prático com código VBA

✅ AutoNumeração e Soma em nova planilha

vba

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim i As Integer
    Application.EnableEvents = False
    
    'Autonumeração na coluna A
    For i = 1 To 10
        🔑 Área de Membros com conteúdo exclusivo
    Next i
    
    'Inserir fórmula de soma na célula B11
    🔑 Área de Membros com conteúdo exclusivo
    Application.EnableEvents = True
End Sub

Este código é executado sempre que uma nova planilha é criada. Primeiro, ele insere números de 1 a 10 na coluna A. Em seguida, adiciona uma fórmula de soma na célula B11. Dessa forma, cada nova aba já vem configurada com autonumeração e cálculo automático.

🧩 Aplicações práticas no dia a dia

Imagine que você está desenvolvendo relatórios mensais. Ao criar uma nova planilha, o Excel já insere a numeração das linhas e a fórmula de soma. Assim, você não precisa repetir manualmente essas tarefas.

Além disso, em planilhas de controle financeiro, essa técnica pode ser usada para criar automaticamente modelos de lançamentos. Portanto, cada nova aba já estará pronta para receber dados, com cálculos configurados.

Dessa forma, você economiza tempo, reduz erros e garante maior consistência nos relatórios.

🎥 Videoaula explicativa

A aula foi gravada com foco na clareza e objetividade, explicando cada linha de código e sua função. Assim, você verá, passo a passo, como estruturar o código VBA, onde inseri-lo e como testá-lo na prática. Ao final, será capaz de adaptar os exemplos para suas próprias planilhas e necessidades.

📚 Conclusão

Dominar o evento Workbook_NewSheet para autonumeração e soma automática é uma habilidade essencial para quem deseja criar planilhas profissionais e automatizadas com Excel VBA. Com isso, você garante organização, agilidade e inteligência na estrutura dos seus sistemas.

Além disso, ao aplicar os conceitos aprendidos nesta aula, você estará mais preparado para desenvolver soluções personalizadas, otimizando processos e ganhando produtividade. Por fim, lembre-se de praticar com os exercícios propostos e explorar os exemplos fornecidos para fixar o conteúdo.

🙌 Agradecimento

Cada linha de código que você aprende é um passo em direção à excelência em automação com Excel VBA. Portanto, continue praticando, explorando e aplicando os conhecimentos adquiridos. Estou aqui para te ajudar nessa jornada.

👨‍🏫 Prof. Expedito Marcondes
✉️ suportecursovba@gmail.com
🔗

Nesta video aula [ M1 – Aula 73], aprenderemos como lidar com os Evento WorkBook_NewSheet AutoNumero Soma 40, fazer uma Evento cria uma nova planilha e faz auto soma

M1 – Aula 73: Evento Workbook_NewSheet e AutoNumeração e Soma

Olá, Queridos Alunos!

Estou muito feliz em compartilhar com vocês mais uma vídeo aula e um exemplo prático na nossa planilha de estudos. Hoje, vamos aprender sobre o Evento Workbook_NewSheet e como utilizá-lo para realizar auto numeração e soma de valores em uma nova planilha. Além disso, vamos incluir um procedimento que gera números aleatórios em uma determinada coluna para que a soma seja calculada automaticamente. Esse conhecimento é extremamente útil e pode automatizar diversas tarefas, tornando suas planilhas mais eficientes e poderosas.

A Importância do Conhecimento e do Estudo

O conhecimento é a estrada transluzente para a sabedoria, que é um dom de Deus. Estudar e se esforçar para aprender programação e lógica de programação são passos fundamentais para alcançar o crescimento profissional e pessoal. Desenvolver o raciocínio lógico é uma habilidade valiosa que pode ser aplicada em qualquer situação da vida, seja na resolução de problemas cotidianos, na vida profissional ou na vida pessoal.

A prática com exercícios é essencial para a elevação do crescimento profissional e pessoal. Cada conceito aprendido, cada desafio superado, é um tijolo na construção de um futuro mais próspero e iluminado. Com esforço, todos conseguem uma vida melhor, amizades melhores, trabalho melhor, salário melhor e melhor qualidade de vida. O conhecimento é uma dádiva divina, e devemos agradecer a Deus por existirem pessoas com vontade de crescer na vida humano-profissionalmente, espiritualmente, socialmente e financeiramente.

Incentivo ao Estudo e ao Crescimento

Estudem bastante, livrem-se da falta de conhecimento. O conhecimento é uma estrada da sabedoria que liberta, dando um norte na vida. Aqueles que se dedicam aos estudos e adquirem conhecimento são agraciados com ótimos salários, novas amizades e reconhecimento no mercado de trabalho. Lógica de Programação é para a vida toda. Trabalhem suas ideias, evidenciem seu intelecto e evoluam. Libertem-se, estudem e pratiquem. Cada esforço é um passo em direção ao sucesso.

Exemplos de Procedimentos com Evento Workbook_NewSheet para AutoNumeração e Soma

Aqui estão dez exemplos práticos para aplicar o que aprenderam sobre o evento Workbook_NewSheet e a auto numeração e soma de valores em uma nova planilha. Basta copiar e colar o código no módulo correto e executar a macro para visualizar os resultados:

Exemplo 1: AutoNumeração em Nova Planilha

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
        🔑 Área de Membros com conteúdo exclusivo
    Next i 
    Application.EnableEvents = True 
End Sub

Auto Numeração e Soma de Valores

– Queridos Alunos, fiz esses exemplos de procedimento para treinamento de voces, copie o evento, e cole na folha de código do (Workbook), depois teste. Bons Estudos. Prof. Marcondes.

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    Dim soma As Double 
    For i = 1 To 10 
         🔑 Área de Membros com conteúdo exclusivo
    Next i 
         🔑 Área de Membros com conteúdo exclusivo
    Application.EnableEvents = True 
End Sub

Enumerando em Coluna B e Soma em B12

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
    🔑 Área de Membros com conteúdo exclusivo
    Next i 
    🔑 Área de Membros com conteúdo exclusivo
End Sub

Gerar Números Aleatórios em Coluna C e Somar em C12

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
       🔑 Área de Membros com conteúdo exclusivo
    Next i 
    🔑 Área de Membros com conteúdo exclusivo 
    Application.EnableEvents = True 
End Sub

Como fazer para inserir um Numeração em Coluna D e Soma em D12

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
        🔑 Área de Membros com conteúdo exclusivo 
    Next i 
    🔑 Área de Membros com conteúdo exclusivo 
    Application.EnableEvents = True 
End Sub

Inserindo uma Auto Numeração com Incremento de 5 em Coluna E e Soma em E12

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
        🔑 Área de Membros com conteúdo exclusivo
    Next i 
       🔑 Área de Membros com conteúdo exclusivo
    Application.EnableEvents = True 
End Sub

Planilha Auto numeração Decrescente em Coluna F e Soma em F12

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
        🔑 Área de Membros com conteúdo exclusivo
    Next i 
       🔑 Área de Membros com conteúdo exclusivo
    Application.EnableEvents = True 
End Sub

Enumerando com Números Negativos em Coluna G e Soma em G12

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
        🔑 Área de Membros com conteúdo exclusivo 
    Next i 
       🔑 Área de Membros com conteúdo exclusivo
    Application.EnableEvents = True 
End Sub

Como Fazer Números Aleatórios Negativos Auto Numeração em Coluna H e Soma em H12

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
        🔑 Área de Membros com conteúdo exclusivo
    Next i     
End Sub

Alternância de AutoNumeração com Sinais em Coluna I e Soma em I12

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    Application.EnableEvents = False 
    Dim i As Integer 
    For i = 1 To 10 
        If ??????? = 0 Then 
        🔑 Área de Membros com conteúdo exclusivo
        Else 
       🔑 Área de Membros com conteúdo exclusivo
        End If 
    Next i 
       🔑 Área de Membros com conteúdo exclusivo
End Sub

Agradecimento pelo Esforço

Quero agradecer o esforço de todos vocês. O conhecimento que vocês adquirem hoje será a base para um futuro brilhante e cheio de realizações. Libertem-se, estudem e pratiquem. A programação e a lógica de programação são ferramentas poderosas que podem transformar suas vidas de inúmeras maneiras.

Vale a pena estudar, esforce-se e vou ficar feliz pelo teu esforço em aprender. Estudem bastante, elevem sua autoestima e busquem o sucesso na vida profissional e pessoal.

Acreditem em suas capacidades, mantenham-se determinados e persistentes. Cada passo que vocês dão em direção ao conhecimento é um passo em direção ao sucesso. Continuem com essa força de vontade, e lembrem-se de que estou aqui para ajudar em sua jornada de aprendizado.

Deus os abençoe! Vamos juntos construir um caminho de sucesso e realizações!

📧 Prof. Expedito Marcondes
📚✨ Tire Dúvidas: suportecursovba@gmail.com