VBA Excel para Ocultar Colunas com cabeçários porém sem valores

Question

VBA Excel para Ocultar Colunas com cabeçários porém sem valores.

estou com uma gigantesca planilha com colunas na linha 1 nomeadas com diversos nomes de frutas. preciso imprimir somente as colunas onde exista produtos com quantidades nas devidas linhas abaixo da coluna e ocultar as demais.

alguém poderia me ajudar de uma forma em vba para que eu apenas executasse e resolvesse o problema.

Answer 1

Tente assim:

  Dim coluna As Range
  For Each coluna In Range("A1:Z1").Columns
      coluna.EntireColumn.Hidden = Not Application.WorksheetFunction.Sum(coluna.EntireColumn) > 0
  Next

---

Natan

Answer 2

você é fera mesmo

Answer 3

quero algo parecido mas que respeite o filtro que eu fizer na coluna A.

por ex: na coluna A tenho varios nomes. Mas quando filtro pela A e executo esse comando as colunas não ocultam pk tem valores nas colunas com nomes de outras pessoas entende. condicionar o ocultar colunas penas linhas filtradas na coluna A.

Answer 4

nomes	abacaxi	banana	melao	abobora	macaxeira
lucas	1
lucas	1	2
ana	1	2	2	2
ana	1	2	2	2

Essa é minha planilha, quando filtro o Lucas as colunas abobora e macaxeira não ocultam pk tem valores para a ana.

 

Answer 5

nomes	abacaxi	banana	melao	abobora	macaxeira
lucas	1
lucas	1	2
ana	1	2	2	2
ana	1	2	2	2

Essa é minha planilha, quando filtro o Lucas as colunas abobora e macaxeira não ocultam pk tem valores para a ana.

vou imprimir e preciso ocultar essas colunas sem valores

Answer 6

só mudar a função:

  Dim coluna As Range
  For Each coluna In Range("B1:Z1").Columns
      coluna.EntireColumn.Hidden = Not Application.WorksheetFunction.Subtotal(9, coluna.EntireColumn) > 0
  Next

---

Natan