Son Sütun Numarasını Bulma

Son Sütun Numarasını Bulma isimli kod ile, Excel sayfasındaki kullanılan sütunlardan son olanın numarasını bulma işlevi yapılmaktadır.

XD Destek İste
Sub LastCol()
    Dim LastCol As Integer
    ColRow = ActiveSheet.UsedRange.Columns.Count
    MsgBox ColRow
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ı

Kodun işlevi, ekranda gördüğünüz alanın boş olması değildir. Yani, siz diyelim ki A1, B1, C1, F1 hücrelerine bir şeyler yazdınız ve sonra yazdıklarınızı temizlediniz. Normalde gözle görünen sütun olmasa da, üzerinde bir kez işlem yapıldığı için artık o sütun kullanılmış sayılacaktır.

Kod bu durumda 6 sonucunu döndürecektir.

Bu anlatımın doğruluğunu, Ctrl ve Shift tuşlarını basılı tutup, sağa oka basarakta teyit edebilirsiniz.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Çalışma Kitabının Kaç Kez Açıldığını Öğrenme
Satır Yüksekliklerini Otomatik Ayarlama
Hücre Aralığını Görüntüye Dönüştürme
Tek Hücreyi Kes Kopyala ve Yapıştır
Yanlış Yazılmış Hücreleri Vurgulama
Excel Satır Silme Kodu
TextBox Nesnesine Harf Girilmesini Engelleme
Excel Kapanırken Otomatik İşlem Yaptırma
Derece Simgesi Ekleme
Excel Makroları ile Dosya Taşıma
Şeffaf UserForm Oluşturma Kodu
Özel Sayfaları Yazdırma
Çift Satırlı Msgbox Örneği
Salt Okunur Excel Dosyasını Kontrol Etme
Excel Sayfalarında Çarpım Tablosu Oluşturma
Dizileri Döngüye Eklemek
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Roma Rakamlarını Normal Sayılara Dönüştürme
Birden Çok Satır Ekleme
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Tekrarlayan Verileri Vurgulama
Seçimdeki Alternatif Satırları Vurgulama
Makro Etkinletirilmezse Sayfalar Gizlenir
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Bir Değeri Renklendirme
İçindekiler Tablosu Oluşturma
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Yorumları Yazdırma
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
Kilitlenmemiş Hücreleri Seçme İşlemi
A1 Referans Stilini Etkinleştirme
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Satırlardaki Farkı Renklendirme
Excel Crackleme İşlemi Makrosu
Sütun Genişliklerini Otomatik Ayarlama
Belirli Bir Metne Sahip Hücreleri Vurgulama
Seçimi Yazdırma
Excel Makroları ile Hücreye Saat Ekleme
Sağ Tık ile Açılan Menüye Ekleme Yapma
Otomatik Olarak Tarih ve Zaman Ekleme
Grafiği Görüntü Olarak Yapıştırma
Aralıklı Olarak Satır Silme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Seçili Hücrenin Sütun Harfini Bulma
Excel Hücresini Seçme Makrosu
56 Renk Kodunu Sıralama
Checkbox ile Exceli Kapatıp Açmak
Sayıları Rastgele Karıştırmak
Excel Makro Modulü Silme Kodu
Verileri Birden Çok Sütuna Göre Sıralama
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Klavyenizdeki F2 tuşuna basarsanız, hücrenin ya da formül çubuğunun için giriş yaparsınız.
Shift + F2 tuşlarına basarsanız, aktif hücreye açıklama eklersiniz.
Ctrl + F2 tuşlarına basarsanız, Yazdırma ekranını açarsınız.
Yükleniyor...