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
