Como Inserir 4 Linhas Abaixo da Linha Ativa no Excel com VBA

Como Inserir 4 Linhas Abaixo da Linha Ativa no Excel com VBA

Aprenda a criar uma macro VBA que insere automaticamente 4 linhas abaixo da célula ativa no Excel. Veja o código completo, entenda o funcionamento de cada comando e pratique com um exercício simples.

Como Inserir 4 Linhas Abaixo da Linha Ativa no Excel Usando VBA

Se você trabalha frequentemente com planilhas do Excel, pode precisar adicionar várias linhas abaixo de um registro existente. Fazer isso manualmente pode consumir tempo, especialmente em planilhas grandes.

Neste tutorial, você aprenderá a criar uma macro VBA capaz de inserir automaticamente 4 linhas abaixo da linha selecionada.

Código VBA

Sub inserir_quatro_linhas_abaixo()

ActiveCell.Offset(1).Resize(4, 1).EntireRow
End Sub

O Que Esta Macro Faz?

Quando executada, a macro:

1. Identifica a célula atualmente selecionada.
2. Move uma linha para baixo.
3. Seleciona um intervalo de 4 linhas.
4. Insere essas 4 linhas na planilha.

Exemplo

Suponhamos que a célula ativa esteja na linha 10.

Antes:

Linha 10

Linha 11

Linha 12

Linha 13

Depois de executar a macro:

Linha 10

(Nova Linha)

(Nova Linha)

(Nova Linha)

(Nova Linha)

Linha 11

Linha 12

Linha 13

As quatro novas linhas serão inseridas imediatamente abaixo da linha da célula ativa.

Entendendo o Código

ActiveCell

ActiveCell

Representa a célula atualmente selecionada pelo usuário.

Offset(1)

Offset(1)

Move a referência uma linha para baixo.

Resize(4,1)

Resize(4,1)

Redimensiona o intervalo para ocupar 4 linhas e 1 coluna.

EntireRow

EntireRow

``

Seleciona as linhas completas do intervalo.

Insert

Insert

Insere novas linhas na planilha.

Como Inserir a Macro no Excel

1. Abra o Excel.
2. Pressione ALT + F11 para abrir o Editor VBA.
3. Clique em Inserir > Módulo.
4. Cole o código apresentado.
5. Salve o arquivo como Pasta de Trabalho Habilitada para Macro (.xlsm).
6. Execute a macro pressionando ALT + F8.

Exercício Prático

Crie uma planilha simples com os seguintes dados:

Código Produto

001 Teclado

002 Mouse

003 Monitor

004 Impressora

Desafio

1. Clique em qualquer célula da linha do produto "Mouse".
2. Execute a macro.
3. Verifique se foram criadas 4 linhas abaixo desse registro.
4. Preencha as novas linhas com produtos adicionais.

Resultado Esperado

001 Teclado

002 Mouse

(Nova Linha)

(Nova Linha)

(Nova Linha)

(Nova Linha)

003 Monitor

004 Impressora

Dicas

✅ Ideal para formulários e cadastros.

✅ Facilita a inclusão de novos registros.

✅ Evita a inserção manual de várias linhas.

✅ Pode ser adaptada para inserir qualquer quantidade de linhas.

Conclusão

Com apenas uma linha de código VBA, é possível automatizar a inserção de quatro linhas abaixo da linha ativa no Excel. Esse tipo de automação aumenta a produtividade e reduz tarefas repetitivas, tornando o trabalho com planilhas muito mais eficiente.

Expedito Marcondes:
suportecursovba@gmail.com

📥 Baixe o Exemplo de Planilha Excel VBA

Macro utilizada:

Sub inserir_quatro_linhas_abaixo()

ActiveCell.Offset(1).Resize(4, 1).EntireRow.Insert

End Sub

Palavras-chave SEO: Excel VBA, inserir linhas automaticamente, Macro Excel, VBA para iniciantes, automação Excel, inserir 4 linhas no Excel, programação VBA, tutorial Excel VBA.c 

Controle de Dízimos de Membros da Igreja — Excel VBA Automatizado

ORGANIZE OS DÍZIMOS E CONTRIBUIÇÕES DA SUA IGREJA DE FORMA SIMPLES, RÁPIDA E PROFISSIONAL

COMPRAR PLANILHA CONTROLE DE DIZIMO

Você ainda controla os dízimos dos membros da igreja manualmente, em cadernos ou em planilhas complicadas?

Chegou a hora de informatizar esse processo.

Apresentamos uma Planilha Excel VBA Automatizada para Controle de Dízimos de Membros da Igreja, desenvolvida para facilitar o cadastro, lançamento, acompanhamento dos pagamentos e identificação de membros com contribuições em aberto.

Tudo automatizado dentro do Excel!

O QUE VOCÊ VAI ENCONTRAR

👥 Cadastro de Membros

Sistema de cadastro desenvolvido com UserForm em VBA, facilitando o registro e a consulta dos membros da igreja.

Você poderá organizar as informações dos membros de maneira prática e centralizada.

💰 Controle Mensal de Dízimos

Faça os lançamentos dos dízimos e contribuições mensalmente e mantenha um histórico organizado.

O sistema permite acompanhar os valores e verificar a situação de cada membro.

✅ Sistema de Baixa de Pagamentos

Recebeu o pagamento?

Basta realizar a baixa no sistema para manter o controle atualizado.

Isso facilita muito o acompanhamento dos pagamentos realizados e dos valores que ainda estão em aberto.

📊 Lançamentos Automatizados com VBA

A planilha conta com recursos desenvolvidos em Excel VBA, tornando os lançamentos mais rápidos e reduzindo a necessidade de preenchimentos manuais repetitivos.

⚠️ Relatório de Inadimplentes

O sistema permite identificar os membros que possuem pagamentos em atraso ou meses em aberto.

Tenha uma visão mais clara de quem está com contribuições pendentes.

📅 Verificação Mensal

O sistema realiza o controle mensal para ajudar na identificação de falta de pagamento e períodos em aberto.

Assim, você consegue acompanhar a situação dos membros com muito mais facilidade.

📈 Relatórios

Tenha informações organizadas para facilitar a administração e o acompanhamento das contribuições da igreja.

💡 Sugestão de Contribuição

O sistema também conta com recurso de Sugestão de Contribuição, auxiliando no acompanhamento dos valores e na organização das contribuições.

---

POR QUE USAR ESTA PLANILHA?

COMPRAR PLANILHA CONTROLE DE DIZIMO

✅ Mais organização
✅ Mais agilidade nos lançamentos
✅ Controle mensal dos dízimos
✅ Cadastro informatizado de membros
✅ Identificação de meses em aberto
✅ Controle de pagamentos e baixas
✅ Relatórios de inadimplência
✅ Sugestão de contribuição
✅ Sistema desenvolvido em Excel VBA
✅ Interface com formulários UserForm
✅ Dispensa sistemas caros e complicados

---

IDEAL PARA

⛪ Igrejas
⛪ Congregações
⛪ Ministérios
⛪ Tesoureiros
⛪ Secretarias de igrejas
⛪ Responsáveis pelo controle financeiro de membros

Se sua igreja precisa de uma solução simples e prática para organizar o controle dos dízimos, esta planilha pode ajudar.

---

💥 TUDO ISSO POR APENAS R$ 100,00

PAGAMENTO ÚNICO

R$ 100,00

Sem mensalidade.

Sem assinatura.

Você paga uma única vez e recebe a planilha.

---

🔐 PAGAMENTO VIA PIX

Chave Pix:
expeditomarcondes@msn.com

contato WhatsApp: + 55   (16) 9.8133-3066

Como comprar:

COMPRAR PLANILHA CONTROLE DE DIZIMO

1. Faça o pagamento de R$ 100,00 via Pix.

2. Envie o comprovante pelo WhatsApp ou e-mail.

3. Informe seu nome e o e-mail ou WhatsApp onde deseja receber o produto.

4. Após a confirmação do pagamento, a planilha será enviada para você.

---

📲 RECEBA DIRETAMENTE NO SEU WHATSAPP OU E-MAIL

Após a confirmação do pagamento, você receberá sua Planilha de Controle de Dízimos de Membros da Igreja em Excel VBA.

NÃO PERCA MAIS TEMPO COM CONTROLES MANUAIS!

Tenha em mãos uma ferramenta desenvolvida para facilitar a organização dos dízimos, pagamentos e meses em aberto da sua igreja.

👉 ADQUIRA AGORA POR R$ 100,00

PIX: expeditomarcondes@msn.com

Pagamento confirmado → envio da planilha via WhatsApp ou e-mail.
WhatsApp:= (16) 9.8133-3066

---

⚠️ OBSERVAÇÃO

É necessário utilizar o Microsoft Excel compatível com os recursos VBA/macros para funcionamento da automação.

A planilha é destinada ao controle e organização administrativa das contribuições, não substituindo sistemas contábeis ou financeiros profissionais.

MD2 Licao 306 Cells x Rng Copiar e Cola somar celulas

MD2 Licao 211 controle combustivel veículos Explicacao

Excel vba planilha Controle Combustivel Veículos



Site.......:   http://www.saberexcel.com.br

Email....:   contato@saberexcel.com.br 

12 Vídeo Aulas - Como Montar uma planilha de CONTROLE DE COMBUSTÍVEL POR VEICULO com programação, com planilha Excel VBA,  com busca por placa, controlar media por km de cada veiculo, participação nas despesas dos veículos, média, total em quilômetros. Vamos fazer uma consolidação de dados para visualização rápida, e outra tabela que carrega todos esses dados do veiculo, bem como,  total em km e total com gastos. para isso usaremos Instruções for Next e condição IF, os dados serão calculados ao digitar nas células nesta folha de planilha, usando o Evento Change, ao alterar, digitar etc

Esta é uma promoção:





         + Aqui Estão as 12 Video Aulas Controle de Combustível.

         + Poderá comprar separadas do pacote

             https://pag.ae/bmm9j0g     - pagSeguro

  1 - [+] 500 Video Aulas Excel VBA

 2 - [+] Curso Completo MS Excel VBA - Apostilado no Excel

 3 - [+] 30.000 Planilhas prontas Excel e VBA

 4 - [+] 25.000 Macros Coleção Macros Excel VBA

 5 - [+]  4 Módulos Como Fazer Programação  ( +- 700 Planilhas)

 6 - [+] 341 Planilhas WorkSheetFunctions VBA (1 para cada função do excel)

 7 - [+] 141 Planilhas Instruções Loops  (Instruções Loop Existente)

 8 - [+] Planilhas inteligentes - (a publicar)



  Adquirir todo material Escola SaberExcel -

  PagSeguro  - acesso imediato.

   Promoção!:  https://pag.ae/7VRLQ73m5
 

   duvidas,

    www.saberexcel.com.br

   contato@saberexcel.com.br

   (16) 9.8133-3066 - op. tim

Escola SaberExcel VBA Estudos .







Tags: excel VBA, planilhas vba, controle de combustivel, controle de veiculos, custo veiculos, combustivel, veiculos, quilometragem, busca por placa, planilha combustivel, planilha vba, macro, macros vba, automovel controle, planilha, quilometragem controle, veiculos gastos, controle gastos veiculos,

MD2 Licao 298 Cells Rng eventos planilha verifica status5

Excel VBA Lição 298 vídeo aulas exercício(05)

Planilha Excel vba vamos usar o evento Worksheet_Change e evento WorkSheet_SelectionChange para indicar status de contas se os valores foram Compensados ou Não compensados, vamos fazer uma soma automática no lançamento e também trabalhar com autoforma shapes para personalizar um menu vamos usar também o Loop Instrução For Next e Condição IF para localizarmos na planilhas os valores que atenda aos critérios, sera executada uma soma automática na deleção e ou inserção de valores.



Acesso a planilha: Categoria Eventos

http://blog.saberexcel.com.br

MD2 Licao 298 Cells Rng eventos planilha verifica status4

Excel VBA Lição 298 vídeo aulas exercício (04)

Planilha Excel vba vamos usar o evento Worksheet_Change e evento WorkSheet_SelectionChange para indicar status de contas se os valores foram Compensados ou Não compensados, vamos fazer uma soma automatica no lançamento e também trabalhar com autoforma shapes para personalizar um menu vamos usar também as intruções for next e condição if para localizarmos na planilhas os valores que atenda aos critérios, sera executada uma soma automatica na deleção e ou inserção de valores.



Acesso a planilha: Categoria Eventos

http://blog.saberexcel.com.br

Excel VBA MD2 Licao 298 Cells Rng eventos planilha excel vba status 01

Excel VBA Lição 298 video aulas exercicio(01)

Excel VBA Planilha,  vamos usar o evento Worksheet_Change e evento WorkSheet_SelectionChange para indicar status de contas se os valores foram Compensados ou Não compensados, vamos fazer uma soma automatica no lançamento e também trabalhar com autoforma shapes para personalizar um menu vamos usar também as intruções for next e condição if para localizarmos na planilhas os valores que atenda aos critérios, sera executada uma soma automatica na deleção e ou inserção de valores.



Acesso a planilha:      -   categoria Eventos

http://blog.saberexcel.com.br

MD2 Licao 298 Cells Rng eventos planilha verifica status2

Planilha Excel vba Aula(2) vamos usar o evento Worksheet_Change e evento WorkSheet_SelectionChange para indicar status de contas se os valores foram Compensados ou Não compensados, vamos fazer uma soma automatica no lançamento e também trabalhar com autoforma shapes para personalizar um menu vamos usar também as intruções for next e condição if para localizarmos na planilhas os valores que atenda aos critérios, sera executada uma soma automatica na deleção e ou inserção de valores.



Acesso a planilha:  > va na categoria Eventos

http://blog.saberexcel.com.br

MD2 Licao 298 Cells Rng eventos planilha verifica status3

Planilha Excel vba vamos usar o evento change e evento WorkSheet_SelectionChange para indicar status de contas se os valores foram Compensados ou Não compensados, vamos fazer uma soma automatica no lançamento e também trabalhar com autoforma shapes para
personalizar um menu vamos usar também as intruções for next e condição if para localizarmos na planilhas os valores que a
atende aos nossos critérios, sera executada uma soma automatica na deleção e ou inserção de valores.

Acesso a planilha:
http://blog.saberexcel.com.br

Folha de pagamento Excel VBA

Folha de pagamento Excel VBA:


 3 minutos
Folha de pagamento Excel VBA Macro do Aplicativo Microsoft Excel VBA, calcula folha de pagmento salario liquido a receber, descontando vale transporte, faltas, adiantamentos, inss, imposto de renda com base tabela desconto,  inss, salario família assistencia média hospitalar. Planilha exemplo realizado para treinamentos com macros e fórmulas MS Excel VBA. A planilha para uso fora do treinamento tem ser revisada. PLANILHA FOLHA DE PAGAMENTO desenvovida com Fórmulas e Excel VBA Assinantes, baixe a planiha na Categoria – SBI – Planilhas Inteligentes Sub Continue lendo→

Barras de Progressão Excel VBA planilha

Barras de Progressão Excel VBA planilha: Barras de progressão VBA Macros do aplicativo Microsoft Excel  que chamam barras de progressão em menu personalizados nas abas desejadas, planilhas excel vba

Numeros isnumeric excel vba planilhas

Numeros isnumeric excel vba planilhas: Numeros isnumeric excel vba planilhas , vamos verificar no exemplo abaixo o que é número ou o que é texto, observe que números também podem vir como string

Numeros isnumeric excel vba planilhas, vamos verificar no exemplo abaixo o que é número ou o que é texto, observe que números também podem vir como string ou texto e seus calculos sairem errados, mas isso dependerá de como você vai tratar e inserir números, então cuidado para não inserir numeros na forma de texto.  Geralmente usando a Função CDBL pode resolver, isso é declarando o carácter número como Double  tipo assim    Por ex:   [c4].value  = cdlb(Cells(i,”b”))  pronto.!  Abaixo vamos ver como usar a Função ISNumberic para ver se determinados caracteres em células ou conjunto de células são números ou não.
Vamos aproveitar e brincar um pouquinho com Excel VBA, inserindo cores etc..

Sub sbx_numericos_ou_textos()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(“D2:G” & x).Clear ‘limpar para pegar as alterações
For i = 2 To (x – 1) ‘fazendo o loop na coluna A
If IsNumeric(Cells(i, “a”)) And _
IsNumeric(Cells(i, “b”)) Then
Cells(i, “e”).Value = “Numero” ‘ se atender as duas condições (Num e Num)
Cells(i, “e”).Font.ColorIndex = 5 ‘cor font. azul se for número
Cells(i, “e”).Interior.ColorIndex = 35 ‘cor Interior verde claro se for número
Else
Cells(i, “g”).Value = “Texto” ‘ Retorna Texto se houver texto na coluna(A) ou coluna(B)
Cells(i, “g”).Font.ColorIndex = 10 ‘cor fonte verde se for Texto
Cells(i, “g”).Interior.ColorIndex = 36 ‘cor interior amarelo claro se for Texto
End If
Next i
sbx_ocultar_mostrar
End Sub

Sub sbx_numerico_ou_texto_limpar()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(“E2:G” & x).Clear ‘limpar se houver alterações
sbx_ocultar_mostrar
End Sub

Sub sbx_ocultar_mostrar()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
With Plan1.Shapes(“sbx_01”)
If .Visible = True Then
.Visible = False
Range(“E2:G” & x).Clear
Else
.Visible = True
End If
End With
End Sub

20.000 Planilhas Excel VBA

35.000 Planilhas Excel VBA

http://www.saberexcel.com.br
35.000 Planilhas Prontas -
Video Aulas MS Excel VBA -

MD2 Licao 293 Planilhas Celulas e Range Calcula parcelas Colunas2

MD2 Licao 293 Planilha Celulas e Range Calcula parcelas Colunas4

MD2 Licao 293 Planilhas Celulas e Range Calcula parcelas Colunas1

MD2 Licao 293 Planilhas Celulas e Range Calcula parcelas Colunas3

Curso Excel VBA Treinamentos Planilha Excel

Assinatura e Cursos Excel VBA  - Escola SaberExcel VBA Estudos
Preocupação Primeira ("ENSINAR EXCEL VBA")

- Aprendendo Programação MS Excel VBA, com facilidade e simplicidade, "Escrevendo Menos e Fazendo Mais

  - Vídeo Aulas MS Excel VBA
      - Até o momento (06-12-2016)  temos 270 Vídeo Aulas Prontas
       - Modulo1 - Eventos
       - Modulo2 - Celulas e Range
       - (pretensão 1.000 Vídeo Aulas Excel VBA)
       - Usamos nestas vídeo Aulas exemplos de todas as dificuldades essenciais em programação.
  
  - 35.000 planilhas prontas MS Excel VBA
        São + 225 Pastas Dividas Simetricamente com as Categorias do Excel VBA


  - 141 Planilhas Instruções Loop MS Excel VBA
        -São exemplos de Planilhas que ensino como usar diversas Instruções Loops
            1 - SBX - SaberExcel Loop Do Loop Until - 15 Arquivo
            2 - SBX - SaberExcel Loop Do Loop While - 12 Arquivos
            3 - SBX - SaberExcel Loop Do Until Loop  - 13 Arquivos
            4 - SBX - SaberExcel Loop Do While Loop - 22 Arquivos
            5 - SBX - SaberExcel Loop For Each Next - 24 Arquivos
            6 - SBX - SaberExcel Loop For Next  - 37 Arquivos
            7 - SBX - SaberExcel Loop While Wend - 12 Arquivos


  - 341 Planilhas WorkSheetFunction - VBA
    - As WorkSheetFunctions são poderosíssimas em programação
    - Fizemos um Exemplo de Planilha de Planilha para cada Função do Excel
 
  -  4 Módulos Como Fazer Programação
      - Fizemos umas 700 Planilhas exemplos de como fazer programação MS Excel VBA

 -  Planilhas Inteligentes Microsoft Excel VBA
    - Nesta Categoria temos planilhas muito interessantes que trabalham com diversas categorias, imagens,     auto filtros, cadastros, e outros


-   Coleção 25.000 Macros MS Excel VBA    
     - Coleção de Macros, em um programa especifico para voce ter como  uma mega biblioteca de
       Macros para guardar, alterar, copiar, colar, pesquisar, estudar .... etc...
      (muito usada em pesquisas por todos os  níveis de programação (Iniciantes, Médio, Avançado, e Pleno)

 e  muito mais.......
                     

Saberexcel  o site das Macros ( (16) 9.8133-3066 (OP.TIM) * suportecursovba@gmail.com

Excel planilha Funcao personalizada Contar ocorrencia palavras

Essa função personalizada do Aplicativo
Microsoft Excel VBA, retorna a quantidade de ocorrências de determinada palavra
em intervalo de célula.


Function Contar_ocorrencias(vArea As Range, Palavra As String) As Long
'Declarando as variaveis
Dim vCelula As Range
Dim i As Integer 'para o loop (contador)

'Variável Contar_ocorrencia igual a zero
Contar_ocorrencias = 0

'Loop para percorrer todas as 'vCelulas' do argumento (vArea)
For Each vCelula In vArea
'Percorrer todos os caracteres da célula
For i = 1 To Len(vCelula)
'esta linha de código faz a comparação nao diferenciando
letras maiusculas de minusculas
If UCase(Mid(vCelula, i, Len(Palavra))) = UCase(Palavra) Then Contar_ocorrencias
= Contar_ocorrencias + 1
Next i

Next vCelula

End Function

Fórmulas usadas...:
'="Há [ "&E5 & " ] ocorrencias da palavra [ "&B1 & " ] na range(B1:B16)"

="Há [ "&Contar_ocorrencias(B1:B16;B1) & " ] ocorrencias da
palavra [ "&B1 & " ] na range(B1:B16)"

Baixe o exemplo de planiha em nosso site.

http://www.saberexcel.com.br

há muitos downloads gratuitos.

Excel VBA Macros - Deleta linhas ou colunas em branco Planilha Excel VBA

Excel VBA Macros - Esta macro deleta linhas ou colunas em branco na planilha
do aplicativo MS Excel
'...........................................'
Sub Deleta_Linhas_Branco()
Sheets(”SuaPlanilha”).Select
Dim r, c, x As Integer
‘r esta é sua primeira linha na planilha excel
For r = 1 To 150
‘c é seu loop da primeira coluna da planilha excel até que c alcance 184 (improváveis)

For c = 1 To 184
’se a celula do excel determinada no loop estiver em branco
If Cells(r, c) = “” Then
‘procura proxima linha não branca - o número de coluna transformar-se-á x
x = Cells(r, c).End(xlToRight).Column
‘if x > 184 (sua ultima coluna) então você pode pular o pause desta lista como espaço em branco

If x > 184 Then GoTo 10
‘encontre o que a coluna antes da lista não-em branco faz o seguinte:
Y = x - 1
‘Teste a diferença entre a coluna que estão sendo processados e o y

Select Case Y - c
’se mais de uma lista atual no meio da lista em branco e não contiver espaço em branco seguinte suprimem então 'da escala dos espaços em branco
Case Is > 0
Range(Cells(r, c), Cells(r, Y)).Delete Shift:=xlToLeft

Case 0
’se diferença entre o & de y; c é 0 então somente uma Lista a Suprimir
Cells(r, c).Delete Shift:=xlToLeft

Case Else
’se it’ negativo de s você tem um erro!!
MsgBox “Error: Macro Will Stop”, vbCritical, “Error”
Exit Sub
End Select
End If
‘move para a proxima coluna
Next c
‘ 10 é usado como um atalho para interromper o loop acima… se 10 entende que estão toda em branco - o trabalho 'de deleção vai apenas para a lista seguinte ao 10
Next r
End Sub
'.....................................'
http://ww.saberexcel.com
o site das macros do Aplicativo MS Excel VBA Visual Basic Application
Coleção de 15.000 Macros, Fórmulas e Funções
'....................................'