Ocultar, Colunas, Codigo, Macro

[Otavio Siciliano]

Bom dia Galera,

 

Uma ajuda , pois nao tenho conhecimento nesta area.

 

Cenario: Folha de pagamento que tem meses onde algumas colunas estão zerada, exemplo Contribuiçao Sindical, Decimo Terceiro, Horas extras Noturnas  etc.

 

Na necessidade de imprimir não cabem todas as colunas no modelo A4.

 

Gostaria de criar atraves de codigo ou macro uma opção que verificasse na linha 22 onde estão os totais, e para aquelas colunas que o total esta "0,00", a coluna fosse ocultada.

 

Obrigado

 

[Patropi]

Bom dia Otavio

 

Já excluí a mensagem que você havia postado em outro tópico.

Sempre crie um novo tópico, não poste em tópicos dos outros.

 

Quanto a tua dúvida, para facilitar, anexe um exemplo da tua planilha, demonstrando o resultado esperado.

 

[]s

 

Patropi - Moderador

[Otavio Siciliano]

Patropi,

 

OK obrigado pela orientação. Estou tentando o codigo abaixo como exemplo, mas não esta funcionando. Na realidade gostaria que verificasse a linha 22 com os totais e fosse valido para todas as colunas existentes.

 

Sub HideColumn1()
If Range("E22,F22,G22,H22,I22").Value = 0 Then
Columns("H").EntireColumn.Hidden = True
End If
End Sub

 

Na planilha na aba do mes de março criei 2 botões para executar as macros.  Para Ocultar e re-exibir as colunas apagadas. Muito obrigado