Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
OCULTAR / EXIBIR LI...
 
Notifications
Clear all

OCULTAR / EXIBIR LINHA COM CONDIÇÃO

 
2024 - VBA & Macros
Post Recente por luizhcosta 10 anos atrás
5 Posts
4 Usuários
0 Reactions
1,271 Visualizações
RSS
 luizhcosta
(@luizhcosta)
Posts: 0
New Member
Topic starter
 

Bom dia,

Estou montando uma planilha que se autoformatará. Para isso, a formatação consiste em "ocultar" e "exibir" linhas de um intervalo.
São 2 planilha! Na primeira tenho uma base de dados onde são inseridos valores. Na segunda planilha faço uma totalização de acordo com critérios.
A questão é, quando totalizo determinada linha, esta pode ter um total zerado. Logo esta linha deve ser ocultada, mas se houver valor para esta linha em outro momento, ela que foi ocultada, deve ser exibida. Ou seja, é bem dinâmica.

A coluna onde faço a totalização é a AH, e o intervalo é AH10:AH200. Se nesse intervalo o total for ZERO, deve ocultar a linha. Já o restante das linhas que tiver valor deve ficar exibida normalmente. E se as linhas ocultar receber algum valor, devem ser reexibidas.

Agradeço a todos.

 
Postado : 12/12/2014 9:48 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Vc pode postar um exemplo da planilha?

 
Postado : 12/12/2014 10:27 am
 Reinaldo
(@rlm)
Posts: 0
New Member
 

Não enetendi corretamente, com um exemplo fica mais simples,
em todo caso vamos no eu "acho que"
Para ocultar ou mostrar se valor Zero (ou não)

Private Sub Worksheet_Calculate()
For Each cell In Range("AH10:AH200")
  If cell.Value = 0 Then 
     cell.EntireRow.Hidden = True
  Else
     cell.EntireRow.Hidden = False
  End If
Next
End Sub
 
Postado : 12/12/2014 10:50 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Luiz

Como a tua dúvida depende de VBA, movi teu tópico para VBA & Macros.

Por enquanto vou deixar o tópico sendo mostrado nos 2 locais.

[]s

Patropi - Moderador

 
Postado : 12/12/2014 2:04 pm
 luizhcosta
(@luizhcosta)
Posts: 0
New Member
Topic starter
 

Agradeço a todos que contribuiram.
Ainda que sem ter entendido completamente a minha dúvida, a sua solução acertou em cheio!

Obrigado.

 
Postado : 15/12/2014 7:10 am
Forum Jump:
  Tópico Anterior
Próximo Tópico