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