Excel Makro ile Son Satırı ve Son Sütunu Bulma
Excel VBA makro kodları yazarken, son dolu satır ve sütun numaralarını tespit etmek önemlidir. Bu bilgiler, veri girişlerini doğru şekilde otomatikleştirerek, yeni verilerin uygun satır ve sütunlara eklenmesini sağlar ve mevcut veri kümesinin düzenli bir şekilde yönetilmesine yardımcı olur.
Bu makalede, son satır ve son sütun numaralarını hızlı bir şekilde bulmak için kullanabileceğiniz VBA makro kodlarını göstereceğiz.
1. Son Sütunu Bulmak İçin VBA Makrosu Nasıl Yazılır?
Makro yazmak için öncelikli olarak üst menüden geliştirici sekmesinin aktif olduğundan emin olunuz. Eğer değilse, İlk olarak, Excel’de Geliştirici sekmesini etkinleştirmek için "Dosya" > "Seçenekler" > "Şeridi Özelleştir" menüsünden "Geliştirici"yi işaretleyin. Detaylı bilgi için linke tıklayabilirsiniz. Ardından, "Geliştirici" sekmesinden "Visual Basic" butonuna tıklayarak VBA Düzenleyicisini açabilir ve "Ekle" > "Modül" ile yeni bir modül ekleyebilirsiniz. Daha fazla bilgi için linke tıklayabilirsiniz.
Bu adımlar tamamlandıktan sonra, aşağıdaki makro ile bir sütundaki son dolu satırı bulabilirsiniz.
2. Son Satırı Bulan VBA Kodu
Aşağıdaki kod, bir sütundaki son dolu satırı bulmak için kullanılan iki farklı yöntemi göstermektedir.
Sub SonSatirBul()
Dim SonSatirAktif, SonSatirSayfaİsmi As Long
' Aktif sayfadaki A sütununda son dolu satırı bul
SonSatirAktif = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
' Sayfa ismi belirterek A sütununda son dolu satırı bul
SonSatirSayfaİsmi = Sheets("Sayfa1").Cells(Sheets("Sayfa1").Rows.Count, 1).End(xlUp).Row
End subMakroyu Çalıştırma
Yukarıdaki VBA kodunu yazdıktan sonra, makroyu çalıştırarak verilerin bulunduğu sayfadaki son satırı öğrenebilirsiniz. Makroyu çalıştırmak için, VBA Düzenleyicisi'nde F5 tuşuna basarak kodu çalıştırabilirsiniz. Son satır numarasını mesaj kutusunda göreceksiniz.
Kodun Açıklamaları
- Dim SonSatirAktif, SonSatirSayfaİsmi As Long İşlem sonucunu atamak için sayısal değişkenler tanımlanıyor. Değişkenler ile ilgili daha fazla bilgi için linke tıklayınız.
- ActiveSheet.Cells(ActiveSheet.Rows.Count, 1): Aktif sayfada; A sütununa gider. "1" ifadesi 1. sütuna işaret etmektedir. Eğer "2" yazarsanız B sütununun son dolu satırı bulunacaktır.
- Sheets("Sayfa1").Cells(Sheets("Sayfa1").Rows.Count, 1): Sayfa1 isimli sayfada; A sütununa gider.
- End(xlUp): Yukardan aşağı doğru giderek istenen sütundaki son dolu hücreyi bulur.
Yukarıda yer alan son satırı bulma makrosunun sadece sütun kısmını değiştirerek kendi projenizde kolayca kullanabilirsiniz.
3. Son Sütunu Bulan VBA Kodu
Aşağıdaki örnekte belirli bir sayfadaki son dolu sütunu bulan örnek bir makro yer almakadır.
Sub SonSutunBul()
Dim SonSutun As Long
SonSutun =Sheets("Sayfa1").Cells(1, Sheets("Sayfa1").Columns.Count).End(xlToLeft).Column
End Sub
Makroyu Çalıştırma
Yukarıdaki VBA kodunu yazdıktan sonra, makroyu çalıştırarak verilerin bulunduğu sayfadaki son sütunu öğrenebilirsiniz. Makroyu çalıştırmak için, VBA Düzenleyicisi'nde F5 tuşuna basarak kodu çalıştırabilirsiniz. Son sütun numarasını mesaj kutusunda göreceksiniz.
Kodun Açıklamaları
- Sheets("Sayfa1").Cells(1, Sheets("Sayfa1").Columns.Count) Sayfa1 isimli sayfada 1. satıra gider.
- End(xlToLeft): İstenen satırda sola doğru giderek son dolu hücreyi bulur.
4. Son Sütun veya Son Satırı Bulduktan sonra Yeni Kayıt Oluşturma
Son dolu satır veya sütunu bulduktan sonra yeni kayıt yapmak istediğiniz durumlarda son dolu hücrenin bir sonrasına gidilmelidir. Örnek kullanım aşağıda yer almaktadır. Aşağıdaki ifade son dolu hücrenin bir satır altına "Yeni Kayıt" yazdıracaktır. Eğer "+1" ifadesini eklemez iseniz yeni kaydınınız son dolu hücrenin üzerine yazılacaktır.
Sheets("Sayfa1").cells(SonSatirSayfaİsmi+1, 1).value = "Yeni Kayıt"
Sonuç
Excel VBA ile son sütunu bulmak, veri analizini hızlandırmak ve veri setinizi daha etkili bir şekilde incelemek için önemli bir adımdır. Bu basit ama güçlü makro sayesinde verilerinizdeki son sütunu hızlıca bulabilir ve daha fazla otomasyon ekleyebilirsiniz. VBA kullanarak Excel'in sunduğu güçlü özellikleri daha verimli bir şekilde keşfederek zaman kazanabilirsiniz.
Bu makale, Excel VBA ile son sütunu bulmanın temel adımlarını açıkladı. Artık bu kodu kullanarak istediğiniz veri aralığındaki son sütunu kolayca tespit edebilirsiniz. Daha fazla VBA makrosu yazmak ve Excel'i daha verimli kullanmak için pratik yapmaya devam edin.
Yorumlar