Note: The other languages of the website are Google-translated. Back to English

Como inserir uma nova linha em branco automaticamente pelo botão de comando no Excel?

Em muitos casos, pode ser necessário inserir uma nova linha em branco em uma posição especificada da planilha. Neste artigo, mostraremos como inserir uma nova linha em branco automaticamente clicando em um botão de comando no Excel.

Insira uma nova linha em branco automaticamente pelo botão de comando


Insira uma nova linha em branco automaticamente pelo botão de comando

Você pode executar o seguinte código VBA para inserir uma nova linha em branco clicando em um botão de comando. Faça o seguinte.

1. Primeiramente, você precisa inserir um Botão de Comando. Por favor clique Desenvolvedor > inserção > Botão de comando (controle ActiveX). Veja a imagem:

2. Em seguida, desenhe um Botão de Comando na planilha de que você precisa para adicionar novas linhas, clique com o botão direito no Botão de Comando e clique Propriedades no menu do botão direito.

3. No Propriedades caixa de diálogo, insira o texto exibido do botão de comando no Subtítulo caixa sob o Categorizados guia e feche a caixa de diálogo.

Você pode ver que o texto exibido do botão de comando é alterado conforme a imagem abaixo mostrada.

4. Clique com o botão direito do mouse no Botão de comando novamente e clique em Ver código no menu do botão direito.

5. Então o Microsoft Visual Basic para Aplicações janela, substitua o código original pelo código VBA abaixo no Código janela.

Código VBA: inserir automaticamente uma nova linha em branco pelo botão de comando

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to add a row:", _
                                    Title:="Kutools for excel", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub

Importante: No código, CommanButton1 é o nome do botão de comando que você criou.

6. Pressione outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela. E desligue o Modo de design sob a Desenvolvedor aba.

7. Clique no botão de comando inserido e um Kutools for Excel caixa de diálogo aparece. Insira um determinado número de linha onde deseja adicionar uma nova linha em branco e clique no botão OK botão. Veja a imagem:

Em seguida, a nova linha em branco é inserida em uma posição especificada de sua planilha, conforme mostrado abaixo. E mantém a formatação da célula acima.


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (17)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Alguém poderia aconselhar sobre como posso alterar isso para adicionar automaticamente a nova linha à parte inferior de uma tabela do Excel?
Este comentário foi feito pelo moderador no site
você achou a resposta?
Este comentário foi feito pelo moderador no site
Oi eu estou usando este código, mas não está derrubando as fórmulas da linha antes, você pode ajudar por favor.
Este comentário foi feito pelo moderador no site
Caro Kim,

Insira uma tabela com o intervalo em que você inserirá linhas em branco. Depois disso, ao inserir uma nova linha, a fórmula será desativada automaticamente.

Atenciosamente, Cristal
Este comentário foi feito pelo moderador no site
você pode dar um exemplo? Não seguindo o que você está dizendo aqui. Obrigado
Este comentário foi feito pelo moderador no site
Oi,
Converta seu intervalo em um intervalo de tabela para reduzir a fórmula automaticamente ao inserir novas linhas. Veja captura de tela:
Este comentário foi feito pelo moderador no site
Estou tendo o mesmo problema que Kim - Quando a planilha está desprotegida, ela adiciona a linha com a formatação correta e as fórmulas corretas. Uma vez que a planilha está protegida, ela não copia as fórmulas. Alguma ideia?
Este comentário foi feito pelo moderador no site
Prezada Michele,
Por padrão, uma planilha protegida não permite inserir uma linha em branco.
Portanto, o código VBA não pode funcionar nesse caso.
Este comentário foi feito pelo moderador no site
Existe uma maneira de adicionar um botão Inserir linha e fazer com que as novas linhas mantenham as células mescladas/formatadas como estão no restante de uma tabela?
Este comentário foi feito pelo moderador no site
Oi simon
Desculpe pode ajudar a resolver este problema ainda. Obrigado por seu comentário.
Este comentário foi feito pelo moderador no site
Existe uma maneira de fazer com que a nova linha mantenha a formatação da linha abaixo em vez da linha acima?
Este comentário foi feito pelo moderador no site
Olá Tarl,
Desculpe pode ajudar a resolver este problema ainda. Obrigado por seu comentário.
Este comentário foi feito pelo moderador no site
Sim, eu brinquei com o script e funcionou para mim. Você apenas adiciona o número da linha que deseja (eu escolhi a linha 6), mas ficarei chocado se for permitido publicar.

Sub CommandButton1_Click () particular
Dim rowNum As Integer
On Error Resume Next
Rows(rowNum & "6").Inserir Shift:=xlDown
End Sub
Este comentário foi feito pelo moderador no site
é possível inserir várias linhas de planilha ao mesmo tempo, clique aqui.
Este comentário foi feito pelo moderador no site
Oi,
O código abaixo pode ajudá-lo a resolver o problema. Por favor, tente.

Sub CommandButton1_Click () particular
Dim xIntRrow como inteiro
Dim rowNum As Integer
On Error Resume Next
rowNum = Application.InputBox(Prompt:="Digite o número da linha onde você deseja adicionar uma linha:", _
Title:="Kutools for excel", Type:=1)
xIntRrow = Application.InputBox(Prompt:="Digite o número de linhas que deseja inserir", _
Title:="Kutools for excel", Type:=1)
Rows(rowNum + 1 & ":" & rowNum + 1).EntireRow.Resize(xIntRrow).Insert Shift:=xlShiftDown

End Sub
Este comentário foi feito pelo moderador no site
é possível criar em uma planilha diferente? eu realmente preciso disso
Este comentário foi feito pelo moderador no site
Sub AddNewRow()



Sub CommandButton1_Click () particular

ActiveSheet.Desproteger Senha:="1234"



Escurecer meuPlanilhas

Dim i tanto tempo



minhasPlanilhas = Array("Planilha2")



Para i = LBound(mySheets) Para UBound(mySheets)

Com Planilhas(mySheets(i))

.Range("B10").EntireRow.Insert Shift:=xlDown

.Range("B10:H10").Borders.Weight = xlThin

Terminar com

Proximo eu



ActiveSheet.Proteger senha:="1234"



End Sub

Não sei se isso vai funcionar para você. Funcionou muito bem para mim. Até deixei células desprotegidas que você pode inserir dados e as fórmulas continuam ativas. Levei um dia inteiro para descobrir. substitua "1234" por qualquer senha que você queira, "Planilha2" pela Planilha com a qual você está trabalhando e insira o intervalo desejado.
O código primeiro desprotege a planilha, adiciona linha e protege a planilha.
kiongakamau@gmail.com
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0  Personagens
Locais sugeridos