adapun kode dari Subrutinnya : ' karena diluar Sub ... End maka timbul error
`Invalid Outside Procedure`
'Worksheets("Sheet1").Columns("A").Copy Worksheets("Sheet2").Columns("B")
Sub kopisheet()
Worksheets("Data").Columns("A:E").Copy Worksheets("Hasil").Columns("A")
End Sub
daripada mengetik , silakan sorot koding diatas mulai tulisan mulai sub sampai
End Sub lalu tekan [Ctrl] [C] --> copypada VBE tekan [Ctrl][V] --> Paste
To: [email protected]
From: [email protected]
Date: Mon, 30 Jan 2012 07:56:14 +0000
Subject: RE: [belajar-excel] Bagaimana Mengcopy Data Antar Sheet
Saya sertakan cara membuat Command button dan mengkaitkan event Click
semoga tak melanggar ukuran File . Kalau terpaksa saya kirim secara japri.
To: [email protected]
From: [email protected]
Date: Mon, 30 Jan 2012 14:34:10 +0700
Subject: Re: [belajar-excel] Bagaimana Mengcopy Data Antar Sheet
Secara umum, mengambil data (dapat dikatan juga merujuk bahkan anda pakai
istilah mengCOPY data) dari sebuah tabel dengan diketahui LABEL KOLOM dan LABEL
BARIS nya; kita dapat memanfaatkan fungsi INDEX.
Bahwa tabel ternyata ada di sheet lain, bahkan mungkin di workbook lain, ya
tetap sama. Yg berbeda hanya cara merujuk tiap range / cell nya saja.
INDEX ( Range_Tabel, Angka_IndexBaris, Angka_IndexKolom)
Sedangkan Angka-Index-Baris maupun Angka-Index-Kolom jika kita belum mendapat
HASIL yg sudah berupa ANGKA; dapat dicari denga MATCH
=INDEX_RangeTabel, Match_1, Match2)
Terlampir contoh yg sudah pernah ditayangkan di milis oleh Ni Mas Hapsari
(waktu itu pak guru muda sedang ke mana ya, he he..)..
Di situ dicontohkan merujuknya masih dalam sheet yg sama.
Untuk Sheet lain janganlan dijadikan kendala, karena kemarin sudah diberitahu
cara (notasi) merujuk cell/range pada SHeet/Book lain.
o'Seno
2012/1/30 guru muda <[email protected]>
>
> Salam,
> Kepada para warga milis belajar excel.
> Mohon dibantu bagaimana mengcopy data antar sheet dengan kriteria judul kolom
> yg sama.
> Dan nomor baris juga sama.
> Penjelasan selengkapnya dapat dilihat pada lampiran.
>
> Terima kasih
