iyi günler
iRow = [Counta(Muayene!A:A)] bunu
sheeetName = "Muayene"
iRow = [Counta(" & sheeetName & "!A:A)]
böyle yazdım kabul etmedi nasıl yazmak lazım
yanılmıyorsam bu kod son satırı bulmak için kullanılmaz belirli bir bölgedeki dolu hücre sayısını göstermek için kullanılır
iRow = Counta(sheets(sheeetName) .range("A:A"))
Bu kod dolu hücreleti sayar
iRow = sheets(sheeetName) .cells(rows.count,"a").end(3).row
Buda a sütununun son satırını bulur
Alttakide sayfadaki son satır no bulur tüm sütunlara bakar ve biraz yavaş çalışır.
Kod:
MsgBox sheets(sheeetName).Cells.Find("*", , , , xlByRows, xlPrevious).Row
Kod:
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim k As Long
k = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count
Burda nasıl olmuş anlayamadım