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
996 Visualizações
RSS
 cmbruno
(@cmbruno)
Posts: 73
Estimable 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
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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