Este fórum está sendo desativado

[hidro1]

Boa tarde amigos!
Gostaria de um código vba para anexar à dois botões. Um para exibir coluna e outro para ocultar.
Depois de algumas pesquisas, só acho códigos que escondem um grupo de colunas. Porém, o que preciso é de um código que ao clicar no botão, sempre exiba/oculte a próxima coluna.
Para tentar ser mais claro, será como se estivesse sempre indo com o botão direito e clicando em re-exibir/ocultar!


valeu galera!!! Abraços!

[osvaldomp]

Experimente. O código abaixo utiliza um único botão ou para ocultar ou para reexibir a coluna à direita do botão clicado.

Código: Selecionar todos

Sub OcultaReexibeColuna()
 Dim col As Long
  col = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Column
  Columns(col + 1).Hidden = Columns(col + 1).Hidden = False
End Sub

[hidro1]

Experimente. O código abaixo utiliza um único botão ou para ocultar ou para reexibir a coluna à direita do botão clicado.

Código: Selecionar todos

Sub OcultaReexibeColuna()
 Dim col As Long
  col = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Column
  Columns(col + 1).Hidden = Columns(col + 1).Hidden = False
End Sub

Testei o código e tá dando esse erro : http://i.prntscr.com/Osh8Z3SATRqJOXwLCLFvXA.jpeg
(mandei o link pq n to conseguindo upar a imagem )

Reforçando: Estou pensando num código que ao clicar no botão sempre feche a proxima coluna e outro que volte. Por exemplo, que comece na fileira F a recolher: ao clicar, oculte a G, ao clicar novamente oculte a H, ao clicar novamente I... e assim por diante. E, um botão que faça o trabalho inverso!

Valeu povoo!!!

[osvaldomp]

Por exemplo, que comece na fileira F a recolher: ao clicar, oculte a G, ao clicar novamente oculte a H, ao clicar novamente I... e assim por diante.
O botão para a macro "ocultar" e o botão para a macro "reexibir" estarão sempre na coluna F ?

E, um botão que faça o trabalho inverso!
Você quer reexibir a cada clique a última coluna oculta à direita da coluna F, é isso?

Valeu povoo!!! ~~~>

sugestão - para responder clique em +Resposta localizado abaixo da última postagem, só clique em Responder com citação se necessário

[gfranco]

Bom dia.
Veja se o que fiz te ajuda.