Desocultar celdas

[sr.marco]

Hola, tengo un excel donde voy ingresando datos y automaticamente me ordena y me oculta las filas si el valor de la columna b=0, el problema que tengo es que no las desoculta cuando el valor es igual o mayor a 1. 

El código que tengo es el siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("c7").Value = "4 FRUTAS ES" Then
Rows("28").EntireRow.Hidden = False ' Si pone None desoculta
Else

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

Copia de Septiembre 2016 (2).xls

[sr.marco]

Perdón el codigo es el siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
 Dim c As Variant
 Application.ScreenUpdating = False
 With Worksheets("agosto")
 Set rng = Range(.Cells(1, "b"), .Cells(Rows.Count, "b").End(xlUp))
 End With
 For Each c In rng
 If c = "0" Then
 c.EntireRow.Hidden = True
 End If
 Next
 Application.ScreenUpdating = False
 End Sub
 

[Enigma25]

Hola

 

Tal vez a tu código le falte estas lineas :

 ElseIf c > 0 Then
    c.EntireRow.Hidden = False

Prueba y comentas.

 

Saludos.