Bom dia!!

Veja a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... .q=ocultar

Att

jhoben,

Bom dia!

Veja se é assim.

]Grande Wagner Morel, bom dia!

Desde ja agradeço sua atenção e seu arquivo.

Para ilustrar melhor, segue arquivo que bolei, porem quando clico no botao + ( ele desagrupa da coluna AD ate BD), mas nao quero que apareça as colunas que identifiquei com a cor preta

Eu só consigo desagrupor tudo ( AD ate BD), porém nao queria que fosse Exibido as colunas (AD, AF, AH,AJ,AL,AN,AP,AR,AT,AU,AW,AY,AZ,BD)

Para o botão agrupar, eu acertei rsrsrsr

Obrigado amigo!
Jhoben

Bom dia! alexandrevba

Mas não localizei com intervalo, olhei nas 10 paginas.

Obrigado.

Baixei sua planilha... mas confesso que ou não estou fazendo corretamente ou não entendi! Não acontece nada quando clico nesse botões.

eu não baixei sua planilha mas para intervalos vc pode fazer assim

para ocultar varias colunas
Range("L:L,P:P,S:S,V:V").EntireColumn.Hidden = True

Range("AD:AD,AF:AF,AH:AH,AJ:AJ,AL:AL,AN:AN,AP:AP,AR:AR,AT:AT,AU:AU,AW:AW,AY:AY,AZ:AZ,BD:BD").EntireColumn.Hidden = True

para mostrar
Range("L:L,P:P,S:S,V:V").EntireColumn.Hidden = False

Comando que hj esta funcionando mas ocultando todas as colunas, (AD ate BD) e reexibir tb.

mas quero que não aparece as colunas (("AD:AD,AF:AF,AH:AH,AJ:AJ,AL:AL,AN:AN,AP:AP,AR:AR,AT:AT,AU:AU,AW:AW,AY:AY,AZ:AZ,BD:BD") quando abertar o botao +, o restante das colunas nesse range, deverá ser reexibida.

Sub REEXIBIR1()
'
' REEXIBIR1 Macro

'
Columns("AD:BD").Select
Range("BD1").Activate
Selection.EntireColumn.Hidden = True
Range("B1:E3").Select
End Sub
Sub OCULTAR1()
'
' OCULTAR1 Macro
'

'
Columns("AC:BE").Select
Selection.EntireColumn.Hidden = False
Range("B1:E3").Select
End Sub

enta assim

Sub REEXIBIR1()
Columns("AD:BD").EntireColumn.Hidden = false
range("AD:AD,AF:AF,AH:AH,AJ:AJ,AL:AL,AN:AN,AP:AP,AR:AR,AT:AT,AU:AU,AW:AW,AY:AY,AZ:AZ,BD:BD").EntireColumn.Hidden = True
end sub

Ok, Entendi.

Fiz diversos testes aqui, inclusive com o arquivo que eu havia lhe enviado. Se você observar atentamente verá que no arquivo que lhe enviei está funcionando perfeitamente normal.

Entretanto, seu arquivo tem a facilidade de agrupamento de linhas e, creio que o Excel (e isso inclui o VBA) não aceita esconder colunas com linhas agrupadas. No meu arquivo, dá certo porque não tem linhas agrupadas.

Assim, temos dois caminhos:

1 - Aguardar que alguém com mais conhecimento nos ajude
2 - Retirar as linhas agrupadas do seu arquivo.

wagner eu não entendi
eu baixei o arquivo dele e testei e funcionou
ou eu que não estou entendendo
pelo menos as colunas em preto que ele colocou ficaram ocultas

eu usei esses condigos

Sub mostrar()
Columns("AD:BD").EntireColumn.Hidden = False
Range("AD:AD,AF:AF,AH:AH,AJ:AJ,AL:AL,AN:AN,AP:AP,AR:AR,AT:AT,AU:AU,AW:AW,AY:AY,AZ:AZ,BB:BB,BD:BD").EntireColumn.Hidden = True
End Sub

Sub mostrar_tudo()
Columns("AD:BD").EntireColumn.Hidden = False
End Sub

Sub esconder_tudo()
Columns("AD:BD").EntireColumn.Hidden = True
End Sub

Edcronos e Wagner,

Obrigado pelo retorno, vou testar e aviso.

Tenham um otimo final de semana, amigos.!

Abs
Jhoben

Edcronos,

Boa Tarde!

Parabéns. Você tem toda razão! Testei aqui também e agora deu certo.

Descobri qual era o problema com o meu código que não dava certo no arquivo dele: eu estava utilizando SELECT e depois o SELECTION. Nesse caso o VBA se perde:

    Range("AD:AD,AF:AF,AH:AH,AJ:AJ,AL:AL,AN:AN,AP:AP,AR:AR,AT:AT,AU:AU,AW:AW,AY:AY,BD:BD").Select
    Selection.EntireColumn.Hidden = True

Wagner Morel

RETIREI A mescla que havia nos meses e funcionou.

Muito obrigado!!!
abs

Edcronos

Seu codigo tb funcionou e nao precisei tirar as linhas mescladas.

Esse FORUm é demais.. enquanto outros sites que postei, nem acessaram, aqui interação 100%.

vcs estão de parabéns!!! sucesso pra vc!

abs