Microsoft Excel ile çalışırken, son satırları veya sütunları bulmak yaygın bir görevdir. Son kullanılan satırları veya sütunları bulmak için klavyeyi kullanırız. Ancak, kendinizi karmaşık bir veri kümesinden son kullanılan satırı bulmanız gereken bir durumda bulabilirsiniz. Bu eğitimde, pratik örnekler ve uygun resimlerle Excel'de VBA kullanarak bir aralıktaki verilerle son satırı bulmayı öğreneceksiniz.

Alıştırma Çalışma Kitabını İndirin

Bu alıştırma çalışma kitabını indirin.

7 Excel VBA Makrolarını Kullanarak Bir Aralıktaki Verilerle Son Satırı Bulma Yöntemleri

İlerleyen bölümlerde, Excel'de VBA kullanarak bir aralıktaki verileri içeren son satırı bulmanıza yardımcı olacak yedi yöntem sunacağız. Excel bilginizi zenginleştirmek için tüm bu yöntemleri öğrenmenizi ve uygulamanızı öneririz.

📕 Daha fazla bilgi edinin : Excel'de Satırda Değeri Olan Son Hücreyi Bulma (6 Yöntem)

Bu öğreticiyi göstermek için bu veri kümesini kullanacağız:

Burada, bazı oyuncuların bilgilerinden oluşan bir veri kümemiz var. Bunu size tüm yöntemleri öğretmek için kullanacağız.

VBA Düzenleyiciyi Açın

Başlamadan önce, burada size Excel'de VBA Düzenleyicisini açmanız için basit bir hatırlatma yapıyoruz.

İlk olarak, tuşuna basın Alt+F11 Ardından, klavyenizden Ekle> Modül. Bundan sonra, Excel'in VBA düzenleyicisini açacaktır.

1. VBA Kullanarak Bir Aralıkta Veri Bulunan Son Satırı Bulmak için Range.End Özelliğinin Kullanımı

Şimdi, bu yöntem temel olarak bir aralığın sonunu bulur. Temel olarak, son kullanılan hücre aralığı. Bu yöntemi, belirli bir aralıktaki verileri içeren son satırı bulmak için kullanabiliriz. VBA'yı kullanmak size istenen sonuçları verecektir.

📌 Adımlar

① İlk önce VBA Editör.

② Ardından, aşağıdaki kodu yazın:

 Sub range_end_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = Range("B4").End(xlDown).Row MsgBox "Son kullanılan satır: " & LastRow End Sub 

③ Şimdi dosyayı kaydedin ve ardından Alt+F8 Makro iletişim kutusunu açmak için range_end_method

④ Bundan sonra, Çalıştır'a tıklayın.

Gördüğünüz gibi, Excel'de VBA kullanarak bir aralıktaki verileri içeren son satırı başarıyla bulduk.

2. Excel'de VBA'nın Range.Find Özelliği

Şimdi, VBA'da bir veri kümesinden belirli bir değeri aramak için Range.Find yöntemini kullanıyoruz. Ancak bu yöntem, bir aralıktaki verileri içeren son satırı bulmak için kullanışlıdır. Excel'in Bul & Değiştir iletişim kutusu gibi çalışır. Range.Find yönteminin birçok argümanı vardır. Ancak hepsini kullanmayacağız.

Range.Find yöntemini kullanmadan önce, size bir parça hızlı bilgi verelim:

Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious)

Ne := "*" - Yıldız işareti, hücredeki herhangi bir metni veya sayıyı keşfeden bir joker karakterdir. Temel olarak boş olmayan bir hücreyi keşfetmekle aynıdır.

SearchOrder:=xlByRows - Bu, bir sonrakine geçmeden önce her bir satırın tamamını araştırmak anlamına gelir. SearchDirection bağımsız değişkenine bağlı olarak yön soldan sağa veya sağdan sola doğru aranır. Buradaki ek seçenek, son sütunu bulurken kullanılan xlByColumns'dur.

SearchDirection:=xlPrevious - Bu, hangi yönün araştırılacağını belirler. xlPrevious, sağdan sola veya aşağıdan yukarıya doğru arama yapacağı anlamına gelir. Diğer alternatif, karşıt yola kayan xlNext'tir.

📌 Adımlar

① İlk olarak, VBA Düzenleyicisini açın.

② Ardından, aşağıdaki kodu yazın:

 Sub range_find_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row MsgBox "Son kullanılan satır: " & LastRow End Sub 

③ Şimdi dosyayı kaydedin. Ardından, Makro iletişim kutusunu açmak için Alt+F8 tuşlarına basın. range_find_method.

④ Bundan sonra, üzerine tıklayın Koşmak .

Sonunda, Excel çalışma sayfamızda veri içeren son satırı bulacaktır.

3. VBA Kullanarak Son Satırı Bulmak için SpecialCells İşlevini Kullanma

Bu yöntem şu tuşa basmak gibi çalışır Ctrl+End Klavyenizde Ctrl+End tuşlarına bastığınızda, nerede olursanız olun sizi her zaman son satıra götürecektir. Ancak Excel'de VBA kodlarını kullanarak veri içeren son kullanılan satırı bulmak istiyorsanız, bu kod sizin için bir zorunluluktur.

📌 Adımlar

① İlk olarak, VBA Düzenleyicisini açın.

② Ardından, aşağıdaki kodu yazın:

 Sub specialcells_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row MsgBox "Son kullanılan satır: " & LastRow End Sub 

③ Şimdi dosyayı kaydedin. Ardından, Makro iletişim kutusunu açmak için Alt+F8 tuşlarına basın. specialcells_method .

④ Bundan sonra, üzerine tıklayın Koşmak .

Gördüğünüz gibi, Excel'de VBA kullanarak veri içeren son satırı bulmayı başardık.

4. Bir Aralıkta Veri Bulunan Son Satırı Bulmak için UsedRange Fonksiyonunu Kullanma

VBA'daki UsedRange, belirli bir çalışma sayfasında kullanılan aralığı (bir çalışma sayfasında kullanılan veya yüklenen tüm Excel hücreleri) temsil eden bir aralık nesnesi döndüren bir çalışma sayfası mülkiyetidir. Bir çalışma sayfasında sol üstte kullanılan hücreler ve son sağda kullanılan hücreler tarafından kapsanan veya belirtilen alan anlamına gelen bir özelliktir.

📌 Adımlar

① İlk olarak, VBA Düzenleyicisini açın.

② Ardından, aşağıdaki kodu yazın:

 Sub usedRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row MsgBox "Son kullanılan satır: " & LastRow End Sub 

③ Şimdi dosyayı kaydedin. Ardından, Makro iletişim kutusunu açmak için Alt+F8 tuşlarına basın. usedRange_method.

④ Bundan sonra, üzerine tıklayın Koşmak .

Son olarak, Excel'de bir çalışma sayfasındaki son kullanılan satırı başarıyla göreceksiniz.

5. Excel'de VBA kullanarak Tablo Aralığını Kullanma

Çalışma sayfanızda bir tablo varsa, bu yöntemle veri içeren son satırı bulabilirsiniz.

📌 Adımlar

① İlk olarak, VBA Düzenleyicisini açın.

② Ardından, aşağıdaki kodu yazın:

 Sub TableRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.ListObjects("Table1").Range.Rows.Count + 3 MsgBox "Son kullanılan satır: " & LastRow End Sub 

Not : Burada, veri setimiz 3. satırdan sonra başladığı için son satıra 3 ekliyoruz.

③ Şimdi dosyayı kaydedin. Ardından, Makro iletişim kutusunu açmak için Alt+F8 tuşlarına basın. TableRange_method.

④ Bundan sonra, üzerine tıklayın Koşmak .

Gördüğünüz gibi Excel'de veri bulunan son satırı bulmak için VBA kodlarında tablo aralığı yöntemini başarıyla kullandık.

6. Bir Aralıktaki Verileri İçeren Son Satırı Bulmak için Adlandırılmış Aralığın Kullanımı

Bu yöntem Excel'de yaygın olarak kullanılmaz. Ancak, bilginizi zenginleştirmek için bunu öğrenmeniz gerektiğini düşünüyoruz.

Veri setinizde adlandırılmış bir aralık varsa, bu kodu kullanabilirsiniz. Aşağıdaki ekran görüntüsüne bir göz atın. İçinde adlandırılmış bir aralık var.

📌 Adımlar

① İlk olarak, VBA Düzenleyicisini açın.

② Ardından, aşağıdaki kodu yazın:

 Sub nameRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("Named_Range").Rows.Count + 1 MsgBox "son kullanılan satır: " & LastRow End Sub 

Not : LastRow'a 1 ekliyoruz çünkü aralığımız 1. satırdan sonra başladı.

③ Şimdi dosyayı kaydedin ve ardından Alt+F8 Makro iletişim kutusunu açmak için nameRange_method.

④ Bundan sonra, Çalıştır'a tıklayın.

Gördüğünüz gibi, VBA kullanarak veri içeren son satırı bulmayı başardık.

7. Excel'de VBA'nın CurrentRegion İşlevi

Excel'de son kullanılan satırı bulmak için VBA'nın CurrentRegion yöntemini de kullanabilirsiniz. Zor olsa da, isterseniz bunu kendi yararınıza kullanabilirsiniz.

📌 Adımlar

① İlk olarak, VBA Düzenleyicisini açın.

② Ardından, aşağıdaki kodu yazın:

 Sub CurrentRegion_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("B4").CurrentRegion.Rows.Count + 3 'seçiminize göre sayı ekleyin' MsgBox "Son kullanılan satır: " & LastRow End Sub 

Not : Aralık, veri kümenizin ilk hücresi olmalıdır. Ve seçiminize göre satır numaranızı ekleyin. Burada, veri kümemiz 3. satırdan sonra başladığı için 3 ekledik.

③ Şimdi dosyayı kaydedin. Ardından, Makro iletişim kutusunu açmak için Alt+F8 tuşlarına basın. CurrentRegion_method

④ Bundan sonra, Çalıştır'a tıklayın.

Gördüğünüz gibi, VBA kodunu kullanarak veri içeren son satırı başarıyla bulduk.

💬 Unutulmaması Gerekenler

✎ Range.End yalnızca tek bir satır veya sütunda çalışır. Veri kümeniz çok sayıda boş hücre içeriyorsa, veri içeren son satırı bulmak zor olacaktır.

✎ Bazen, kodu sorunsuz çalıştırmak için yöntemlerinize bazı değerler eklemeniz gerekir. Son hücreyi bulmak için satır numaraları ekledik. Bu nedenle, veri kümenizin nereden başladığını hatırlamanız gerekir.

Sonuç

Sonuç olarak, umarım bu eğitim size Excel'de VBA kullanarak bir aralıktaki verileri içeren son satırı bulmak için yararlı bilgiler sağlamıştır. Tüm bu talimatları öğrenmenizi ve veri kümenize uygulamanızı öneririz. Alıştırma çalışma kitabını indirin ve bunları kendiniz deneyin. Ayrıca, yorum bölümünde geri bildirimde bulunmaktan çekinmeyin. Değerli geri bildirimleriniz bizi bu gibi eğitimler oluşturmak için motive ediyor.

Web sitemizi kontrol etmeyi unutmayın Exceldemy.com Excel ile ilgili çeşitli sorunlar ve çözümler için.

Yeni yöntemler öğrenmeye ve büyümeye devam edin!