DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub SIFIR_OLAN_SATIRLARI_GİZLE()
Cells.EntireRow.Hidden = False
For X = 8 To [A65536].End(3).Row
If Cells(X, "G") = 0 Then Rows(X).EntireRow.Hidden = True
Next
End Sub
Sub SIFIR_OLAN_SÜTUNLARI_GİZLE()
Cells.EntireColumn.Hidden = False
For X = 1 To [IV13].End(1).Column
If Cells(13, X) <> "" And Cells(13, X) = 0 Then Columns(X).EntireColumn.Hidden = True
Next
End Sub