makro ile aynı anda birden fazla sayfada aynı işlemi yapmak

[kalibre101]

SY1,SY2,.......SY31 ADINDA 31 SAYFA VAR BEN MAKRO İLE BU SAYFALARDAKİ BELİRLİ STUNLARI GİZLEMEK İSTİYORUM TÜMSAYFALARI SEÇMEME RAGMEN SADECE TEK SAYFADA İŞLEM YAPIYOR YARDIMCI OLABİLİRMİSİNİZ?

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Sub sütungizlegöster()
For h = 1 To Sheets.Count
Sheets(h).[b1,c1].EntireColumn.Hidden _
= Sheets(h).[b1,c1].EntireColumn.Hidden = 0
Next
End Sub

 

[kalibre101]

İLGİNİZ İÇİN TEŞEKKÜR EDERİM FAKAT BU KOD TÜM SAYFALARDAKİ SUTUNLARI GİZLİYOR BANA SADECE 1,2,3.....31 İSİMLİ SAYFALARDA İŞLEM YAPMASI LAZIM AYIN HER GÜNÜ İÇİN 1 SAYFA TOPLAM 31 SAYFA DİĞER SAYFALARDA DEĞİŞİKLİK OLMAMASI GEREKİYOR YARDIMCI OLABİLİRSENİZ MEMNUN OLURUM

 

[Korhan Ayhan]

Klavyenizde sorun mu var?

Lütfen forum kurallarını okuyunuz.

 

[Seyit Tiken]

Söylemeyi unuttum, tüm yazıyı büyük harfle yazmak, hem okumayı güçleştiriyor, hemde görünüm olarak ta şık durmuyor.
Bu şekilde deneyiniz.

Sub sütungizlegöster()
For h = 1 To 30
Sheets(h).[b1,c1].EntireColumn.Hidden _
= Sheets(h).[b1,c1].EntireColumn.Hidden = 0
Next
End Sub