Excel Kitabındaki Sayfa Adlarının Listelenmesi

30 Aralık 2020 02 Ocak 2021 870

Excel Kitabındaki Sayfa Adlarının Listelenmesi isimli kodu kullanarak, aktif sayfanın A sütununa tüm sayfa isimlerini otomatik olarak yazdırabilirsiniz.

Sub Sayfalari_Listele()

Dim Syf As Worksheet
For Each Syf In ThisWorkbook.Worksheets
    ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0) = Syf.Name
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ı

Kodumuzda Aktif sayfanın A sütunun en son dolu hücresinin bir alt hücresine otomatik yazdırma sağlanmıştır. Bu alanı kendinize göre revize edebilirsiniz.

50 Farklı Hazır Makro (VBA) Kodu
Excel Makroları ile Klasör Arama
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Bir Değeri Renklendirme
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Çalışma Kitabının Yedeğini Oluşturma
C Klasörüne Sanal Dizin Oluşturma
Seçili Satırların Sayısını Bulma
Makro ile Klasör Açma
Toplu Sütun Silme
Belirli Kriterlere Sahip Satırları Silme
Makro Çalışırken İmlecin Hareket Etmemesi
Hücrenin Rengini Değiştirme
Sayılara Yeni Bir Sayı Ekleme
Satırı Kes Kopyala ve Yapıştır
Çift Satırlı Msgbox Örneği
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
TextBox Nesnesine Harf Girilmesini Engelleme
Dosyanın Olduğu Dizin İsmini Bulma
Txt Dosyası Oluşturma
Hedef Aramayı Kullanma
Ondalık Sayıları Tam Sayıya Çevirme
UserForm Açılırken Efekt Ekleme
Çalışma Kitabını Kapatırken Otomatik Kaydetme
ListBbox ve ComboBox Satır Kaydırma
Sütunları Otomatik Sığdırma
Tek Sütunu Kes Kopyala ve Yapıştır
Pivot Tablo Alt Toplamlarını Gizleme
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Grafiği Görüntü Olarak Yapıştırma
Makro Etkinletirilmezse Sayfalar Gizlenir
Aktif Hücrenin Sütun Numarasını Bulma
Bilgisayar Bilgilerini Özetleme
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Seri Numaralarını Ekleme
Tüm Çalışma Sayfalarını Gösterme
Excel Dosya Arama Yapma Makrosu
Sütun Genişliklerini Otomatik Ayarlama
Birden Çok Sütun Ekleme
Makrolar ile Dosyaları Kopyalama
Kullanıcı Adınızı Bulma
Aktif Çalışma Sayfası Dışında Tümünü Silme
Aktif Çalışma Sayfasını Koruma
Sütunlardaki Farkı Renklendirme
Makrolar ile Eliptik Form Oluşturma
Excel Satır Seçme Kodu
Kilitlenmemiş Hücreleri Seçme İşlemi
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Makrolar ile Klasör Silme

Daha önce yorum yapılmamış!

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