Menggunakan contoh Awal (sheet one-input dan sheet two-output)
Langkah Pendahuluan (deklarasi Variabel dan setting baris terkahir)'Deklarasi
VariabelDim lastrow As Long, erow As Long'Setting baris akhir Sheet(one") dan
Sheet('two")
lastrow = Sheets("one").Cells(Rows.Count, "A").End(xlUp).Rowerow =
Sheets("two").Cells(Rows.Count, "A").End(xlUp).Row + 1
Langkah 1 s/d 2'Copy Sheet("one").Range("A2:E" & lastrow) ke
Sheets("two").Range("A" & erow)Sheets("one").Range("A2:E" & lastrow).Copy
Sheets("two").Range("A" & erow)
Langkah 3'Kembali ke Sheet("one") dan Hapus data pada
Sheet(one")Sheets("one").SelectSheets("one").Range("A2:E" &
lastrow).ClearContents
Langkah 4'Kembali ke Range("A2")Range("A2").Select
Selamat mencoba.
Salam,HK
On Monday, 12 March 2018, 4:38:02 PM GMT+7, Cari Kebenaran
[email protected] [belajar-excel] <[email protected]> wrote:
Terima kasih atas respon Pak Hendrik dan Pak Kid.
Menyambung pertanyaan dari Pak Kid:
Kid : Ini kasus copy semua record semua kolom (tanpa header) dari sheet inputan
ke baris baru di sheet data ?
Jawaban saya: YA. tetapi yang dicopy cuma nilai (value) saja.
Langkah-langkahnya:
Kita anggap ada dua sheet dalam workbook saya, yaitu sheet INPUTAN dan sheet
DATA
1. Di sheet INPUTAN saya blok semua record (header tabel TIDAK ikut diblok)..
Lalu klik kanan, pilih Copy2. Klik sheet DATA, letakkan cursor di cell A2 (cell
A1 ada header tabel). Klik kanan, di Paste option pilih Value3. Setelah record
tercopy/paste di sheet DATA, maka cursor kembali ke sheet INPUTAN untuk
menghapus semua record yang sudah dimasukkan ke sheet DATA.4. Masih di sheet
INPUTAN, klik cell A2 (untuk bersiap-siap memasukkan/mengetik data baru. 5.
Anggap ada data baru dan selesai diketik di sheet INPUTAN. Maka lakukan lagi
langkah 1 dan 2, tapi ingat letakkan data baru (record-record baru) itu di
bawah baris yang sudah terisi di sheet DATA. 6. Begitu seterusnya.
Agar tambah jelas, saya lampirkan ilustrasi yang saya anggap mewakili maksud
saya.
Terima kasih.
2018-03-12 15:21 GMT+07:00 hendrik karnadi [email protected]
[belajar-excel] <[email protected]>:
Coba buat code ini:'Deklarasi Variabel 1 baris Code
'Setting lastrow dan erow2 baris Code 'Copy Sheet("one").Range("A2:A" &
lasrow & ",C2:C" & lastrow)'ke Sheets("two").Range("A" & erow)1 baris Code
(boleh pake tanda sambung kalau kepanjangan)
Selamat mencoba.
Salam,HK
----- Forwarded message ----- From: 'Mr. Kid' [email protected]
[belajar-excel] <[email protected] >To: BeExcel
<[email protected] >Sent: Monday, 12 March 2018, 1:29:35 PM
GMT+7Subject: Re: [belajar-excel] VBA Code tidak Jalan
Wa'alaikumussalam wr wb
Ini kasus copy semua record semua kolom (tanpa header) dari sheet inputan ke
baris baru di sheet data ?
Kalau memang begitu, JANGAN pakai script yang Anda dapatkan dari internet itu...
Kalau Anda mau mencoba membuatnya sendiri yang lebih bagus daripada yang di
internet itu, coba jelaskan langkah manual meng-copy dan paste itu....
berurutan ya... seperti :
1. saya blok dulu area data yang bagian ini dengan cara : klik ini lalu tekan
ini dan itu
2. saya copy dengan menekan CTRL C
3. ke sheet data, lalu bla-blabla dengan cara bliblibli
4. saya paste dengan CTRL V
5. lalu begini
6. lalu begitu
7. dst
..
..
N. selesai
Tapi kalau gak mau juga gpp kok...
Wassalamu'alaikum wr wb
Kid
2018-03-11 17:09 GMT+07:00 Cari Kebenaran [email protected]
[belajar-excel] <[email protected] >:
Assalamu'alaikum
Kepada para master dan anggota milis. Tolong saya dibantu untuk menemukan
kesalahan VBA code yang saya sertakan dalam email ini. Kode tersebut untuk
melakukan copy paste antar sheet, tetapi tidak jalan di PC saya. Sekali lagi
tolong dibetulkan kesalahannya dimana/apa. Untuk diketahui, code tersebut saya
dapat di youtube. Di videonya bisa jalan, tetapi di komputer saya tidak jalan..
Ini link videonya:
https://www.youtube.com/watch? v=_2h2Buzhcf4
Demikian atas bantuannya disampaikan terima kasih.
Assalamu'alaikum
