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("c2").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
Macro_Cari baris terakhir.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
