+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Son Satır No Bulmak (/konu-excel-son-satir-no-bulmak.html)
Excel Son Satır No Bulmak - accessman - 14/01/2020
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
Cvp: Excel Son Satır No Bulmak - berduş - 14/01/2020
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
Cvp: Excel Son Satır No Bulmak - feraz - 14/01/2020
iRow = Counta(sheets(sheeetName) .range("A:A"))
Bu kod dolu hücreleti sayar
Cvp: Excel Son Satır No Bulmak - feraz - 14/01/2020
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).RowCvp: Excel Son Satır No Bulmak - accessman - 14/01/2020
Kod:
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim k As Long
k = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.CountCvp: Excel Son Satır No Bulmak - accessman - 14/01/2020
Burda nasıl olmuş anlayamadım