Makro kodunun tüm sayfalarda çalışması

[xternet]

Merhaba arkadaşlar

Bir makro kodunun çalışma kitabının neredeyse tüm sayfalarında çalışmasını istiyorum. Kodu az önce bakşa bir konu başlığı altında netleştirmiştik.

Sub Sütun_Gizle()
Dim elm As Range
Application.ScreenUpdating = False
Columns.Hidden = False
For Each elm In [1:1]
If elm.Value = "G" Then elm.EntireColumn.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Sub Satır_Gizle()
Dim elm As Range
Application.ScreenUpdating = False
Rows.Hidden = False
For Each elm In [a:a]
If elm.Value = "g" Then elm.EntireRow.Hidden = True
Next
Application.ScreenUpdating = True
End Sub

Sub Satır_Ac()
Rows.Hidden = False
End Sub

Sub Sütun_Ac()
Columns.Hidden = False
End Sub

Kodlar bunlar. Ben bu kodları kitabın bir sayfasında bir butona atıycam ve çalıştırdığımda tüm sayfalarda işlem yapıcak. Mümkünse yardımlarınızı bekliyorum arkadaşlar.

İyi çalışmalar.

 

[Mahmut Kök]

Sayfa sayısı kadar döngü ile, sayfaları açar ve makroları çalıştırabilirsiniz.

For s = 1 To Worksheets.Count
Sheets(s).Select
[COLOR=red]Sütun_Gizle [/COLOR][COLOR=black]'Çalışmasını istediğiniz makroların isimlerini buraya yazın.[/COLOR]
[COLOR=red]...[/COLOR]
Next

 

[xternet]

Bu kod tam düşündüğüm gibi. İşimi görüyor. Ancak kodların bazı sayfalarda çalışmasını istiyorsam! Sayfalarım "SNF1, SNF2, SNF3, . . .,SNF18" şeklinde. İstediğim kodların bu sayfalarda çalışması için nasıl bir for-next döngüsü kurmalıyım.

İyi çalışmalar

 

[xternet]

Sub tüm_satır_sutun_gizle2222()

For s = 1 To 18
Sheets("SNF" & s).Select
Satır_Gizle
Sütun_Gizle
Next

End Sub

Şeklinde halletmeyi başardım. İlgilenen arkadaşlara teşekkürler.
İyi çalışmalar.