DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub BOŞ_HÜCRELERİ_GİZLE()
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
Rows([A65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub
Sub TÜMÜNÜ_GÖSTER()
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
End Sub
Sub SIFIR_OLAN_HÜCRELERİ_GİZLE()
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
For X = 1 To [A65536].End(3).Row
If Cells(X, 2) = 0 And Cells(X, 3) = 0 Then
Rows(X).EntireRow.Hidden = True
End If
Next
End Sub