Inserior Linha Em Branco automatica após último registro em determinado intervalo

Question

Olá Amigos, boa tarde!

Preciso da ajuda de vocês.

Estou criando uma planilha onde tenho a necessidade de criar uma linha em branco na sequencia automaticamente assim que eu preencher ultima linha em um intervalo especificado e assim por diante.

Ex de Planilha

Em uma mesma coluna tenho:

LINHA 1 (SERÁ UM CABEÇALHO)

LINHA 2

LINHA 3

LINHA 4

LINHA 5

LINHA 6

LINHA 7 (cabeçalho 2 novamente e deverá ter a mesma lógica)

LINHA 8

LINHA 9

LINHA 10

LINHA 11

LINHA 12

LINHA 13 (cabeçalho 3 novamente e deverá ter a mesma lógica)

LINHA 14

LINHA 15

LINHA 16

LINHA 17

LINHA 18

Preciso que me ajudem com um código onde:

Exceto no primeiro cabeçalho, toda vez que eu efetuar um registro na linha que antecede o cabeçalho 2 e 3, automaticamente ele insira uma linha em branco com a mesma formatação e assim sucessivamente conforme a minha necessidade de inserir valores antes destes cabeçalhos especificados.

Agradecido pela atenção.

Answer 1

Os cabeçalhos se repetem porque a sua planilha terá várias páginas? Se sim, os cabeçalhos de cada página serão iguais entre si ou diferentes?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

Olá Felipe,

Obrigado pelo retorno.

Trata-se de um formulário que terei 3 cabeçalhos, cada um é referente a uma informação diferente, porém, não sei quantas informações eu terei listadas abaixo de cada cabeçalho, pode ser que 10, pode ser 100 ou até 1.

Então, a planilha original eu deixaria, por exemplo, com 10 linhas abaixo de cada cabeçalho e conforme o escopo, ela ir aumentando de acordo com a necessidade de cada informação registrada abaixo de cada cabeçalho para que ai sim, ao término do preenchimento eu limpe as linhas em branco da coluna e a planilha seja reduzida ao tamanho ideal para impressao.

Obrigado pela ajuda.

Abs,

Answer 3

Pessoal, alguém consegue me ajudar? Já pesquisei e não encontrei algo parecido.

Answer 4

Não entendi algumas coisas. Na verdade, você quer uma rotina que exclua linhas extras em branco, deixando apenas uma em branco, ou que inclua uma em branco a partir de uma planilha preenchida?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 5

Oi Felipe,

Preciso que ela inclua uma linha em branco a partir de uma preenchida.

Abs

Answer 6

Sub pMain()
  Dim lLast As Long
  Dim lRow As Long
  Dim ws As Excel.Worksheet
  
  Set ws = ThisWorkbook.Worksheets("Plan1")
  With ws
    For lRow = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1
      If .Cells(lRow, "A") Like "Cabeçalho*" Then
        .Rows(lRow).Insert
      End If
    Next lRow
  End With
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br