gizlenen sayfa sekmeleriyle ilgili

[modoste]

Merhaba sayın hocalarım
sorum şu sayfa sekmelerini tek tek yada çoklu biçimde CTRL ile seçip gizleyebiliyoruz
peki gizlenmiş haldeki sayfa sekmelerini göster komutu var fakat her defasında bir sekme geri getirilebiliyo galiba gizlenenlerin hepsini birden nasıl göster yapabilirim

 

[Ömer]

Merhaba,

Sub Göster()
    Dim Sayfa As Worksheet
       For Each Sayfa In Sheets
        Sayfa.Visible = True
       Next
End Sub

Kodu çalıştırınız..

.

 

[modoste]

Sayın Ömer Hocam
teşekkür ederim birşey eklemek istiyorum
ben bu işlemi bir sefer yapmayacam ama aynı dosyamda defalarca bazılarını gizliyorum tekrar açıyorum.
buna da çözüm olcak mı bu kod
yada şöylede olabiliyomu gizli sekmelerden belirlediklerime çentik atıp onları göstermek gibi??

 

[Ömer]

Çentikten kastınız nedir?

Sub Göster()
    Dim Sayfa As Worksheet
    For Each Sayfa In Sheets
       If Sayfa.Range("A1") = "X" Then
          Sayfa.Visible = True
        End If
    Next
End Sub

Bu kod ile Sayfalarda A1 hücresine X koyduğunuz sayfaları gösterir.

.

 

[modoste]

Yarın kod çalıştırma ve uygulama ile ilgili eski sizden gönderilenlere bakmam lazım
hep formüllere konsantre olduğumdan Kod olan şeyleri nasıl çalıştırcam uygulayacam unutuyorum
eğer bulamazsam hocam yine sorarım
çok teşekkür ederim. bu saatte yardımcı oldunuz.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki dosyayı incelermisiniz. Yardım menüsünün yanına yeni bir menü eklenmiştir. İsterseniz dosyayı eklenti olarak kaydedip tüm excel dosyalarınızda kullanabilirsiniz.

 

[Sirius_59]

teşekkür ederim

 

[memoli79]

Selamlar,

Alternatif olarak ekteki dosyayı incelermisiniz. Yardım menüsünün yanına yeni bir menü eklenmiştir. İsterseniz dosyayı eklenti olarak kaydedip tüm excel dosyalarınızda kullanabilirsiniz.

Sn. Korhan Ayhan çok işe yarar bir eklenti ancak bunu eklenti olarak nasıl kaydedeceğiz?


Sorunu hallettim benim gibi bilmeyenler içinde açıklayayım:
Sn Korhan Ayhan'ın mesajındaki Gizli Dosyalar.xls dosyasını indirip açın.
Farklı Kaydete basıp Gizli Sayfalar.xla olarak kaydedip kapatın.
Kullandığınız bir excel sayfasını açıp Araçlar-> Eklentileri açın orada zaten Gizli sayfalar diye göreceksiniz yanına işareti koyup Tamam deyin
orada yoksa Gözata basıp nereye kaydettiyseniz onu gösterin
bu kadar kolay gelsin.

 

[ilkdevrim]

tesekkürler gerçekten çok güzel olmus

 

[memoli79]

Sn Korhan Ayhan sizin örneğinizde birkaç sayfa ekleyerek bunları gizlediğimde Gizli sayfalara tıklıyorum sonradan eklediğim sayfalar görünüyor ancak eklenti olarak kaydettim yeni bir excel kitabına yeni sayfalar eklediğimde Gizli Sayfalar formunda sadece sayfa 2 ve sayfa 3 görünüyor tümünü seç dediğimde de diğer sayfalar görünmüyor.Sadece sayfa 2 ve 3 görünüyor.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyada gerekli düzeltmeleri yaptım. İncelermisiniz.

 

[memoli79]

Çok Teşekkür ederim Sn.Korhan Ayhan şimdi oldu.

 

[ilkdevrim]

Korhan hocam excel dosyalarmda 4 5 gizli sayfalar sekmesi oldu bunları nasıl kaldırırım.

 

[Korhan Ayhan]

Selamlar,

Bozulan menünüzü aşağıdaki kodu kullanarak düzeltebilirsiniz.

Option Explicit
 
Sub MENÜ_DÜZELT()
    Application.CommandBars(1).Reset
End Sub

 

[bekir38]

bu konu ile bağlantılı olduğu için buraya sorayım,,,
bir excel çalışma kitabında 4-5 tane sayfa var, sekmeler gizli değil ama ben durum çubuğunda bu sekmeleri göremiyorum,,,
zamanında bir şekilde sekmeler gizlenmiş ama çözemedim,, gizle/göster ile değil yalnız, sayfaların hepsi açık, sadece sekmeleri alt kısımda göremiyorum,,

nasıl yaparım? veya ne yapmalıyım?

 

[Korhan Ayhan]

Araçlar-Seçenekler-Görünüm menüsünden "Sayfa Sekmeleri" seçeneği pasif ayarlanmış olabilir. Bu seçeneği aktif hale getirip deneyin.

 

[bekir38]

Araçlar-Seçenekler-Görünüm menüsünden "Sayfa Sekmeleri" seçeneği pasif ayarlanmış olabilir. Bu seçeneği aktif hale getirip deneyin.

dediğiniz gibi yaptım , oldu, çok teşekkürler,,,,