Son Dolu Sütunu Bulma

Bu dosya, çalışma sayfasında veri bulunan en son sütunun numarasını makro ile bulur. Veri aralığının sağ sınırını belirlemesi gereken döngü, aralık seçimi ve rapor hazırlama çalışmalarında örnek olarak kullanılabilir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A6:D13 aralığında örnek veri bulunur. Makro bu sayfadaki verinin son dolu sütununu bulmak için denenebilir.
• Module1: FindLastColumn adlı makroyu içeren VBA modülüdür.

Makrolar​

FindLastColumn makrosu önce CountA fonksiyonuyla sayfada dolu hücre olup olmadığını kontrol eder. Dolu hücre varsa Find yöntemiyle sayfa sütunlar boyunca sondan başa doğru taranır ve bulunan son dolu hücrenin sütun numarası MsgBox ile ekrana getirilir. Örneğin son dolu sütun D ise mesaj kutusunda 4 görüntülenir. Sayfa tamamen boşsa makro herhangi bir işlem yapmaz.
Makro dosya silme, dışarıya bağlantı gibi işlemler içermez; yalnızca sayfayı okur ve sonucu gösterir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1 üzerindeki örnek veriyi kendi verinizle değiştirin ya da yeni sütunlar ekleyin.
3. Geliştirici sekmesinden Makrolar penceresini açın (Alt+F8).
4. FindLastColumn makrosunu seçip Çalıştır düğmesine tıklayın.
5. Açılan mesaj kutusunda son dolu sütunun numarası görüntülenir.
6. Makroyu kendi dosyanızda kullanmak için Module1 içindeki kodu VBA düzenleyicisinde ilgili projeye kopyalayın.

Makro etkin çalışma sayfası içindeki veriyi tarar; bu nedenle çalıştırmadan önce kontrol etmek istediğiniz sayfanın açık olması gerekir.