Seçili Sütünları Süzüp Göstermek

[akmes]

Üstadım kolay gelsin,Sayfada belirli sütünları göstermek için bir makro formülümüz varmıdır acaba.Tabi ben bunu birden fazla seçenek ile sayfada gerçekleştirmek istiyorum.örn b,c,d ve f,g,h ve j,k,l sütünlarının gözükmesini diğerlerinin gözükmemesi başka bir simge ile a ve e ve i nin gözükmesini sağlamak gibi

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[akmes]

üstadım bu örnek dosyanız benim istediğim değil çünkü benim istediğimde iki ayrı seçenek makcro olacak istediğim bölüm tıklayarak ön plana gelecek.örnk excel dosyamı ekte gönderiyorum bütçelen ve gerçekleşen bölümleri ayrı ayrı görmek istediğimizde bu makcroları kullanmakistiyoruz.Selamlar..

 

[Korhan Ayhan]

Selamlar,

Sn. akmes,

Amacınız seçtiğiniz sütunları gizlemek değil mi? Verdiğim örnek bu yönde işinize yaramıyor mu?

 

[akmes]

Hayır üstadım yaramıyor.Yukarıda da dediğim gibi çünkü benim istediğimd e iki ayrı seçenekli makcro olacak istediğim bölüm tıklayarak ön plana gelecek.örnk excel dosyamı ekte gönderiyorum bütçelen ve gerçekleşen bölümleri ayrı ayrı görmek istediğimizde bu makcroları kullanmakistiyoruz.Selamlar..

 

[Korhan Ayhan]

Selamlar,

Ekli dosyanıza göre nasıl bir gizleme işlemi yapmayı amaçlıyor sunuz?

 

[akmes]

Mesala 2 adet makcro yapıp birinciyi tıkladığızda G sütünuna kadar sabit kalıp Bütçelenenleri göstermesini istiyoruz;H,I,J,K + R,S,T,U + AB,AC,AD,AE sütünlarını göstermesini diğerlerinin gizlenmesi;ikinciyi tıkladığımızda yine g sütünuna kadar sabit kalıp Gerçekleşenleri göstermesini istiyoruz;M,N,O,P + W,X,Y,Z + AG,AH,AI,AJ sütünlarını gözükmesini diğerlerinin gizlenmesini.Üstadım umarım analatabilmişimdir.Selamlar..

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre aşağıdaki kodları butonlara tanımlayıp kullanabilirsiniz. Tablonuzun devamına aynı yapıda sütun eklerseniz kodlarda değişiklik yapmanıza gerek yoktur.

Option Explicit
 
Sub BÜTÇELER()
    Dim X As Byte
 
    Application.ScreenUpdating = False
 
    Cells.EntireColumn.Hidden = False
 
    For X = 13 To Cells(3, 256).End(1).Column + 4 Step 10
        Range(Cells(1, X), Cells(1, X + 4)).EntireColumn.Hidden = True
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Sub GERÇEKLEŞENLER()
    Dim X As Byte
 
    Application.ScreenUpdating = False
 
    Cells.EntireColumn.Hidden = False
 
    For X = 8 To Cells(3, 256).End(1).Column + 4 Step 10
        Range(Cells(1, X), Cells(1, X + 4)).EntireColumn.Hidden = True
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[akmes]

Üstadım eline koluna emeğine sağlık çok teşekkür ederim tam istediğim gibi olmuş.sağolun.