[Anderson Parente]

Segue exemplo em anexo.

Já tentei alterar de rows para columns mas não da. Minha planilha tem do E1:AR1 valores igual a 0 ou maior que 0. Queria que se na range G1 fosse igual a 0, quando executasse a macro a coluna G ficasse oculta. Assim podendo acontecer nas outras colunas também. Haja visto que varia de convênio para o valor ser 0. Portanto, várias colunas terão valor de 0.

 

Obrigado

Attachments:

You must be logged in to view attached files.

[jorgerod]

Anderson,

Experimenta, adaptando:

Option Explicit

Sub Esconder()
Dim cl As Range, rTest As Range

Set rTest = Range(“A1”, Range(“A1”).End(xlToRight))
For Each cl In rTest
If Not cl.Value > 0 Then
cl.EntireColumn.Hidden = True
End If
Next cl
End Sub

———————–
Sub mostrar()
Columns(“A:I”).EntireColumn.Hidden = False ‘ Aqui está a coluna I como última coluna, mas pode ser a que se quiser
Range(“A1”).Select
End Sub

Fica bem e diz qq coisa, ok?

[Anderson Parente]

Boa noite jorge, obrigado pela resposta.

Mas não consegui adaptar. Haja visto que preciso que a condição avalie célula por célula e individualmente ocultar a coluna.

Segue modelo em anexo do que preciso. F1:X1 existe a condição que responde SIM (para quando a coluna correspondente pode ser oculta) e NÃO (quando não é para ocultar).

Portanto, elas puxam os valores da base ESTATISTICAS. Quando há valor do exame na coluna correspondente, ele não oculta (pois a condição estará NÃO). Quando o valor é igual a 0, ou seja, não teve o exame em nenhum paciente, ai a condição estaria SIM e assim ocultaria a coluna que está a condiçaõ SIM correspondente.

Attachments:

You must be logged in to view attached files.

[Anderson Parente]

Estou aprendendo vba. Busquei mais informações de como usar o IF, THEN e ELSE e consegui desenvolver um simples código;

 

If Range(“B2”) = 0 Then

Columns(“B”).EntireColumn.Hidden = True

Else

Columns(“B”).EntireColumn.Hidden = False

End If

 

If Range(“C2”) = 0 Then

Columns(“C”).EntireColumn.Hidden = True

Else

Columns(“C”).EntireColumn.Hidden = False

End If

 

obrigado!

[jorgerod]

Anderson,

Estive a tentar adaptar o meu código à tua planilha. Experimenta a planilha que te envio em anexo. Contém dois novos botões de comando: o primeiro, para colocar hidden as colunas que tenham a palavra “sim” na primeira célula; o segundo, é para voltar a mostrar todas as colunas novamente.

Diz qq coisa, ok?

Fica bem.

Attachments:

You must be logged in to view attached files.

[jorgerod]

Anderson,

Experimenta, adaptando:

Option Explicit

Sub Oval4_Clique() ‘ Este é o nome do botão criado para executar o código
Dim cl As Range, rTest As Range

Set rTest = Range(“F1”, Range(“F1”).End(xlToRight))

For Each cl In rTest
If Not cl.Value = “não” Then
cl.EntireColumn.Hidden = True
End If
Next cl
End Sub
Sub Triânguloisósceles6_Clique()  ‘ Este é o nome do botão criado para executar o código

Columns(“F:X”).EntireColumn.Hidden = False ‘ Aqui está a coluna X como última coluna, mas pode ser a que se quiser
Range(“A1”).Select
End Sub

[Autor]

Artigos