COMO LOCALIZAR AS CÉLULAS COM QUEBRAS DE PÁGINAS VIA MACRO

Question

Prezados,

Tenho 700 páginas de um relatório, porém as minhas páginas hora são quebradas com

50 linhas, Hora com 60, portanto, as minhas páginas não tem um número certo

de linhas.

Queria saber se voces conhecem alguma macro que me forneça o ponto da quebra de páginas.

para que eu possa ali inserir uma soma.

Enfim, preciso localizar a quebra de página para inserir uma soma em todas as páginas.

Agradeço pela ajuda.

E_Marcondes

Answer 1

Ao invés de fazer assim, vc não poderia filtrar as páginas e pegar apenas o final (que não tem conteúdo) e inserir os somatórios? Poderia fazer isto via macro, mas sem percorrer as páginas e sim filtrando.

Answer 2

Prezado Luiz,

Obrigado pela resposta, vou usar o seu exemplo sim, boa resposta.

Mas consegui umas macros, e gostaria de postá-las, as vezes poderá ajudar alguém, com o mesmo problema,

Essas macros retornam os endereços das células onde acontecem as quebras de páginas.

Obrigado pela atenção. E_Marcondes.

 '...................................'

Sub TestHorizontal()    ActiveSheet.Range("A1000").Value = 1

    MsgBox ActiveSheet.HPageBreaks.Count

    MsgBox ActiveSheet.HPageBreaks(1).Location.Address

    MsgBox ActiveSheet.HPageBreaks(2).Location.Address

    MsgBox ActiveSheet.HPageBreaks(3).Location.Address

End Sub

 '...................................'

Sub TestVertical()

    ActiveSheet.Range("A1000").Value = 1

    MsgBox ActiveSheet.VPageBreaks.Count

    MsgBox ActiveSheet.VPageBreaks(1).Location.Address

    MsgBox ActiveSheet.VPageBreaks(2).Location.Address

    MsgBox ActiveSheet.VPageBreaks(3).Location.Address

End Sub '...................................'

OUTRA MACRO USANDO LOOP, PARA LOCALIZAÇÃO DAS

CÉLULAS CONTENDO A QUEBRA DE PÁGINAS.

Checando endereço das células que contenham quebra de páginas.

'.....................................'

Sub Checkando_celulas_com_quebra_paginas()

    'Set object "currcell"   'Instrução Set atribuindo referência a célula ativa

    Set currcell = ActiveCell

    'Selecionionando a última célula na planilha que contenha dados    Range("IV65536").Select

    'Application.Goto Plan1.Range("A" & Rows.Count), True

    'um loop para retornar msgbox dos endereços das células contendo as quebras de páginas    For i = 1 To Plan1.HPageBreaks.Count

        'Inclua o código com a propriedade HPageBreaks para achar o endereço das células com quebras de páginas.

        x = ActiveSheet.HPageBreaks(i).Location.Address

        MsgBox x

     Next i

    'Seleciona a célula ativa.    currcell.Select

    Range("A1").Select

End Sub