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

  • Pergunta

  • 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.

    terça-feira, 16 de setembro de 2014 21:14

Respostas

  • 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

    quinta-feira, 2 de outubro de 2014 23:36
    Moderador

Todas as Respostas

  • 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

    quarta-feira, 17 de setembro de 2014 22:46
    Moderador
  • 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,

    quinta-feira, 18 de setembro de 2014 12:08
  • Pessoal, alguém consegue me ajudar? Já pesquisei e não encontrei algo parecido.
    quarta-feira, 1 de outubro de 2014 00:45
  • 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

    quinta-feira, 2 de outubro de 2014 21:26
    Moderador
  • Oi Felipe,

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

    Abs

    quinta-feira, 2 de outubro de 2014 23:02
  • 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

    quinta-feira, 2 de outubro de 2014 23:36
    Moderador