satır gizleme

[irfem4]

selamün aleyküm. ekteki dosyada sutün sonucuna göre satır gizlenmesi gereken bir dosya ekledim. şimdiden yardımlarınız için teşekkürler

 

[veyselemre]

Sub test()
    Dim huc As Range, say%
    With Range("AM8:AM58")
        .EntireRow.Hidden = False
        .Offset(, -38).ClearContents
        For Each huc In .Cells
            If huc.Value > 0 Then
                say = say + 1
                Cells(huc.Row, "A").Value = say
            Else
                huc.EntireRow.Hidden = True
            End If
        Next
    End With
End Sub

 

[irfem4]

Sub test()
    Dim huc As Range, say%
    With Range("AM8:AM58")
        .EntireRow.Hidden = False
        .Offset(, -38).ClearContents
        For Each huc In .Cells
            If huc.Value > 0 Then
                say = say + 1
                Cells(huc.Row, "A").Value = say
            Else
                huc.EntireRow.Hidden = True
            End If
        Next
    End With
End Sub

emeğinize ve bilginize sağlık teşekkur ederim.