Belli sütünların toplu olarak gruplanması hk.

[hakanaslan78]

Merhaba arkadaşlar,

Yardımlarınız için şimdiden çok teşekkür ederim. Excel çalışma dosyamda 20 adet sayfa sekmesi bulunmakta. Benim yapmak istediğim, makro yöntemiyle daha önce gruplamış olduğum L ve Q sütun aralağını kapatmak ve istediğim zaman açmak. Bu tarz bir kod yazıla bilirmi. Bu işlemi yapmak istediğim sayfaların islimlerini başka bir sayfada tutarsam eğer, sonrasında ekleyeceğim sayfaları dinamik olarak kullana bilirim. Örnek dosyayı ekliyorum.

Saygılarımla,

Hakan ASLAN

 

[veyselemre]

Sub grupAc()
    grupLevelAyarla (2)
End Sub
Sub grupKapat()
    grupLevelAyarla (1)
End Sub
Sub grupLevelAyarla(level)
    Dim sH
    For Each sH In Sheets(Array("A", "B", "C", "D"))
        sH.Outline.ShowLevels columnLevels:=level
    Next sH
End Sub

 

[hakanaslan78]

Sub grupAc()
    grupLevelAyarla (2)
End Sub
Sub grupKapat()
    grupLevelAyarla (1)
End Sub
Sub grupLevelAyarla(level)
    Dim sH
    For Each sH In Sheets(Array("A", "B", "C", "D"))
        sH.Outline.ShowLevels columnLevels:=level
    Next sH
End Sub

Merhaba Veysel Emre bey,

Öncelikle yardımlarınız için çok teşekkür ederim. Sizden bir ricam daha olacak. İşlemleri yapmak istediğim sayfaların bilgilerini bir tablodan alarak bu işlemleri yapmamız mümkünmü ve hangi sütünların açılıp kapatılacağını belirliye bilirmiyiz.

Saygılarımla,

Hakan ASLAN