Gizli Sayfaların Bulunması ve Gösterilmesi

Gizli Sayfaların Bulunması ve Gösterilmesi isimli kodu kullanarak, Excel dosyasında varsa gizli sayfaların tamamının bir kerede gösterilmesini sağlarsınız.

XD Destek İste
Sub Gizli_Sayfalari_Goster()

Dim Syf As Worksheet
For Each Syf In ThisWorkbook.Worksheets
    If Syf.Visible = xlSheetHidden Or Syf.Visible = xlSheetVeryHidden Then
        MsgBox Syf.Name & " isimli sayfa gizlenmiştir, Tamam dediğinizde açılacaktır."
        Syf.Visible = xlSheetVisible
    End If
Next Syf

End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Biz kodda gizlenmiş sayfa olduğuna dair bir Mesaj Kutusu çıkarttık. Siz ilgili kısmı istediğiniz şekilde düzenleyebilirsiniz.

#Gizli Sayfaların Bulunması ve Gösterilmesi #gizli sayfalar #excel gizlenmiş sayfalar
50 Farklı Hazır Makro (VBA) Kodu
Excel Makroları ile Form Çağırma
Sütunu Kes Kopyala ve Yapıştır
Bir Çalışma Kitabında Kaç Sayfa Var
Dizileri Döngüye Eklemek
Bir Aralıktaki Minimum Değeri Renklendirme
Başka Dosyada Şifreli Userform Oluşturmak
Tüm Sütunda İşlem Yapan Döngü
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Aktif Hücrenin Satır Numarasını Bulma
Transparan UserForm Oluşturmak
UserForm Resize Özelliği Eklemek
Gizli Sayfaların Bulunması ve Gösterilmesi
Excel Menüsüne Ekleme Yapma Kodu
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Giriş Kutusu ve Mesaj Yazma İşlemi
Yorumları İçeren Hücreleri Renklendirme
Dizileri İç İçe Döngüye Eklemek
Satırlardaki Farkı Renklendirme
Otomatik Sıra Numarası Ekleme
56 Koşula Kadar Biçimlendirme Yapma
Kullanılan Tüm Sütunları Otomatik Sığdır
Label Nesnesine Kayan Yazı Ekleme
56 Renk Kodunu Sıralama
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Hücre Aralığını Kes Kopyala ve Yapıştır
Hücrenin Arka Plan Rengini Değiştirme
Excel Makroları ile Dosya Sayısını Bulma
Sayıları Rastgele Karıştırmak
2. Satırdaki Bilgileri Silmek
Top 10 Değeri Renklendirme
Excel Crackleme İşlemi Makrosu
Excel Makroları ile Klasör Silme
Seçili Satırların Sayısını Bulma
Hücrenin Rengini Değiştirme
Makrolar ile Eliptik Form Oluşturma
UserForm Kapatma Kodu
Tek Satırı Kes Kopyala ve Yapıştır
Tek Hücreyi Kes Kopyala ve Yapıştır
Aktif Hücrenin Sütun Numarasını Bulma
Aktif Satırı ve Sütunu Vurgulama
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Excel Üzerinden Klasör Açma Kodu
Excel Makroları ile Hücreye Saat Ekleme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Hesap Makinesini Açma
Son Sütun Numarasını Bulma
Tek Sütunu Kes Kopyala ve Yapıştır
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Kopyala ve Değer Olarak Yapıştır
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Aşağıdaki resimde olduğu gib bir tablonuz olduğunu ve belirtildiği gibi sütun eklemeniz gerektiğini varsayalım.

bir seferde çoklu sütun ekleme

Excel kullanıcıları burada genelde sütunlara tek tek seçerek birden fazla seferde sütun ekleme işlemini yapmaktadır. Bunu bir tık kısaltmanın yolu ise:

Sütunları birbiri ardına seçin (seçerken Ctrl tuşunu basılı tutun, fare ile bir kerede seçim yapmayın).
Sütun başlığını sağ tıklayın ve Ekle'yi seçin - bu, seçilen sütunların her biri için araya bir sütun ekler.

bir seferde çoklu sütun ekleme
Yükleniyor...