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
>
>
>
