Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Limpar Cabeçalhos
 
Notifications
Clear all

Limpar Cabeçalhos

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
986 Visualizações
RSS
 cmbruno
(@cmbruno)
Posts: 0
New Member
Topic starter
 

Boa tarde,

Pessoal mais uma vez recorro a ajuda de vocês. A planilha em anexo contém um exemplo de planilha de Relatório que recebemos, no exemplo esta reduzida, mas normalmente são mais linhas pois existem muito mais filiais.

Preciso tirar os cabeçalhos do relatório,( pois os mesmos se repetem no inicio e no fim de cada pagina ) original que esta na aba report, e passar para outra aba ( no caso coloquei o nome de base limpa, mas pode ser alterado ), somente o relatório com um unico cabeçalho especifico.

No Exemplo na aba repor esta em amarelo o que preciso que seja o cabeçalho fixo e na aba base limpa as informações de como quero que fique. Desse relatório esta feito, porém a maioria dos relatórios são de 50, 60 páginas e fazer manual igual eu fiz para esse é tarefa pro dia todo.

Se alguem puder dar um help agradeço.

Relatório Teste.xls
 
Postado : 30/09/2014 3:30 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Use um gravador de macros, depois aperfeiçoe o processo.

O Código abaixo, não é tudo, mas resolve quase tudo da solicitação!

Sub AleVBA_13076()
Dim LR As Long
application.ScreenUpdating = 0
    ActiveSheet.Cells.UnMerge
    Rows("1:10").delete
    Range("A1:Y5000").Sort Key1:=Range("A1"), Header:=xlYes
    Columns.AutoFit
application.ScreenUpdating = 1
End Sub

Att

 
Postado : 30/09/2014 4:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico