Excel Verificação de intervalos VBA

[Neodenn]

Bom dia!
 

Estou tentado desenvolver um código que de 54 em 54 linhas verifica a propia linha e mais duas abaixo, caso todas elas estejam vazias, encerrar o código.

Caso uma delas estiverem preenchidas, iniciar a próxima verificação.

O intuito desse código é criar marcações para quebra de página automaticamente. Na minha configuração, as paginas acabam de 54 em 54 linhas.

O código para marcar a quebra de página é esse: 

 

ActiveSheet.PageSetup.PrintArea = "$A$1:$F$54"

 

Com o código em mãos é apenas questão de substituir esse intervalo por variáveis.

 

Se puderem me ajudar, desde já grato!

 

[OreiaG]

5 horas atrás, Neodenn disse:

O intuito desse código é criar marcações para quebra de página automaticamente.

 

 

Veja se ajuda.

 

Sub InsereQuebrasDePágs()
 Dim k As Long
  ActiveSheet.ResetAllPageBreaks
   Do While Application.CountA(Cells(k + 1, 1).Resize(54)) > 0
    ActiveSheet.HPageBreaks.Add Cells(k + 1 + 54, 1)
    k = k + 54
   Loop
End Sub

 

[Neodenn]

Show de bola cara,

Fiz algumas alterações no seu código, agora está funcionando como queria.