Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ocultar linhas caso...
 
Notifications
Clear all

Ocultar linhas caso haja linhas com zero dentro de um interv

 
2024 - VBA & Macros
Post Recente por Remilton 7 anos atrás
3 Posts
2 Usuários
0 Reactions
1,070 Visualizações
RSS
 Remilton
(@remilton)
Posts: 0
New Member
Topic starter
 

Olá, gostaria de pedir ajuda em uma dúvida,

como faço para ocultar uma(ou mais de uma) linha se na coluna B tiver alguma linha com zero?

Estou utilizando de B17 a B250.

Achei a solução para uma linha especifica:

If Range("B17").Value = "0" Then

Rows("17").EntireRow.Hidden = True

End If

Porém, vai ficar muito grande o código pra 200 linhas, fazendo de uma por uma.

Alguém pode me ajudar?

 
Postado : 03/04/2018 11:33 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

Quando enviar código, aperte o botão Code.

SUB TESTE()
DIM LINHA AS LONG
 FOR LINHA =1 TO SHEETS("PLAN1").USEDRANGE.ROWS.COUNT
If  SHEETS("PLAN1").Range("B" & LINHA).Value = "0" Then

 SHEETS("PLAN1").Range("B" & LINHA).EntireRow.Hidden = True

End If

NEXT LINHA
END SUB

OU:

SUB TESTE()
DIM LINHA AS LONG
 FOR LINHA =1 TO 250
If  SHEETS("PLAN1").Range("B" & LINHA).Value = "0" Then

 SHEETS("PLAN1").Range("B" & LINHA).EntireRow.Hidden = True

End If

NEXT LINHA
END SUB

ou:

SUB TESTE()
DIM LINHA AS LONG
 FOR LINHA =17 TO 250
If  SHEETS("PLAN1").Range("B" & LINHA).Value = "0" Then

 SHEETS("PLAN1").Range("B" & LINHA).EntireRow.Hidden = True

End If

NEXT LINHA
END SUB

ou:

SUB TESTE()
DIM LINHA AS LONG
 FOR LINHA =17 TO SHEETS("PLAN1").USEDRANGE.ROWS.COUNT
If  SHEETS("PLAN1").Range("B" & LINHA).Value = "0" Then

 SHEETS("PLAN1").Range("B" & LINHA).EntireRow.Hidden = True

End If

NEXT LINHA
END SUB
 
Postado : 03/04/2018 11:38 am
 Remilton
(@remilton)
Posts: 0
New Member
Topic starter
 

Obrigado, ajudou muito!!

 
Postado : 03/04/2018 11:42 am
Forum Jump:
  Tópico Anterior
Próximo Tópico