Sayfadaki dolu olan son satırı-sütunu bulma

Bu yazıyı exceltr.net altında okumak için  tıklayın

---

 

Bir excel sayfasında herhangi bir sütundaki dolu olan son satırı ya da sayfadaki dolu olan son hücreyi bulmak isteyebilirsiniz.

Aşağıda kod parçası ws sayfasındaki veri bulunan son hücrenin veya sütundaki son hücrenin satır numaralarını kullanır

ws sayfasının 1. sütununda veri bulunan son satırın numarasını bulalım:

Sütundaki son satır:

Dim iSonSatir As Integer, ws As Worksheet
Set ws = Worksheets("Sheet1")
iSonSatir = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

1. sütun değil de başka bir sütunun son dolu olan satırını bulmak için koddaki 1 yerine sütun numarasını girin.

Bir de başka bir yolla deneyelim

Sayfadaki son satır

Dim iSonSatir As Integer, ws As Worksheet
Set ws = Worksheets("Sheet1")
iSonSatir = ws.Cells.SpecialCells(xlCellTypeLastCell).Row

Bu kodun diğerinden farkı şu; Bu kod, sayfadaki dolu olan veya şekillendirilmiş son hücreyi bulur.

üstteki kod ise aralıksız dolu olmak koşulu ile son satırı bulur.Aksi takdirde boşluktan önceki son satırı bulur.

Şimdi de dolu olan son sütunu bulalım. Yöntem aynı.

1. yöntemle son sütun

Dim iSonSutun As Integer, ws As Worksheet
Set ws = Worksheets("Sayfa1")
iSonSutun = ws.Cells(iSatir, ws.Columns.Count).End(xlToLeft)

1. yöntemle son sütun

Dim iSonSutun As Integer, ws As Worksheet
Set ws = Worksheets("Sayfa1")
iSonSutun = ws.Cells.SpecialCells(xlCellTypeLastCell).Column

Son satırı bulmak için kullanılan yöntemler arasındaki fark burada da geçerli