sıfır değerli satırları tek tuş ile gizleme

[tahomatr]

F sütununda değerler var. otomatik olarak bu verilerden bazıları "0" olunca o verinin bulunduğu satır gizlensin istiyorum.

Bu konuda yardımcı olursanız sevinirim.

saygılarımla

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sgizle()
Application.ScreenUpdating = False
For sat = 3 To Cells(65536, "f").End(xlUp).Row
    If Cells(sat, "f") = 0 Then
        Cells(sat, "f").EntireRow.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

Sub sgoster()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

 

[tahomatr]

hocam çok teşekkür ederim.

kod cuk diye oturdu.

ellerine ve emeğine sağlık