Yardım Sheet içerisinde dolu satır sayısını güncelleme

Merhaba,

Makroda sürekli toplam satır sayısı üzerinden filtreleme yaptıktan sonra seçili olanları silip sonra yeni filtrelemeler yaptırıyorum.

Makronun başında aşağıdaki gibi satır saydırma işlemi yaptım fakat dosyanın satır sayısı azaldığından sürekli bu değeri güncellemiyor.

Dim SATIR As Long
Dim y As String
y = "x"
Satır = Cells(Rows.Count, y).End(xlUp).Row

Bu sebeple de aşağıdaki işlem her seferinde anlamsız kalıyor.

Range(Range("B" & SATIR), Range("B" & SATIR).End(xlUp))

Makroda satır sayısını her seferinde tanım yapmadan çözebileceğim bir yöntem var mıdır ?

Teşekkürler,

Satır sayısını her seferinde tanım yapmadan çözebileceğiniz birkaç yöntem mevcut.

1. UsedRange: Bu özellik, kullanılan tüm hücreleri içeren bir aralığı döndürür. Bu aralık, çalışma sayfasındaki verilerin genişlemesine ve sıkışmasına bağlı olarak değişir.

Dim veriAraligi As Range
Set veriAraligi = ActiveSheet.UsedRange

1. ListObjects: Eğer verilerinizi tablo olarak biçimlendirdiyseniz, tablonun adını kullanarak tablodaki verilerin olduğu aralığı belirleyebilirsiniz. Bu yöntem, verilerinizin satır sayısının artıp azalmasına rağmen, tablonun boyutlarının güncellenmesiyle birlikte doğru sonuçlar verir.
2. Dim veriTablosu As ListObject
   Dim veriAraligi As Range
   
   Set veriTablosu = ActiveSheet.ListObjects("Table1")
   Set veriAraligi = veriTablosu.DataBodyRange
   Bu yöntemleri kullanarak, verilerinizi seçebilirsiniz. Bu sayede, veri sayısında meydana gelen değişikliklerden etkilenmeden doğru aralığı seçebilirsiniz.