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 cahayailm...@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> 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 hendrikkarn...@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> 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' mr.nm...@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>
>> *To:* BeExcel <belajar-excel@yahoogroups.com>
>> *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 cahayailm...@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> 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
>>
>>
>>
> 
>
  • [belajar-excel] V... Cari Kebenaran cahayailm...@gmail.com [belajar-excel]
    • Re: [belajar... hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]
    • Re: [belajar... 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
      • Fw: Re: ... hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]
        • Re: ... hendrik karnadi hendrikkarn...@yahoo.com [belajar-excel]
        • Re: ... 'Mr. Kid' mr.nm...@gmail.com [belajar-excel]
          • ... Cari Kebenaran cahayailm...@gmail.com [belajar-excel]

Kirim email ke