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
Bir Aralığa Alfabenin Harflerini Ekleme
Belirli Kriterlere Sahip Satırları Silme
Yazı Efekti Verme Kodu
Makrolar ile Eliptik Form Oluşturma
Hücredeki Değere Göre İşlem Yapma
Excel Makroları ile Klasör Arama
Kopyala ve Özel Yapıştır
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Excel Makroları ile Dosya Silme
Tekrarlayan Verileri Vurgulama
Seçili Hücrenin Sütun Harfini Bulma
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Excel ile Faiz Hesaplama Kodu
Çoklu Bulma ve Karşısındaki Değeri Listeleme
TextBox Nesnesinde Kuruş Göstermek
Dizileri Döngüye Eklemek
Otomatik Sıra Numarası Ekleme
UserForm Üzerinde Dört İşlem
Negatif Sayıları Poztif Sayıya Çevirme
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
MsgBox ile Uyarı Çıkarma Kodu
Sayıları Yeni Bir Sayıyla Çarpma
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
TextBox Nesnelerinin Arasında Boşluk Bırakma
Sağ Tık ile Açılan Menüye Ekleme Yapma
UserForm Kapatma Kodu
Bir Aralıktaki Maksimum Değeri Renklendirme
Bir Aralıktaki Minimum Değeri Renklendirme
Excel Makroları ile Hücreye Saat Ekleme
Makro ile Boş Satırları Silme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
56 Renk Kodunu Sıralama
Sayfadaki Ad Tanımlamaları Silme
Makro ile Hızlı Doldurma
Gizlenmiş Makro Örnekleri
Bir Değeri Renklendirme
Excel Menüsüne Ekleme Yapma Kodu
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
UserForm Resize Özelliği Eklemek
Aktif Hücrenin Temel Bilgilerini Bulma
Excel Makro ile Hücreye Veri Yazma
Excel Dosya Arama Yapma Makrosu
Excel Açılırken Otomatik İşlem Yaptırma
Son Sütun Numarasını Bulma
Hesap Makinesini Açma
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Excel Sayfalarında Çarpım Tablosu Oluşturma
Satırlardaki Farkı Renklendirme
Açılışta Üç Kere Şifre Hakkı Vermek
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

YARARLI KISAYOLLAR
Hücreyi Araya Yerleştirme Shift Sürükle
Aktif Sayfayı Kapatma Ctrl F4
Formül Ekle Shift F3
Bitişik Hücre Aralığı Seçme Shift Tıklama
Hızlı Doldurma Kısayolu Ctrl E
Excel VBA kodları yazarken bazı durumlarda ve vba yapısı gereğince kod satırları ekrana sığmamakta ve sağa doğru uzayabilmektedir. Özellikle kodların okunması, incelenmesi esnasında çok can sıkıcı olan bu uzun kodları, alt tire kullanarak kısaltıp, bir alt satırda listeleyebilir ve ekrana sığmasını sağlayabilirsiniz.

Örnek:
Sub Deneme()
Application.Visible = _
False
End Sub

Alt tire (_) kullanarak False komutunu alt satırda sorunsuz bir şekilde göstermeyi sağladık.
Yükleniyor...