alvian-cs blog

Cara Mengcopy Data Otomatis Menggunakan VBA Macro Excel

Cara Mengcopy Data Otomatis Menggunakan VBA Macro Excel

Mengcopy data secara otomatis akan memudahkan anda, ketimbang harus menekan tombol ctrl + c secara terus-terusan setiap ingin menyalin data. Dengan memanfaatkan fitur Ms. Excel, VBA Macro, anda dapat mempermudah pekerjaan tersebut. Dengan hanya membuat satu macro berisikan perintah-perintah tertentu, anda dapat membuat sebuah program pengcopy otomatis.

Seorang netizen bernama Yohanes, mengeluhkan masalah program excel-nya bahwa dia ingin menyalin data secara otomatis menggunakan macro excel. Kemudian saya berinisiatif untuk membuat postingan ini untuk membantu beliau memecahkan masalahnya. Program berikut adalah tentang bagaimana cara menyalin data secara otomatis menggunakan VBA Macro Excel.

Langkah #1: Aktifkan Tab Developer

Jika anda masih baru dalam menggunakan macro, dan tidak tahu cara mengaktifkan menu developer pada excel, silakan lihat postingan ini:

Langkah #2: Membuat Data

Anda dapat membuat rumpunan data yang dibuat seperti tabel. Untuk lebih jelasnya, anda bisa meniru contoh data milik Mas Yohanes dibawah ini:

Anda dapat meletakannya pada Sheet1:
Tabel Microsoft Excel
Sheet 1
Ini adalah hasil salinan yang dapat anda letakkan pada Sheet2:
Tabel Microsoft Excel
Sheet 2

Langkah #3: Membuka Code Editor

Untuk membuka code editor pada excel, silakan buka menu developer anda, kemudian pilih view code. Jika kode editor sudah muncul, silakan membuat module baru kemudian tambahkan kode berikut didalamnya:
Sub Copy()
' Copy Macro
    Sheets(1).Select
    Range("A2").Offset(1, 0).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(2).Select
    If Range("A1").Offset(1, 0).Value = "" Then
        Range("A1").Offset(1, 0).Select
    Else
        Range("A1").End(xlDown).Offset(1, 0).Select
    End If
        ActiveSheet.Paste
    Sheets(1).Select
    Range("A1048576").ClearContents
    MsgBox "Penyalinan berhasil!", vbInformation, "Informasi"
End Sub 

Langkah #4: Membuat tombol

Untuk membuat tombol, anda bisa memanfaatkan shapes (Insert > Shapes) yang kemudian disulap menjadi sebuah tombol, lengkap dengan caption-nya. Setelah itu klik kanan pada tombol tersebut, dan klik Assign Macro. Di dalam daftar macro, pilih macro bernama Copy, kemudian klik OK.

Hasil akhirnya adalah sebagai berikut:
cara menyalin data secara otomatis dengan VBA Excel
Hasil akhir
Selesai. Silakan anda coba dan lihat hasilnya. Jika terdapat kesalahan atau anda mengharapkan improvisasi terhadap program diatas, silakan sampaikan lewat kolom komentar, dan saya akan berusaha memperbaikinya.

Apabila anda memiliki masalah berkenaan dengan program excel anda, jangan sungkan untuk mengemail saya di arubiandesu@gmail.com dan akan saya buatkan tutorial-nya secara cuma-cuma.

File asli milik: Yohanes Sefrianto Laga Keraf
Dimodifikasi oleh Alvian Casablancas

Download file lengkapnya (16kb)




28 Comments

28 comments:

  1. terimaksih banyak,,,,ini yang saya cari.....sekali lagi trmksh

    ReplyDelete
  2. terimaksih banyak,,,,ini yang saya cari.....sekali lagi trmksh

    ReplyDelete
  3. Bagaimana jika yang di kopi adalah data yang ada formulanya, sementara hasil paste yang di inginkan adalah nilainya saja tanpa formula..

    ReplyDelete
    Replies
    1. Pertanyaan bagus Mas. Mudah saja. Caranya tinggal mengubah sintaks paste biasa sebagai berikut:

      ActiveSheet.Paste

      Menjadi Paste Special dibawah ini:

      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

      Salam

      Delete
    2. maaf mas... mohon pencerahan berkaitan dengan pertanyaan yg ini..
      bagaimana cara auto paste valuenya.
      misalnya di satu kolom adalah hasil yg ada formulanya dan yg saya ingin di kolom sebelahnya otomatis terpaste nilai yg tidak ada vormulanya... terimakasih pencerahannya mas

      Delete
  4. gan, bisa bantu, contoh begini saya punya 6 sheet pada 1 file excel (sheet1, sheet2, sheet3, sheet4,sheet5 dan sheet6), saya ingin membuat 1 tombol macro yang sekaligus mengcopy 3 sheet yang saya perlukan saja menjadi 1 file baru yang di dalam filenya terdapat sheet2, sheet5 dan sheet6 dengan copy paste value,, gimana gan

    ReplyDelete
  5. data saya hanya 1 baris, untuk "Copy" yang pertama dan kedua berhasil tetapi untuk yang ketiga kalinya dan seterusnya proses peng-copy-annya berhasil tetapi menimpa di hasil baris kedua.
    intinya di sheet Hasil datanya cuma maksimal 2 baris (walaupun peng-copy-annya berkali kali.
    mohon pencerahanya mas bro..
    kalo boleh penjelasan dari semua kode di atas.
    thanks

    ReplyDelete
  6. Gan mau tanya nee.
    Saya kan jualan lagu2 mp3 trus saya juga buat daftar tabel lagu mp3 di excel sesuai dengan nama penyanyi / nama band dan genrenya masing2 trus disitu juga ada kolom untuk memilih lagu yg mereka pilih / kehendaki ketika mau beli lagu, pertanyaan saya bisakah excel difungsikan untuk mengcopy / menyalin secara otomatis file2 mp3 yg sudah dipilih / dikehendaki oleh custemerku ?
    Biar saya tidak manual lagi harus mencari file2 lagu yg mereka pilih / kehendaki.
    Mohon pencerahannya gan. Terimakasih

    ReplyDelete
  7. kalo dri exel ke web ada tutorialny?

    ReplyDelete
  8. Mas vian saya kirim email permasalahan saya, semoga bisa dibantu terimakasih..

    ReplyDelete
  9. mas

    saya mau tanya bagaimana cara buat macro untuk konversi 2 file xls,
    1 file dengan format vertikal ke format horizontal

    terima kasih

    ReplyDelete
  10. gan tanya dong,
    klo mau paste nya di file yang berbeda, itu gimana yach?
    Terima kasih

    ReplyDelete
  11. mas kalo misal form input datanya mengikuti tanggal yg seperti di kalender bisa gak yah? jadi ketika besok semua sudah kosong yang ada di databasenya dan yg sekarang udah ada di databes ... jadi kolom yang akan di isi besok udah kosong dan udah ngikutin tanggal seperti di kalender

    ReplyDelete
  12. kalau selectionya pada kondisi tertentu gmana gan contohnya yg dikopy hanyalah cell tertentu dengan kondisi tertentu

    ReplyDelete
  13. mau tanya dong mas.
    Bisa gak sih syntax vba di sheet awal otomatis tercopy bila membuat sheet baru?
    Mohon pencerahannya.

    ReplyDelete
  14. mau tanya mas, gmana jika kita ingin mengcopy dengan menduplikat beberapa data contoh saya ingin mencopy data di colom A1 dan B1,B2,B3 dan seterusnya dan hasilnya colom A1 akan otomatis terduplikat ke A2,A3 menyesuaikan banyaknya jumlah data yang ada di colom B seandainya Colom B yg terisi hingga B10 berarti kolom A1 akan terduplikat hingga A10

    terimakasih sebelumnya gan

    ReplyDelete
  15. terimakasih sangat bermanfaat
    namun pas cuma satu data saja kok debug dia mas, mesti minimal dua data baru bisa copy datanya kalo cuma satu saja yang kita inputkan debug dianya

    ReplyDelete
  16. code berfungsi dengan baik,,,
    tapi kalo pas di klik tombolnya,,,setelah ada konfirmasi penyalinan berhasil,,,data yang di sheet 1 nya ko ga hilang yah (keinginannya sih bersih lagi,,jadi mulai dari kosong lagi tabelnya sheet 1 nya...

    ReplyDelete
  17. Saya mau tanya klo di excel ada beberapa sheet. Kita mau save as ke file .csv tapi cuma satu sheet saja gmn codenya? Terimabkasih

    ReplyDelete
  18. yang mau tahu hingga menguasai case diatas. copy otomastis sesuai range time. silahkan japri 0813 9737 3326. ada juga script wa kirim otomatis ke no hp customer. indah nya berbagi.

    ReplyDelete
  19. Terimakasih.. sangat bermanfaat..
    tp ane coba buat data imputan yang ada rumusnya.. pas di proses rumus nya ikut kebawa ke sheet yang dituju..
    Bagimana ya solusinyaa.. coding yang tepat bagamana ya.. mohon petunjuk..
    Tks banget atas nasehatnya..

    ReplyDelete
  20. Terima kasih.. sangat membantu, semoga berkah ya ilmu nya.

    ReplyDelete
  21. mau tanya donk kak..
    jika c3 terisi maka untuk paste ke range c4 gimana kak??

    ReplyDelete
  22. mas mau beli scriptnya bisa?hub kemana?

    ReplyDelete
  23. bagaimana cara memindahkan kolom (header) barcode ke kolom B ya, yang mana kolom barcode posisinya tdk pasti menentu

    ReplyDelete
  24. Titanium Tail-Ounce (Tibet) - Titsanium-Arms.com
    Titsanium titanium dog teeth is a unique titanium core made titanium dioxide formula for titanium mens ring a modern titanium hoop earrings and premium finish. The design of the T-Tibet head makes for a great fit titanium build in both body and

    ReplyDelete

Cara Mengcopy Data Otomatis Menggunakan VBA Macro Excel Cara Mengcopy Data Otomatis Menggunakan VBA Macro Excel