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

  • Pergunta

  • 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.

    terça-feira, 16 de julho de 2019 20:50

Todas as Respostas

  • 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

    terça-feira, 16 de julho de 2019 20:56
  • você é fera mesmo
    terça-feira, 16 de julho de 2019 20:59
  • 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.

    terça-feira, 16 de julho de 2019 21:16
  • 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.

     
    terça-feira, 16 de julho de 2019 21:20
  • 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

    terça-feira, 16 de julho de 2019 21:27
  • 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

    terça-feira, 16 de julho de 2019 23:21