Olá pessoal, sou novo aqui e tenho um quebra-cuca para nós.
Eu tenho o código abaixo que efetua a quebra de página automática conforme a coluna que é colocada no código (nesse caso a A).
Ela funciona quase que perfeitamente mas quando chega na linha A1497 ela simplemente não entra mais no comando onde efetua a quebra (cell.Offset(1, 0).EntireRow.PageBreak = xlPageBreakManual) (eu debuguei para verificar isso). E logo após ele da a mensagem (Microsoft Visual Basic aplication Erro:400)
Alguém faz idéia de como resolver isso?
Já testei no Excel 2003/2007/2010. Extensões (.xls | .xlsm | .xlsx) e nada.
Segue o código:
-------------------------------------------------------------------------------------------------------------------------------------------
Sub AutoBreak()
Set Urange = ActiveSheet.UsedRange
Set ColA = Range("A:A")
Set Arange = Intersect(ColA, Urange)
Set Brange = Arange.Offset(1, 0).Resize(Arange.Rows.Count - 1)
Cells.PageBreak = xlNone
For Each cell In Brange
If cell.Value <> cell.Offset(1, 0).Value Then
cell.Offset(1, 0).EntireRow.PageBreak = xlPageBreakManual
End If
Next
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------
Pode colocar qualquer valor na coluna A até a linha 15.000 (preciso que funcione até a 15.000) mas ele para na A1497.
a
a
a
------------------
b
b
b
------------------
c
c
c
------------------
d
d
d
------------------
b
b
b
b
------------------
Abs
Sérgio