Excel VBA ile Veri İçeren Son Satır ve Son Sütun Bulma

Excel VBA ile Veri İçeren Son Satır ve Son Sütun Bulma: End(xlUp) ve End(xlToLeft) Kullanımı
Excel VBA Son Satır ve Son Sütun Bulma

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.

VBA - Geliştirici sekmesi
⚙️ Geliştirici sekmesini aktifleştirme

3. Modül Ekleyin

Kodlarınızı yazmak için bir Modül eklemelisiniz. Makro yazma rehberi için tıklayın.

VBA - Modül ekleme
📝 Modül ekleme

2. Visual Basic Düzenleyici'yi Açın

Alt + F11 (Windows) veya Option + F11 (Mac) ile hızlıca açabilirsiniz.

Visual Basic Düzenleyici'yi Açma
📝 Visual Basic Düzenleyici'yi Açma

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

📋 Makro çalıştırma

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.

💡 İpucu: Makroları çalıştırmadan önce dosyanızı yedeklemeyi unutmayın. Ctrl+S ile kaydedin.
🤖 Akıllı Arama Asistanı
💬 Merhaba! Size nasıl yardımcı olabilirim?
Excel Asistanı
👋 Merhaba! Excel ile ilgili ne öğrenmek istersin? Örn: DÜŞEYARA nasıl kullanılır?
DÜŞEYARA Pivot Tablo Gantt Şeması