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