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
@benbendedeilem
MsgBox sheets(sheeetName).Cells.Find("*", , , , xlByRows, xlPrevious).Row
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
Dim k As Long
k = sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count