Excel VBA ile Veri İçeren Son Satır ve Son Sütun Bulma: End(xlUp) ve End(xlToLeft) Kullanımı
1. Hemen Kullanılabilir 4 Adet VBA Son Satır ve Son Sütun Bulma Kodu
📌 Bu bölümdeki kodlar: Dim ile değişken tanımlar, Cells(Rows.Count, 1).End(xlUp).Row ile son satırı bulur, Cells(1, Columns.Count).End(xlToLeft).Column ile son sütunu bulur, UsedRange ile veri aralığını tespit eder, MsgBox ile sonucu gösterir.
1. Son Satırı Bul
A sütunundaki veri içeren son satırı bulur.
Sub SonSatirBul()
Dim sonSatir As Long
sonSatir = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox "Son Satır: " & sonSatir
End Sub
3. UsedRange ile Son Satır ve Sütun
Sayfadaki kullanılan aralığın son satır ve sütununu bulur.
Sub UsedRangeIleBul()
Dim sonSatir As Long, sonSutun As Long
With ActiveSheet.UsedRange
sonSatir = .Rows.Count + .Row - 1
sonSutun = .Columns.Count + .Column - 1
End With
MsgBox "Satır: " & sonSatir & " | Sütun: " & sonSutun
End Sub
2. Son Sütunu Bul
1. satırdaki veri içeren son sütunu bulur.
Sub SonSutunBul()
Dim sonSutun As Long
sonSutun = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox "Son Sütun: " & sonSutun
End Sub
4. Son Satıra Yeni Kayıt Ekle
Son satırın bir altına yeni veri ekler.
Sub YeniKayitEkle()
Dim sonSatir As Long
sonSatir = Cells(Rows.Count, 1).End(xlUp).Row
Cells(sonSatir + 1, 1).Value = "Yeni Kayıt"
Cells(sonSatir + 1, 2).Value = "Değer"
Cells(sonSatir + 1, 3).Value = Date
End Sub
2. VBA Makroları için Ön Hazırlık
1. Geliştirici Sekmesini Aktifleştirin
Excel'de VBA kodlarını yazabilmek için önce Geliştirici sekmesini aktif etmelisiniz. Detaylı bilgi için tıklayın.
3. Modül Ekleyin
Kodlarınızı yazmak için bir Modül eklemelisiniz. Makro yazma rehberi için tıklayın.
2. Visual Basic Düzenleyici'yi Açın
Alt + F11 (Windows) veya Option + F11 (Mac) ile hızlıca açabilirsiniz.
4. Kodu Çalıştırın
Yazdığınız kodu çalıştırmak için F5 tuşuna basın veya Çalıştır butonuna tıklayın. VBA makro nedir? öğrenmek için tıklayın.
F5
▶️ Makroyu çalıştır
3. Sıkça Sorulan Sorular
01 Excel VBA ile son satır nasıl bulunur?
Cells(Rows.Count, 1).End(xlUp).Row kodu ile A sütunundaki veri içeren son satırı bulabilirsiniz.
02 Excel VBA ile son sütun nasıl bulunur?
Cells(1, Columns.Count).End(xlToLeft).Column kodu ile 1. satırdaki veri içeren son sütunu bulabilirsiniz.
03 End(xlUp) ve End(xlToLeft) arasındaki fark nedir?
End(xlUp) sütunda yukarı doğru, End(xlToLeft) satırda sola doğru giderek son dolu hücreyi bulur.
04 Mac'te Excel VBA'da son satır bulabilir miyim?
Evet, Mac'te de aynı kodlar çalışır. Option+F11 ile VBA'ya erişin.
05 UsedRange ile son satır bulmak güvenilir mi?
UsedRange, boş formatlanmış hücreleri de içerebilir. End yöntemleri daha güvenilirdir.
06 Son satıra nasıl yeni kayıt eklerim?
Son satırı bulduktan sonra Cells(sonSatir + 1, 1).Value = "Yeni" ile bir sonraki satıra ekleme yapabilirsiniz.