Toplam Değerlere Göre Sütunları Gizlemek

[Korhan Ayhan]

Merhaba Arkadaşlar,


Konuyla ilgili örnek dosyayı gönderiyorum.

Benim bu tabloda yapmak istediğim bir tuş yardımıyla toplam değerleri sıfır olan sütunları gizleyip sonra print almak. Daha sonra aynı tuş yardımı ile gizlenen sütunları tekrar görünür hale getimek.

Yardımlarınız için teşekkürler.

İyi çalışmalar...

 

[selections]

Sub göster()
For i = 2 To 32
    If Cells(20, i) = 0 Then
        Columns(i).Select
        Selection.EntireColumn.Hidden = False
    End If
Next i
Range("a1").Select
End Sub

Sub gizle()
For i = 2 To 32
    If Cells(20, i) = 0 Then
        Columns(i).Select
        Selection.EntireColumn.Hidden = True
    End If
Next i
Range("a1").Select
End Sub