14/01/2020, 16:14 #1 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.396 Konuları: 901 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 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 Cevapla Cevapla
14/01/2020, 17:12 #2 Berduş berduş Bul Uzman Adı Soyadı: ha.... Konum: - Ofis Versiyonu: Ofis 2019 64 Bit Son Oturumu: Dün,23:54 Yorumları: 5.417 Konuları: 94 Kayıt Tarihi: 30/07/2014 Rep Puanı: 692 yanılmıyorsam bu kod son satırı bulmak için kullanılmaz belirli bir bölgedeki dolu hücre sayısını göstermek için kullanılır Cevapla Cevapla
14/01/2020, 17:53 #3 Uzman feraz Bul Uzman Adı Soyadı: Za.... Yaşı: 43 Konum: - Ofis Versiyonu: Ofis 2016 32 Bit Son Oturumu: Dün,23:36 Yorumları: 2.427 Konuları: 84 Kayıt Tarihi: 30/03/2013 Rep Puanı: 242 iRow = Counta(sheets(sheeetName) .range("A:A")) Bu kod dolu hücreleti sayar Cevapla Cevapla
14/01/2020, 17:55 #4 Uzman feraz Bul Uzman Adı Soyadı: Za.... Yaşı: 43 Konum: - Ofis Versiyonu: Ofis 2016 32 Bit Son Oturumu: Dün,23:36 Yorumları: 2.427 Konuları: 84 Kayıt Tarihi: 30/03/2013 Rep Puanı: 242 iRow = sheets(sheeetName) .cells(rows.count,"a").end(3).row Buda a sütununun son satırını bulur Alttakide sayfadaki son satır no bulur tüm sütunlara bakar ve biraz yavaş çalışır. Kod MsgBox sheets(sheeetName).Cells.Find("*", , , , xlByRows, xlPrevious).Row Cevapla Son Düzenleme: 14/01/2020, 18:09, Düzenleyen: feraz. Cevapla
14/01/2020, 18:22 #5 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.396 Konuları: 901 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 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 Cevapla Cevapla
14/01/2020, 18:24 #6 accessman Bul Kıdemli Üye Adı Soyadı: Konum: Denizli Ofis Versiyonu: Ofis 2003 Son Oturumu: 12/01/2021,20:07 Yorumları: 4.396 Konuları: 901 Kayıt Tarihi: 31/10/2008 Rep Puanı: 434 Burda nasıl olmuş anlayamadım Cevapla Cevapla