Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Quebra de página Automática

Ir para baixo 
AutorMensagem
Sergio_S




Mensagens : 1
Data de inscrição : 20/08/2012

Quebra de página Automática Empty
MensagemAssunto: Quebra de página Automática   Quebra de página Automática EmptySeg Ago 20, 2012 9:34 pm

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
Ir para o topo Ir para baixo
 
Quebra de página Automática
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Sequência numérica automática para outras páginas
» Extrair dados de uma página do IE
» Talao de vendas soma automatica
» Ajuda intração de abas e soma automática
» Numeração automática e Ordem alfabética simultâneas VBA

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: