Mungkin perlu ditambahkan: Application.Volatile Agar hasil senantiasa ter-update ketika ada penambahan/pengurangan row.
>semoga bermanfaat --- In belajar-excel@yahoogroups.com, Rara Wilis <ra2wilis@...> wrote: > > rumusnya > > JUMLAH (BANYAKNYA) Baris Daata > =Rara_LastRow(A4)-7 > > NOMOR Baris Terakhir > =Rara_LastRow(A4) > > > *Syarat dan ketentuan Ketat yg berlaku bagi UDF "Rara_LastRow* > > Struktur tabel tiap sheet = *harus sama * > yg berbeda hanya CACAH (banyaknya) Baris Data yg *selalu dimulai dari baris > No.7* > > Cell Pertama tiap tabel (Top-Left-Corner-nya) boleh di mana saja tidak haru > A1 > tetapi di ATAS maupun di KIRI nya harus kosong ! > > Input Data (dlm Contoh = pada sheet "Jumlah Baris" *cell A4,* *cell A5*dst ) > adalah cell berisi data type string: NAMA SHEET yg akan dihitung baris > datanya > Misal *SHEET bernama "A"* maka Inputnya di cell A4 *tulislah "A" *; *JANGAN > "Sheet A"* > > [image: Inline image 1] > > wassalam, > ~Rara > > text vba code untk UDF Rara_LastRow > ( code ini adalah cukilan UDF ctv_RealUsedRange buatan mbak siti, thank you > mbak siti...) > > Public Function Rara_LastRow(ShtName As String) As Long > ' Rara / ra2wilis@... > ' menentukan nomor [row berdata] terakhir > '-------------------------------------- > Dim Sht As Worksheet, LstRow As Long > Set Sht = Worksheets(ShtName) > On Error Resume Next > Rara_LastRow = Sht.Cells.Find(What:="*", _ > SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row > End Function > '------------------------- > > > > 2012/6/5 him mah himmah.mlg@... > > > > Assalamu alaikum Wr. Wb. > > misal kita punya sheet dengan jumlah baris tertentu, diantara baris > > baris tersebut ada cell yang digabung (merge) > > Yang jadi masalah > > > > 1. bagaimana menentukan jumlah baris antara baris tertentu, misalnya > > jumlah baris anatara baris judul (header) dengan barus jumlah > > 2. bagaimana menentukan baris terakhir dari sheet tersebut > > > > file contoh saya lampirkan > > terima kasih >
