Notifications
Clear all

Ocultar linhas com valor = ZERO

6 Posts
3 Usuários
0 Reactions
1,445 Visualizações
(@guilhermei)
Posts: 5
Active Member
Topic starter
 

Boa tarde.

Uma dúvida, tenho uma planilha de DRE e preciso ocultar onde o totalizador fica zerado. Tentei o código abaixo:

Sub Oculta()

Dim i As Integer
For i = 6 To 3000
If Range("O" & i).Value = 0 Then
Rows(i & ":" & i).Select
Selection.EntireRow.Hidden = True
Else
End If
Next i
End Sub

Porém ele oculta tbm as células vazias. Preciso que fique oculta somente o que tiver o valor 0.
Alguma dica ?

Valeu.

 
Postado : 07/01/2016 11:52 am
(@mprudencio)
Posts: 2749
Famed Member
 

If activecell.value = 0 Theo

Código de ocultar
Ele é
Activell.offset (1,0).select

End if

Coloque isso do for next

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 07/01/2016 12:25 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Ele é = ELSE o corretor corrigiu indevidamente

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 07/01/2016 12:27 pm
(@guilhermei)
Posts: 5
Active Member
Topic starter
 

Boa tarde, fiz conforme explicou, mas continua ocultando também as linhas em branco (preciso que oculte somente as que tiverem o valor 0). Ficou assim:

Sub Oculta()

Dim i As Integer
For i = 6 To 3000
Range("O" & i).Select

If ActiveCell.Value = 0 Then
Selection.EntireRow.Hidden = True
Else
ActiveCell.Offset(1, 0).Select
End If
Next i

End Sub

Mais Alguma sugestão?

 
Postado : 08/01/2016 9:28 am
(@edcronos2)
Posts: 346
Reputable Member
 

pode tentar assim

Sub ocultaZero()

    For l = 6 To Cells(Rows.Count, "o").End(xlUp).Row

        If Cells(l, "o").Value2 & " " = 0 & " " Then Rows(l).EntireRow.Hidden = True

 
    Next
End Sub

kkk a falta de atenção é uma droga
eu tive erro varias vezes eu não estava entendendo o pq
e era pq eu coloquei o 0 "zero" no lugar da letra "o"

 
Postado : 08/01/2016 11:17 am
(@guilhermei)
Posts: 5
Active Member
Topic starter
 

pode tentar assim

Sub ocultaZero()

    For l = 6 To Cells(Rows.Count, "o").End(xlUp).Row

        If Cells(l, "o").Value2 & " " = 0 & " " Then Rows(l).EntireRow.Hidden = True

 
    Next
End Sub

kkk a falta de atenção é uma droga
eu tive erro varias vezes eu não estava entendendo o pq
e era pq eu coloquei o 0 "zero" no lugar da letra "o"

Oi, consegui ! Era isso mesmo que eu precisava.
Havia conseguido com o seguinte ccódigo:
If ActiveCell.Value = "" Then
ActiveCell.Offset(1, 0).Select
ElseIf ActiveCell.Value = 0 Then
Selection.EntireRow.Hidden = True
Else
ActiveCell.Offset(1, 0).Select

End If
Next i

Mas era muito gambiarra, o teu ficou muito mais limpo.
Obrigado.

 
Postado : 08/01/2016 12:46 pm