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,087 Visualizações

RSS

Remilton

(@remilton)

Posts: 9

Active 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: 971

Prominent 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