DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Sub GİZLE()
Application.ScreenUpdating = False
With Cells
.EntireColumn.Hidden = False
.EntireRow.Hidden = False
End With
Range("AB1:" & Cells(1, Columns.Count).Address(0, 0)).EntireColumn.Hidden = True
Range("A31:A" & Rows.Count).EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub
Sub GÖSTER()
Application.ScreenUpdating = False
With Cells
.EntireColumn.Hidden = False
.EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub