Xldown demek aşağı demek.

Koda göre A1 den başlayıp a1in son dolu satırına kadar bakar.
Eğer A sütununda hücrelerde boşluk varsa tam çalışmaz
Yani.

Örneğin.
A1 dolu
A2 dolu 
A3 boş
A4 doluysa
A2 ye kadar devam eder yani A4 daki satır numarasını vermez.

(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.

iRow = [Counta(Muayene!A:A)] + 1

şu kod içersine "muayene" kelimesinin yerine değer gireceğim mesela şöyle
dim sheetname as string
sheetname = "accesstr"

iRow = [Counta(   sheetname     !A:A)] + 1


neden bunda ısrarcıyım çünkü sayfa ismi "Muayene" iken tam istediğim sonuç elde ediyorum ama bu sayfa ismi sabit olmayacak değişebilen bir değer
o yüzden bu kod satırına nasıl sheetname olarak sayfa ismi girebilirim

iRow = [Counta(databaseSheetName & "!A:A")] + 1
böyle yazarsam hep ikinci satıra kaydediyor demekki
[Counta(databaseSheetName & "!A:A")]
dinamik olmakla birlikte ilk satırı buluyor
yani aslında bulmuyormuş yanlış geçersiz olduğundan 0 kabul ediyor demekki

sh.Range("A1", sh.Range("A1").End(xlDown)).Rows.Count + 1

bu işimi gördü ama arada hiç boş satır olmaması gerekecek galiba
mantıken de zaten boş olmamalı ama eğer boş olması farketmeyecek olsaydı nasıl yazmamız gerekirdi

Standart son satır no bulma alttaki gibidir."a" yazan yere birde yazabilirsiniz.
Alttaki kodu yazınca gerekirse
İf irow<2 then irow=2 gibide koşul eklenir.Tabii önceki dediğiniz kodu kullanmak size kalmış.

Birde 3 yerine xlup yazabilirsiniz aynı.xldown yanılmıyorsan 4 yada 1 idi

Yada çoğu kullanıcı countA yani fonksiyonunu kullanır ondada boşluk olmamalı.

iRow = sheets(sheeetName) .cells(rows.count,"a").end(3).row