Terima kasih para master sekalian. Tutorial yang sangat bagus dan mudah dimengerti.
2018-03-12 17:36 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] < [email protected]>: > > > Ok baiklah... > > 0. Kita anggap ada dua sheet dalam workbook saya, yaitu sheet INPUTAN dan > sheet DATA > > artinya, tidak ada Excel Table Object di dalam sheet. Jadi data adalah > disuatu area range. > > dari gambar, > - sheet bernama New (sebagai sheet INPUTAN) : (lokasi copy) > -> header 1 baris saja di baris 1 Excel, mulai kolom A sampai kolom C > (3 kolom) > -> records-nya rapat mulai baris 2 Excel. > - sheet bernama Data (sebagai sheet DATA) : (lokasi paste) > -> header 1 baris saja di baris 1 Excel, mulai kolom A sampai kolom C > (3 kolom) > -> records-nya rapat mulai baris 2 Excel. > > 1. Di sheet INPUTAN saya blok semua record (header tabel TIDAK ikut > diblok). Lalu klik kanan, pilih Copy > > setara dengan kegiatan berikut : > klik sheet bernama New > -> Sheets("New"). > klik header di kolom pertama data (A1) -> > Range("a1"). > lalu tekan CTRL A (select all), > -> CurrentRegion. > lalu area yang terblok digeser turun 1 baris Excel (offset > +1 baris dan 0 kolom), -> Offset( 1 , 0 ). > kemudian CTRL C (copy) > -> Copy > > jadi di dapat 1 baris kode : > Sheets("New")...Range("a1").CurrentRegion.Offset(1,0).Copy > > 2. Klik sheet DATA, letakkan cursor di cell A2 (cell A1 ada header tabel). > Klik kanan, di Paste option pilih Value > 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. > > dua proses ini berarti selalu *paste values* di baris baru di sheet > data. > > Kegiatan yang setara adalah : > ke sheet bernama Data > > -> Sheets("Data"). > menuju baris terakhir Excel di kolom A (header pertama di kolom > A) -> Cells( > Sheets("Data").Rows.Count , "A" ). > naik ke data terakhir dengan CTRL panah ke > atas > -> End(xlUp). > lalu dari cells terakhir berisi data dilakukan turun 1 baris > Excel (offset +1 baris dan 0 kolom) -> Offset( 1 , 0 ). > kemudian klik kanan pilih *paste special* dan pilih *values > *diakhir > tekan OK -> PasteSpecial xlPasteValues > > jadi di dapat 1 baris kode : > Sheets("Data").Cells( Sheets("Data").Rows.Count , "A" > ).End(xlUp).Offset(1,0).PasteSpecial xlPasteValues > > ***** dengan 2 baris kode, sudah selesai proses copy paste > ***** lebih simpel dan bagus daripada yang di dapat dari internet yang > diposting itu kan.. > > 3. Setelah record tercopy/paste di sheet DATA, maka cursor kembali ke > sheet INPUTAN untuk menghapus semua record yang sudah dimasukkan ke sheet > DATA. > > ini berarti menghapus isi area sheet New yang di-copy tadi kan... > bedanya hanya kegiatan yang dilakukan, yaitu berubah dari CTRL C menjadi > menekan tombol DELETE di keyboard > klik sheet bernama New > -> Sheets("New"). > klik header di kolom pertama data (A1) -> > Range("a1"). > lalu tekan CTRL A (select all), > -> CurrentRegion. > lalu area yang terblok digeser turun 1 baris Excel (offset > +1 baris dan 0 kolom), -> Offset( 1 , 0 ). > tekan tombol DELETE di keyboard -> > ClearContents > > jadi di dapat 1 baris kode : > Sheets("New").Range("a1").CurrentRegion.Offset(1,0).ClearContents > > 4. Masih di sheet INPUTAN, klik cell A2 (untuk bersiap-siap > memasukkan/mengetik data baru. > > ini berarti menuju ke header di kolom pertama di sheet bernama New, lalu > aktifkan cells A2 > CTRL G lalu tulis alamat cells A1 (header pertama di A1) > beserta lokasi sheet-nya tekan OK -> Application.Goto > Sheets("New").Range("A1") , TRUE > klik cells A2 agar menjadi cells aktif > > -> Sheets("New").Range("A2").Activate > > dapat 2 baris kode : > Application.Goto Sheets("New").Range("A1") , TRUE > Sheets("New").Range("A2").Activate > > 6. Begitu seterusnya. > > di VBE, buat sebuah procedure di sebuah general module, lalu isi dengan > baris-baris kode di atas > > kemudian di worksheet, buat sebuah shape lalu assign macro ke prosedur > yang telah dibuat tadi > > > *** Syarat dan ketentuan berlaku > (lihat bagian 0.) > > Regards, > Kid > > > > > 2018-03-12 15:59 GMT+07:00 Cari Kebenaran [email protected] > [belajar-excel] <[email protected]>: > >> >> >> 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 Copy >> 2. Klik sheet DATA, letakkan cursor di cell A2 (cell A1 ada header >> tabel). Klik kanan, di Paste option pilih Value >> 3. 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 erow >>> 2 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+7 >>> *Subject:* 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 >>> <https://www.youtube.com/watch?v=_2h2Buzhcf4> >>> >>> Demikian atas bantuannya disampaikan terima kasih. >>> >>> >>> >>> Assalamu'alaikum >>> >>> >>> >> > >
