Botão Ocultar/Exibir Colunas

[Nivaldo Aguiar]

Boa noite a todos,

Tenho em um botão o código abaixo para ocultar determinadas colunas:

Sub MacroOcultar()

l = 7

For c = Range("R" & l).End(xlToRight).Column To Range("C" & l).Column Step -1

If Cells(l, c) = "" Then

Columns©.Hidden = True

End If

Next c

End Sub

Teria como exibir novamente as colunas clicando em outro botão???

Nivaldo Aguiar

Edited September 6, 2011 by Nivaldo Aguiar

[Patropi]

Boa noite Nivaldo

Seja bem vindo ao fórum!

Com esta Macro você pode Ocultar e Reexibir a coluna C nomesmo botão.

É só você adaptar para a coluna que você quiser.

Para ocultar você usa:

Sub ocultarexibir()
If Columns("C").EntireColumn.Hidden = True Then
Columns("C").EntireColumn.Hidden = False
Else
If Columns("C").EntireColumn.Hidden = False Then
Columns("C").EntireColumn.Hidden = True
End If
End If
End Sub

Dê retorno.

Um abraço

Edited September 8, 2011 by Patropi

[rodrigo.dias]

Bom dia Patropi, preciso fazer o mesmo, só que invez de colunas seria com algumas linhas (7,8 e 9). Eu quero fazer algo assim: clicando em uma celula ocultaria uma quantidade x de linhas e clicando novamente na mesma celula as linhas que foram ocultas se re-exibirião.

[Nivaldo Aguiar]

Boa noite Patropi,

Primeiramente obrigado pelas boas vindas e principalmente por sua ajuda.

Sua resposta funcionou feito uma luva.

Espero um dia poder contribuir também.

Muito obrigado.

Nivaldo Aguiar

Fortaleza/Ce

[Patropi]

Bom dia Rodrigo

Se sempre forem as mesmas linhas você poderá usar a ferramenta agrupar linhas.

Abaixo um exemplo com as linhas 7, 8 e 9 que você citou.

http://www.sendspace.com/file/w3ccbr

Para agrupar é só clicar no sinal de menos (-) e para desagrupar no sinal de mais (+).

Aguardo retorno.

Um abraço.