UseRange - Son Kullanılan Hücreyi, Sütunu veya Satırı Bul
Aşağıdaki kod, bir çalışma sayfasında kullanılan toplam satır sayısını gösteren bir mesaj kutusu döndürür. Veriler boş satırı takip ediyorsa, boş satırlar kullanılmış olarak kabul edilir.
1 | MsgBox ActiveSheet.UsedRange.Rows.Count |
Bir sayfada bir döngü çalıştırmanız gerekiyor ancak verilerin nerede durduğunu bilmiyor musunuz? ActiveSheet.UsedRange.Rows.Count yardımcı olabilir.
Bunu bir modüle koyun:
123456789 | Alt LastRow()LastRow'u Tamsayı Olarak KarartınLastRow = ActiveSheet.UsedRange.Rows.CountMsgBox SonSatırAlt Bitiş |
123456789 | Alt LastCol()LastCol'ü Tamsayı Olarak DimLastCol = ActiveSheet.UsedRange.Col.CountMsgBox LastColAlt Bitiş |
İlk Boş Hücreyi Bul
VBA'yı kullanarak ilk boş hücreye veya bir sütunda kullanılan son satırdan sonra yazmanız gerekebilir. Bunu bulmak için döngüye gerek yok, aşağıdaki kod sizin için yapıyor.
Bu örnekte kod, “d” sütunundaki ilk boş hücreye “FirstEmpty” yazacaktır.
1234 | Public Sub AfterLast()ActiveSheet.Range("d" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = "FirstEmpty"Alt Bitiş |
Çalışma Sayfasında Kullanılan Sütunları Say
Aşağıdaki kod, bir ileti kutusunda, bir çalışma sayfasında kullanılan toplam sütun sayısını döndürür. Veriler boş sütunu takip ediyorsa, boş sütunlar kullanılmış olarak kabul edilir.
1 | MsgBox ActiveSheet.UsedRange.Columns.Count |
Son Kullanılan Hücre - Sorunlar
Gerektiğinde… Sonraki… Tüm bir sütunda döngü yaparak nerede duracağımı bulmak için genellikle ActiveSheet.UsedRange.Rows.Count kullanırım. Bu yaklaşımla her zaman iyi şansım oldu.
Ayrıca Excel'in ara sıra son satırın bir yerde olduğunu düşündüğünü de biliyorum, ancak satır aslında boş. Verileri içe aktardıktan sonra bunu birkaç kez gördüm. BeyondTechnology'den:
Çalışma Sayfası nesnesinin KullanılanAralık bir elektronik tablonun kullanılan aralığı (veya "kirli alan"), kayıtlarınızla gerçekte doldurulan alandan daha büyük olabileceğinden her zaman çalışmaz.