DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[FONT="Arial Narrow"]Sub Makro1()
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
ActiveSheet.Columns.Hidden = False
End Sub[/FONT]
Merhaba.
Ben de fikrimi söylemek istedim.
Aşağıdaki örnekte;
-- ilk kod satırı: sütunlarda gruplandırma uygulamışsanız bu gruplandırmayı sadece 1'inci seviyede görüntülemenizi sağlar.
-- ikinci kod satırı: gruplandırma olsun olmasın, görüntülenmeyen sütunların tümünü görünür kılar.
Neticede örnek üzerinden bakıp kod oluşturmak gerekiyor.
Kod:[FONT="Arial Narrow"]Sub Makro1() ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 [COLOR="Red"][B]ActiveSheet.Columns.Hidden = False[/B][/COLOR] End Sub[/FONT]