Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ocultar Colunas
 
Notifications
Clear all

Ocultar Colunas

 
2024 - VBA & Macros
Post Recente por ddoc99 2 anos atrás
13 Posts
2 Usuários
0 Reactions
1,258 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
(@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.

 
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

 
Postado : 05/02/2023 10:36 pm
 ddoc99
(@ddoc99)
Posts: 10
Active Member
Topic starter
 

Tela com variável

 
Postado : 05/02/2023 10:38 pm
EdsonBR
 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

 
Postado : 05/02/2023 11:00 pm
EdsonBR
 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
 ddoc99
(@ddoc99)
Posts: 10
Active Member
Topic starter
 

Tentando de novo conforme instruções.

 
Postado : 06/02/2023 7:08 pm
 ddoc99
(@ddoc99)
Posts: 10
Active Member
Topic starter
 

Deu certo

 
Postado : 06/02/2023 7:09 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico