Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Agrupar todos os ní...
 
Notifications
Clear all

Agrupar todos os nívels

 
2024 - VBA & Macros
Post Recente por Jorudess 7 anos atrás
5 Posts
2 Usuários
0 Reactions
1,375 Visualizações
RSS
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

Fala galera,

Eu tenho uma planilha com 5 níveis de agrupamento, todos feitos utilizando a ferramenta "agrupar" do excel, nada de macros. Porém, quando eu desagrupo até o nível 5 para acessar o conteúdo, tenho que, ao final, agrupar todos os níveis novamente para deixar a planilha organizada (ex: agrupar nivel 4, nivel 3, nivel 2 e por ultimo nível 1). Já que, se eu agrupar diretamente o nível 1, os níveis intermediarios (2, 3, 4 e 5) continuam "abertos/desagrupados".

Gostaria que, ao agrupar o nível 1, todos os níveis abaixo também sejam agrupados.

Existe alguma configuração do excel ou devo criar um botão para ocultar todas as linhas?

 
Postado : 06/03/2017 3:36 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu recomendo você trocar esse recurso (já que pretende usar VBA/Macro), pelo recurso ocultar e exibir linhas.

Veja:
https://cse.google.com.br/cse?cx=partne ... gsc.page=1
Att

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

 
Postado : 06/03/2017 4:09 pm
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

alexandrevba,

Minha planilha hoje tem quase 2 mil linhas com vários intervalos agrupados. Para substituir o recurso do excel por VBA eu terei que criar uma macro para cada intervalo?

Tem uma forma de fazer isso mais rápido?

Segue minha planilha em anexo para facilitar o entendimento.

 
Postado : 06/03/2017 5:32 pm
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

???

 
Postado : 10/03/2017 4:41 pm
 Jorudess
(@jorudess)
Posts: 53
Trusted Member
Topic starter
 

Tinha deixado esse assunto de lado, mas hoje fui pesquisar nos foruns em ingles e achei a solução...

vou deixar o link pra quem quiser ler tudo...
https://www.mrexcel.com/forum/excel-que ... lumns.html

E aqui a linha do codigo:

Sub Collapse_All()
ActiveSheet.Outline.ShowLevels RowLevels:=7
ActiveSheet.Outline.ShowLevels RowLevels:=6
ActiveSheet.Outline.ShowLevels RowLevels:=5
ActiveSheet.Outline.ShowLevels RowLevels:=4
ActiveSheet.Outline.ShowLevels RowLevels:=3
ActiveSheet.Outline.ShowLevels RowLevels:=2
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub
 
Postado : 08/08/2017 5:56 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico