Notifications

Clear all

Ocultar Colunas

VBA & Macros

Post Recente por ddoc99 1 ano atrás

13 Posts

2 Usuários

0 Likes

992 Visualizações

RSS

ddoc99

(@ddoc99)

Posts: 10

Active Member

Topic starter

Prezados colegas de forum

Estou elaborando uma espécie de balancete e preciso que as colunas sem valores sejam ocultadas com base em um critério, sem a necessidade de botões ou formulários.

Portanto, minha questão é a seguinte:

Fiz uma lista de contas em linhas, e nas colunas (coluna mês e coluna % AH (análise horizontal, onde comparo um Mês com o outro) jan/23 | %AH). Em uma célula eu coloquei a fórmula hoje() formatada em mês/ano (mmm/aa) que é o mesmo título de campo da coluna mês. O que eu quero fazer é esconder as colunas que forem maior que hoje().

Exemplo: Hoje fev/23, então eu quero esconder de mar/23 até dez/23. Quando for mar/23 eu quero exibir jan/23 até mar/23 e manter oculto de abr/23 até dez/23, sucessivamente. Não sei VBA, estou no começo do aprendizado. Tentei fazer isso com macro, mas não deu certo por gravação.

Agradeço se puderem me ajudar.

Postado : 05/02/2023 8:14 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Bem vindo ao Planilhando, @ddoc99!

Anexa um arquivo Excel já com as coisas em seus devidos lugares que facilita pra quem quiser tentar lhe auxiliar, ok?

Postado : 05/02/2023 10:17 pm

ddoc99

(@ddoc99)

Posts: 10

Active Member

Topic starter

Encontrei este código na pesquisa, mas o infeliz dá erro 424. A planilha que estou setando é a planilha 8 (balancete). E na hora que eu vou executar, ele abre uma janela para criar macro. Como eu estou colocando que a célula AE3 tem a referência e a range de:aa3 estão os valores dos meses para comparar e daí ocultar as colunas, o código deveria rodar independente de macro.

telaexcel.PNG

Postado : 05/02/2023 10:25 pm

ddoc99

(@ddoc99)

Posts: 10

Active Member

Topic starter

Aí vai a planilha. Não está como na imagem pois criei um arquivo separado, pois o original está buscando dados no access.

Postado : 05/02/2023 10:30 pm

ddoc99

(@ddoc99)

Posts: 10

Active Member

Topic starter

Eu não consegui enviar a planilha. Parece que eu não tenho autorização para enviar xlsx.

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range
If Target.Address <= Range("AE3").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("d3:aa3")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub

Vou tentar com zip.

Postado : 05/02/2023 10:32 pm

ddoc99

(@ddoc99)

Posts: 10

Active Member

Topic starter

@edsonbr tentei encaminhar xlsx e zip, mas eu não tenho autorização. Só imagem mesmo. Obrigado pelo interesse.

Postado : 05/02/2023 10:33 pm

ddoc99

(@ddoc99)

Posts: 10

Active Member

Topic starter

Tela planilha 01

telaexcel01.PNG

Postado : 05/02/2023 10:36 pm

ddoc99

(@ddoc99)

Posts: 10

Active Member

Topic starter

Tela com variável

telaexcel02.PNG

Postado : 05/02/2023 10:38 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Postado por: @ddoc99

↑

Eu não consegui enviar a planilha. Parece que eu não tenho autorização para enviar xlsx.

O tamanho máximo do arquivo aqui no fórum é 2MB. Veja se seu arquivo não está excedendo essa qtd.

Postado : 05/02/2023 10:53 pm

ddoc99

(@ddoc99)

Posts: 10

Active Member

Topic starter

@edsonbr

telaexcel03.PNG

Postado : 05/02/2023 11:00 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

O arquivo está em seu PC ou na nuvem? Se na nuvem, procure colocá-lo antes em sua área de trabalho no PC, desbloqueie-o (propriedades, desbloquear) e tente anexar novamente.

Não há nada de errado com seu usuário pelo lado do fórum.

Postado : 05/02/2023 11:05 pm