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

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.

XD Destek İste
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 :)

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Belli Sütunlarda Alfabetik Sıralama
Aktif Hücrenin Üstüne Satır Ekleme
MsgBox ile Uyarı Çıkarma Kodu
Verileri Tek Sütuna Göre Sıralama
Excel Makroları ile Dosya Taşıma
Otomatik Olarak Tarih ve Zaman Ekleme
Roma Rakamlarını Normal Sayılara Dönüştürme
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Giriş Kutusu ve Mesaj Yazma İşlemi
Boş Hücreleri Vurgulama
Zaman Aralığı Ekleme
Excel Makro Modulü Silme Kodu
R1C1 Referans Stilini Etkinleştirme
Hücredeki Değişikliklerin Kaydını Tutma
2. Satırdaki Bilgileri Silmek
Açıklama İçeren Tüm Hücreleri Vurgulama
Yanlış Yazılmış Hücreleri Vurgulama
Sağ Tık ile Açılan Menüye Ekleme Yapma
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Kare Kökünü Hesaplama
Son Satır Numarasını Bulma
Toplu Satır Silme
Aktif Hücrenin Sütun Numarasını Bulma
Makro ile Hızlı Doldurma
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Çalışma Sayfalarını Tek Adımda Korumasını Kaldırma
Bir Aralıktaki Minimum Değeri Renklendirme
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Birden Çok Satır Ekleme
Satırı Kes Kopyala ve Yapıştır
Boşluk Olan Hücreleri Renklendirme
Makro ile Boş Satırları Silme
Bir Aralıktaki Maksimum Değeri Renklendirme
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
Sütunlardaki Farkı Renklendirme
Çalışma Kitabını E-Posta Ekine Ekleme
Excel Hücresine Gitme Makrosu
Gizlenmiş Makro Örnekleri
Dizileri Döngüye Eklemek
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Checkbox ile Exceli Kapatıp Açmak
X Sayı Atlayarak Satır Gizleme
Birleştirilmiş Tüm Hücreleri Ayırma
Hücre Aralığını Kes Kopyala ve Yapıştır
Excel Dosya Silme İşlemi Makrosu
Seçili Hücrenin Sütun Harfini Bulma
Çalışma Kitabının Yedeğini Oluşturma
Excel Makro ile Hücreye Veri Yazma
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Shift tuşunu kullanarak, satır ve sütunlardaki verileri oldukça hızlı bir şekilde yer değiştirebilirsiniz. Örneğin, bir satırda bulunan verileri aşağı ya da yukarı taşımak isterseniz, ilgili satırların numaralarından tamamını seçme yaptıktan sonra, shift tuşunu basılı tutmak suretiyle fare işaretini taşımak istediğiniz aralıktaki herhangi bir hücrenin hemen en alt/üst kısmına getirin.

Hızlı Taşıma

Fare oku bu şekli aldıktan sonra, istediğiniz yere ilgili satırları kolayca taşıyabilirsiniz.

Sütunlar içinde benzer işlemi sütun seçip, ilgili hücrenin sağ/sol kısmına getirip Shift tuşuna basılı tutarak mause ile sürüklemek suretiyle yapabilirsiniz.

Hızlı Taşıma
Yükleniyor...