Excel Kitabındaki Sayfa Adlarının Listelenmesi

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.

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

#Excel Kitabındaki Sayfa Adlarının Listelenmesi
50 Farklı Hazır Makro (VBA) Kodu
Excel Makroları ile Form Çağırma
Excel ile Faiz Hesaplama Kodu
Bir Aralıktaki Maksimum Değeri Renklendirme
Hesap Makinesini Açma
Aktif Hücrenin Satır Numarasını Bulma
Listbox ve Combobox Satır Kaydırma
Sütunu Kes Kopyala ve Yapıştır
Program Başlangıcı Kodları
Excel Makroları ile Klasör Arama
Label Nesnesine Kayan Yazı Ekleme
Giriş Kutusu ve Mesaj Yazma İşlemi
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Son Dolu Satırın Bir Altına Yazdırma
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Yanıp Sönme Efekti Verme Kodu
Dolar Okutma Makrosu
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Tüm Satırda İşlem Yapan Döngü
Excel Makroları ile Dosya Taşıma
Son Sütun Numarasını Bulma
Kullanılan Tüm Sütunları Otomatik Sığdır
Aktif Hücrenin Sütun Numarasını Bulma
Kopyala ve Değer Olarak Yapıştır
Kopyala ve Biçimleri Yapıştır
Top 10 Değeri Renklendirme
Excel Makroları ile İşlemci Bilgilerini Bulma
Seçili Sütunların Sayısını Bulma
Tüm Sütunda İşlem Yapan Döngü
Kopyala ve Özel Yapıştır
Seçili Satırların Sayısını Bulma
Satırı Kes Kopyala ve Yapıştır
Hatalı Hücreleri Renklendirme
Sütunlardaki Farkı Renklendirme
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Sütun Genişliklerini Otomatik Ayarlama
Başka Dosyada Şifreli Userform Oluşturmak
Boşluk Olan Hücreleri Renklendirme
UserForm Üzerinde Dört İşlem
Excel Menüsüne Ekleme Yapma Kodu
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Sağ Tık ile Açılan Menüye Ekleme Yapma
Checkbox ile Exceli Kapatıp Açmak
Excel Dosya Arama Yapma Makrosu
Dizileri İç İçe Döngüye Eklemek
Hücre Aralığını Kes Kopyala ve Yapıştır
Excel Kapanırken Otomatik İşlem Yaptırma
Aktif Satırı ve Sütunu Vurgulama
Otomatik Sıra Numarası Ekleme
Son Satır Numarasını Bulma
2. Derece Denklemin Grafiğini Çizmek
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Excel'in MUTLAK fonksiyonunu kullanarak, bir negatif sayıyı kolayca pozitif hale getirebileceğinizi biliyor muydunuz?
A2 hücresinde -525,52 şeklinde bir değer olduğunu varsayalım.
B2 hücresine, =MUTLAK(A2) yazdığınızda, sonucun 525,52 şekline döneceğini göreceksiniz.

Not: Pozitif olan rakamlar aynen korunur.

Eğer bir aralıkta yer alan ve birden fazla negatif sayıyı, tek seferde ve bir kereye mahsus pozitif değere sayıya dönüştürmek isterseniz:
  1. Boş bir hücreye -1 yazın ve -1 sayısının yer aldığı hücreyi kopyalayın.
  2. Dönüştürmek istediğiniz negatif sayıları fareniz ile seçin.
  3. özel Yapıştır -> Değerler -> çarp deyin.
Tüm negatif sayıların pozitif sayıya döndüğünü göreceksiniz.
Yükleniyor...