Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme

13 Mart 2018 1062

Bu kod ile Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.

Sub HideAllExceptActiveSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
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ı

Eğer Excel'de bir sayfa dışında tüm sayfaları gizlemek istiyorsanız, üstteki kod acayip işinize yarar, belirtmeden geçemeyeceğim :)

Mesela bir Excel dosyanız var, şekilli makrolardan oluşuyor. Siz dosyayı başkas birine yolladınız ama o makroları etkinleştirmeyi bilmiyor, hatta makronun ne olduğunu bile bilmiyor :( (makro adını duymamış çok fazla Excel kullanıcısu var ne yazık ki)

O zaman dosyanıza bir sayfa ekleyin ve bu dosyanın çalışması için makroların etkinleştirilmesi gerekir vs tarzında bir açıklama yapın. Excel'i kapatırken bu kodu bahsettiğim sayfanız aktifken çalıştırın. Böylece sadece o uyarının olduğu sayfa kalacak, diğerleri gizlenecektir.

Makro etkinleştirmeye kullanıcı dosyayı açtığında bu sefer sadece uyarı sayfasını göreceği için otomatik olarak makrodan haberdar olacak. E tabi makrolar etkinleştirildiği zaman ilk olarak Tüm Çalışma Sayfalarını Gösterme işlevini de atlamayın.

Buna da sosyal sorumluluk diyelim :)

50 Farklı Hazır Makro (VBA) Kodu
Bir Çalışma Kitabında Kaç Sayfa Var
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
UserForm Kapatma Kodu
Sayfadaki Ad Tanımlamaları Silme
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Sütunu Kes Kopyala ve Yapıştır
Excel Hücrelerini Çözme
Formüllü Hücreleri Renklendir
Dar Kenar Boşluğu Yazdırma
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
Bilgisayardaki Sürücü Sayısını Bulma
Metinden Konuşma Oluşturma
Tüm Satırda İşlem Yapan Döngü
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Top 10 Değeri Renklendirme
Bir Dizeden Sayısal Veriler Elde Etme
Excel Makroları ile Dosya Sayısını Bulma
Excel Üzerinden Klasör Açma Kodu
Boş Hücreleri Sıfırlarla Değiştirme
Son Sütun Numarasını Bulma
Cümle Durumuna Dönüştürme
İlk ve Son Hücre Arasındaki Satır Sayısı
Excel Makroları ile Klasör Silme
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Dolar Okutma Makrosu
Aktif Çalışma Sayfası Dışında Tümünü Silme
Excel Satır Silme Kodu
Bir Dizindeki Son Dosyanın Adını Bulma
Son Dolu Satırın Bir Altına Yazdırma
Son Dolu Satırı Başka Sayfaya Kopyala
Hesap Makinesini Açma
Seçili Alandan İstenilen Karakteri Kaldırma
Gizlenmiş Makro Örnekleri
UserForm Açılırken Efekt Ekleme
Sayıyı Çift ya da Çiftin Katı Yapma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Pivot Verilerini Almayı Devre Dışı Bırakma Etkinleştirme
Hücrenin Rengini Değiştirme
Sütun Genişliğini Ayarla
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Metin Sarmayı Kaldırma
Belli Sütunlarda Alfabetik Sıralama
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Yanıp Sönme Efekti Verme Kodu
Makrolar ile Txt Dosyası Oluşturma
Bir Aralıktaki Minimum Değeri Renklendirme
Excel ile Demo Yapma Makrosu
TextBox Nesnelerinin Arasında Boşluk Bırakma
İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...