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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Quebra de página Automática

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Sergio_S



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

MensagemAssunto: Quebra de página Automática   Seg 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Quebra de página Automática
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Engine de seleção automática de imagem
» Ativação automática
» Publicidade automática dos fóruns
» Mural de novidades
» Como desativar a conexão automática no login do forum?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: