+- 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)
Cvp: Excel Son Satır No Bulmak - feraz - 14/01/2020
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.
Cvp: Excel Son Satır No Bulmak - feraz - 14/01/2020
(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.
Cvp: Excel Son Satır No Bulmak - accessman - 15/01/2020
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
Cvp: Excel Son Satır No Bulmak - accessman - 15/01/2020
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
Cvp: Excel Son Satır No Bulmak - accessman - 15/01/2020
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
Cvp: Excel Son Satır No Bulmak - feraz - 15/01/2020
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