sifir degeri olan cizelgeyi yok etme

[boss2090]

merhabalar

ben bir cizelge yaptim. cizelgede sifir degerleri var ise oralarin kaybolmasini istiyorum. bu konuda bir arkadas yardimci olursa sevinirim.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Integer
Dim sut As Byte
Cells.EntireRow.Hidden = False
    For sat = 8 To Cells(Rows.Count, "c").End(xlUp).Row
    For sut = 3 To 9
        If Cells(sat, sut) = "0" Then
            Cells(sat, "c").EntireRow.Hidden = True
        End If
    Next
    Next
End Sub