Çözüldü Excelde İstenen Sütunları Gizleme

[mustafa1205]

Ek'te bulunan örnek dosyamda açıklama yapmaya çalıştım. Birinci satırda bulunan numaralar var. İçlerinde sadece 1 rakamı olanlar hariç diğerlerini-içlerinde sayı olanlar (boş olanlar hariç) gizlemek istiyorum. Umarım anlatabilmişimdir. Çok teşekkür ederim şimdiden..

 

[veyselemre]

Sub sutunGizle()
    Dim rng As Range, col As Range, cell As Range
    Set rng = Rows(1).SpecialCells(xlCellTypeConstants)
    Set col = Range("A2")
    rng.EntireColumn.Hidden = False
    For Each cell In rng
        If cell.Value <> 1 Then Set col = Union(cell, col)
    Next
    Set col = Intersect(Rows(1), col)
    If Not col Is Nothing Then col.EntireColumn.Hidden = True
End Sub

 

[mustafa1205]

Veysel Hocam çok teşekkür ederim. Emeğinize sağlık...

 

[mustafa1205]

Sub sutunGizle()
    Dim rng As Range, col As Range, cell As Range
    Set rng = Rows(1).SpecialCells(xlCellTypeConstants)
    Set col = Range("A2")
    rng.EntireColumn.Hidden = False
    For Each cell In rng
        If cell.Value <> 1 Then Set col = Union(cell, col)
    Next
    Set col = Intersect(Rows(1), col)
    If Not col Is Nothing Then col.EntireColumn.Hidden = True
End Sub

Veysel Hocam

Kodları tüm sayfada değil de sadece P ile AM sütunları arası uygulamak istersek nasıl bir düzenleme yapmalıyız acaba?

 

[mustafa1205]

Sorun Çözüldü Hocam. Çok teşekkürler