Incluir Linhas em Branco

 

Nesse exemplo temos um arquivo com algumas linhas preenchidas.

 

 

Salvaremos o arquivo como: inserirlinha lembrando de salvar como Pasta de Trabalho Habilitada para Macro do Excel.

 

 

 

Precisamos acessar o Visual Basic Editor, para digitarmos o código da macro, que irá relacionar as planilhas. Para tanto podemos pressionar as teclas Alt + F11, ou usar o comando

 

 

 

 

A janela do VBA será aberta.

 

 

 

Vamos inserir a macro em um novo modulo.

 

 

 

Ao iniciar o modulo, vamos inserir o seguinte código:

 

Sub inserirlinha()

 

‘Cria variáveis

   

    ‘Variável para percorrer a planilha

    Dim casa As Object

    ‘Variável para encontrar a última célula preenchida

    Dim ultimacelula

 

‘Impede que o usuário visualize o processo sendo executado

Application.ScreenUpdating = False

 

‘Atribui o valor da última célula preenchida

ultimacelula = Range(“A65536″).End(xlUp).Address

 

    ‘Percorre a planilha

    For Each casa In Range(“A1:” & ultimacelula)

 

        ‘Se encontrar uma célula preechida, onde a célula abaixo também esteja preechida

        If casa <> “” And casa.Offset(1, 0) <> “” Then

        ‘Então insere uma linha entre elas

        casa.Offset(1, 0).EntireRow.Insert

   

        ‘Finaliza o If

        End If

 

    ‘Vai para a proxima célula

    Next

 

‘Seleciona a célula A1

Range(“A1″).Select

 

End Sub

 

Feche o Visual Basic Editor.

 

Salve o arquivo.

 

Na guia desenvolvedor, escolha em inserir o botão.

 

 

 

Desenhe o botão na planilha e atribua a macro: inserirlinha.

 

 

 

Teste o botão.