satır gizleme

[kutman]

şekilde görüldüğü gibi ben tüm hesaplarımı yaptoktan sonra
L SUTUNUNDA "0" OLAN (BOŞ OLAN DEĞİL) SATIRLAR GİZLENSİN BU MAKRO KODUNUDA BUTONLARA ATAYACAĞIM VE KAPALI OLANLARIDA GERİ AÇMAK İÇİN BİR BUTON YARDIM LÜTFEN....

 

[zafer]

Merhaba

Böyle sorularda resim yerine sadece ilgili sayfayı kaydedip ekleyiniz .
Aşağıdaki kodları kullanınız

Sub gizlesat1()
say = Cells(65536, 12).End(xlUp).Row
For i = 1 To say
If Not IsEmpty(Cells(i, "L")) Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub
Sub ac_sat1()
    Cells.Select
    Selection.EntireRow.Hidden = False
    End Sub

 

[kutman]

EKLEDİM DOSYAYI VERDİĞİNİZ KODUDA UYGULATIM HEPSİNİ GİZLİYO" 0" OLANI VE BO OLANIDA http://www.excel.web.tr/attachment.php?attachmentid=129389&stc=1&d=1332942521

 

[zafer]

Merhaba

Sub gizlesat1()
say = Cells(Rows.Count, "L").End(3).Row
For i = 1 To say
If Not IsEmpty(Cells(i, "L")) And Cells(i, "L") = 0 Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub