(14/01/2020, 18:22)accessman yazdı: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
Bu kod zaten son satır numarayı bulmaz en sondaki .count tan dolayı.
Sadece sayar önceki mesajımdaki dediğim olay olarak.