hehehhe.. lha itu yang disarankan mas Zain : baris = Cells(ActiveSheet.Rows.Count, "C").End(xlUp).Row Dari Cells baris ke ActiveSheet.Rows.Count pada kolom "C" naik ke atas alias End(xlUp) lalu di ambil nomor Row nya Kalau mau ambil baris baru setelah data terakhir, berarti sebelum ambil Row nya dilakukan Offset(1)
;) 2014-09-22 16:32 GMT+10:00 Nang Agus [email protected] [belajar-excel] < [email protected]>: > > > Dear Pak Hendrik, > > Terima kasih, udah clear, ternyata cari data terakhir tidak harus dari > atas, bisa dicari dari bawah seperti: > baris = Range("c1048676").End(xlUp).Offset(1).Row > > Terima kasih pak Hendrik, maaf sudah 5 hari baru sempat buka jawabannya. > > Wasalam > NangAgus > > 2014-09-17 12:10 GMT+07:00 hendrik karnadi [email protected] > [belajar-excel] <[email protected]>: > >> >> >> Coba oprek2 file terlampir. >> >> Salam, >> HK >> >> >> On Wednesday, 17 September 2014, 8:13, "Nang Agus [email protected] >> [belajar-excel]" <[email protected]> wrote: >> >> >> >> Asalamualaikum mas Zaenul, >> >> Masih belum bisa; >> Jika digunakan: >> baris = Cells(ActiveSheet.Rows.Count, "C").End(xlUp).Row >> hasilnya sama dengan: >> baris = Range("c1").End(xlDown).Offset(1).Row >> >> Wasalam >> NangAgus >> >> 2014-09-17 8:05 GMT+07:00 'zainul_ulum[at]yahoo[dot]com' >> [email protected] [belajar-excel] <[email protected]>: >> >> >> Mas Agus, >> Kalo dicoba >> >> baris = Cells(ActiveSheet.Rows.Count, "C").End(xlUp).Row >> >> bissa nggak ? >> >> wassalam >> -zainul >> >> *From:* [email protected] [mailto: >> [email protected]] >> *Sent:* Wednesday, September 17, 2014 7:03 AM >> *To:* BExcel >> *Subject:* [belajar-excel] Transpose Data mentah vertikal menjadi table >> horizontal-Macro [1 Attachment] >> >> >> السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ >> >> Kepada member B-Excel >> >> Mohon bantuannya untuk mengubah cekrip. >> >> Saya belajar membuat cekrip mencari cell kosong terakhir pada kolom C. >> Judul kolom terletak pada baris 2 (“C2”). >> Saya membutuhkan nomor baris dengan bantuan cekript: >> baris = Range("c1").End(xlDown).Offset(1).Row >> sukses untuk data pertama, jika ditambah data selanjutnya akan menumpuk >> pada data pertama. >> >> Saya coba dengan mengubah cekript menjadi: >> baris = Range("c*2*").End(xlDown).Offset(1).Row >> jika cell C3 sudah terisi data pertama, cekript ini sukses untuk mengisi >> data ke-2 dan seterusnya, namun apabila data masih kosong melompong cekript >> ini menjadi error “ Run-time error ‘1004’: Aplication-defined or >> object-defined error” >> Haruskah ditambah IF C3 = “” then … else … >> >> Atau ada cara lain mengubah cekript tersebut? >> Terima kasih. >> >> >> وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ >> >> NangAgus >> >> >> >> >> > >
