Açılışta istediğim Sayfaların DışındakileriGizle

[Sa.NaL]

Merhaba arkadaşlarlar auto openin içine ne yazmalıyım ki "KILAVUZ" isimli ve "kyp" isimli sayfalarımın dışındaki tüm sayfaları açılışta gizlesin.Yardımcı olursanız sevinirim.İyi çalışmalar.

 

[İhsan Tank]

Merhaba arkadaşlarlar auto openin içine ne yazmalıyım ki "KILAVUZ" isimli ve "kyp" isimli sayfalarımın dışındaki tüm sayfaları açılışta gizlesin.Yardımcı olursanız sevinirim.İyi çalışmalar.

merhaba eki incelermisin
Kod Bölümünde Bulunan Thisworkbook Sayfasında Kodlar Mevcut.

 

[Sa.NaL]

İhsan Bey ilginiz için teşekkür ederim ama istediğim bu değil bunda sayfa 2 ve sayfa 3 visible yapmışsınız böyle 100lerce sayfayı tek tek visible yapmam uzun olur bana öyle kod lazımki tek satır sayfa1 in dışındakisayfaları gizle komutu gibi örneğin.

 

[İhsan Tank]

İhsan Bey ilginiz için teşekkür ederim ama istediğim bu değil bunda sayfa 2 ve sayfa 3 visible yapmışsınız böyle 100lerce sayfayı tek tek visible yapmam uzun olur bana öyle kod lazımki tek satır sayfa1 in dışındakisayfaları gizle komutu gibi örneğin.

bu eki inceler misiniz
bakalım istediğinizi karşılıyor mu_?

 

[usubaykan]

Merhaba;

Alternatif olarak aşağıdaki kodu dener misiniz?

Option Explicit

Sub İsteğe_Bağlı_Sayfa_Gizle()
Dim Sayfa_İsmi, Sayfalar As Worksheet
Sayfa_İsmi = Application.InputBox("Gizlemek istediğiniz sayfa ismini yazın", "Sn. " & Application.UserName)
    
    For Each Sayfalar In ThisWorkbook.Worksheets
        Sayfalar.Visible = True
    Next
    
    For Each Sayfalar In ThisWorkbook.Worksheets
    On Error GoTo Hata
        If Sayfalar.Name <> Sayfa_İsmi Then
        Sayfalar.Visible = False
        End If
    Next
MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & "İsteğiniz üzerine " & Sayfa_İsmi & " adlı sayfanız dışındaki tüm sayfalar gizlenmiştir.", vbInformation, "Sn. " & Application.UserName
Hata: MsgBox "Sayfa ismini kontrol ediniz.", vbCritical
End Sub

Not: Sayfa isimlerinizi bire bir aynı olması gerekli

 

[Sa.NaL]

Elinize Sağlık Arkadaşlar halloldu.

 

[İhsan Tank]

Elinize Sağlık Arkadaşlar halloldu.

rica ederim
iyi çalışmalar :mutlu: