Macro Excel: detectar quebra/mudança de página.

[lucasis]

Olá amigos, estou com um problema no excel.

Preciso de uma macro que consiga detectar as quebras de página em uma tabela.

Tenho uma coluna A toda preenchida. Quero que logo após a quebra de página, a primeira célula da próxima página seja pintada de outra cor.

Não sei se é possível fazer isso em formatação condicional... mas pelo que eu tenho conhecimento, acho que ela não detecta mudanças de página.

Obrigado pessoal!

[Visitante]

Uma caixa de mensagem irá exibir a quantidade de quebras horizontais. Clique em OK para continuar. Para não mostrar a caixa de mensagem coloque um apóstrofo no início da linha ou exclua a linha >> MsgBox p

O código pinta a primeira célula abaixo de cada quebra na coluna 'A' .

Sub PintaQuebraPag()
 Dim i As Long, l As Long, p As Long
 Application.ScreenUpdating = False
  With ActiveSheet
   p = .HPageBreaks.Count
    MsgBox p
     For i = 1 To p
      l = .HPageBreaks(i).Location.Row
       .Cells(l, 1).Interior.ColorIndex = 3
     Next i
    End With
 Application.ScreenUpdating = True
End Sub

[lucasis]

Valeu cara, mas está dando erro.

Diz o seguinte:

"Erro em tempo de execução '9':

Subscrito fora do intervalo"

Ao mandar depurar a parte destacada é a seguinte:

l = .HPageBreaks(i).Location.Row

Poderia me ajudar?

Obrigado!

[Visitante]

Causa provável >> a áraea de impressão não está definida.

Para contornar acrescentei as 2 linhas em vermelho.

Sub PintaQuebraPag()
 Dim i As Long, l As Long, p As Long
 Application.ScreenUpdating = False
  With ActiveSheet
    [COLOR="Red"]ActiveWindow.View = xlPageBreakPreview[/COLOR]
      p = .HPageBreaks.Count
      MsgBox p
     For i = 1 To p
      l = .HPageBreaks(i).Location.Row
       .Cells(l, 1).Interior.ColorIndex = 3
     Next i
    End With
    [COLOR="Red"]ActiveWindow.View = xlNormalView[/COLOR]
 Application.ScreenUpdating = True
End Sub

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.