Mengcopy Data dan Menghapus Duplikat di VBA Excel

Setelah sekian lama tidak update di situs ini, kali ini Saya akan menyajikan tutorial atas dasar permintaan salah satu pembaca yang mengemail Saya. Beliau ingin tahu cara menyalin data dari satu sheet yang berisi kumpulan data unik yang mana banyak kesamaan data dan beliau juga butuh menghilangkan kesamaan data yang ada pada tabel tersebut.

Jika Anda memiliki keluhan yang sama dengan pengirim tadi, berarti Anda beruntung dapat singgah di postingan ini, namun jika Anda tidak memiliki keluhan serupa, mungkin Anda bisa belajar dari kasus tersebut dan mencoba menemukan solusinya di artikel ini.

Solusinya sederhana, untuk mengcopy data, Anda bisa menggunakan property copy dan menempelkan dengan paste. Sebelumnya pernah disinggung di artikel Cara Mengcopy Data Otomatis. Untuk menghapus data yang sama, Anda bisa menggunakan property RemoveDuplicates. Untuk lebih jelasnya, silakan ikuti langkah-langkah berikut:

LANGKAH 1:

Buatlah lembar kerja baru dengan nama terserah.

LANGKAH 2:

Sheet 1 diberi nama "Database" berisi data akun di bawah ini (bisa disalin, blok data kemudian copy - paste ke lembar kerja pada sel A1).

Account	Name
10000005	Vernon
10000005	Vernon
10000005	Vernon
10000005	Vernon
10000006	Mitsuko
10000006	Mitsuko
10000006	Mitsuko
10000006	Mitsuko
10000006	Mitsuko
10000006	Mitsuko
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000010	Trang
10000010	Trang
10000010	Trang
10000010	Trang
10000010	Trang
10000010	Trang
10000010	Trang
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000020	Kenda
10000020	Kenda
10000020	Kenda
10000020	Kenda
10000020	Kenda
10000020	Kenda
10000020	Kenda

LANGKAH 3:

Sheet 2 diberi nama "Account List" dan berisi tabel dengan header kolom bertuliskan "Account List" di sel A1 (nama opsional).

Account List

LANGKAH 4:

VBA Macro pada Module1 diisikan sintaks sebagai berikut:

Sub SalinDanDeduplikasi()
Sheets("Database").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Account List").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub


LANGKAH 5:

Tetapkan Macro yang sudah dibuat diatas bernama SalinDanDeduplikasi pada objek yang Anda kehendaki seperti button, shape, maupun langsung dari Macro Runnernya.

Convert Excel ke PDF Menggunakan VBA Excel

Tujuan konversi file excel menjadi PDF adalah untuk memudahkan pembaca melihat data dengan tampilan yang mirip seperti buku elektronik. Sebenarnya, anda bisa saja mengubah file excel dan mem-publishnya menjadi PDF melalui menu File - Save & Send.

Namun, bagi programer dan developer, mereka terkadang membutuhkan perintah yang lebih sintaksis dan programatikal. Dan metode tersebut dapat dilakukan dengan menggunakan bahasa pemrograman VBA (Visual Basic for Application) atau dengan bantuan Macro.

Nah, pada kesempatan ini, anda akan belajar bagaimana cara membuat perintah konversi dari sheet tertentu menjadi sebuah buku PDF. Mari simak cara convert excel ke PDF menggunakan VBA Excel dibawah ini:

1. Buka Microsoft Excel
2. Langsung saja tekan Alt + F11 untuk menampilkan code editor VBA, atau klik perintah View Code di Menu Developer.
3. Buat sebuah module, kemudian isi dengan kode berikut:
   Sub SimpanSheetToPDF()

   '*****************************************************

   'Code Created By Heru Monas P

   'Purwokerto , 03 Okt 2015 , GSP RE 5

   '*****************************************************

   'Buat Rekan yang berminat belajar dasar VBA / Macro Secara Private

   'Atau memerlukan jasa pembuatan Macro untuk mempermudah pekerjaan

   'Atau memerlukan jasa pembuatan aplikasi berbasis Excel

   'Bisa menghuungi Saya

   '*****************************************************

   'Pembuatan Code Macro pada File ini saya rekam dalam video tutorial

   'Dengan judul yang sama dengan nama File

   'Bagi yang berminat , bisa menghubungi saya

   'Semoga File ini bermanfaat

   '*****************************************************

   ThisWorkbook.ExportAsFixedFormat xlTypePDF, "Hasil Konvert File Excel", xlqualitystandart, False, True, 2, 5, True

   MsgBox "sudah di konvert ke PDF" & vbCrLf & " Nama File Hasil Konvert File Excel.pdf"

   End Sub
4. Buat juga sebuah tombol (anda dapat menggunakan shape atau command button).
5. Rancang dan desainlah Sheet 1 kurang lebih jadi seperti dibawah ini:
   

   

   Sheet 1 (klik untuk memperbesar)
6. Rancang juga untuk Sheet 2, kurang lebih seperti gambar dibawah, karena kita akan menampilkan PDF dengan konten yang tertuang dalam sheet 2.
   

   

   Sheet 2 (klik untuk memperbesar)
7. Jika sudah, kembali ke sheet 1, klik kanan pada tombol, pilih Assign Macro dan pilih macro bernama SimpanSheetToPDF.
8. Selesai. Sekarang tinggal coba klik pada tombol tersebut, maka skrip akan bekerja dan membuka file PDF outputannya secara otomatis.

Itulah cara konversi Microsoft Excel ke PDF Menggunakan Macro VBA Excel. Jika anda mengalami kesulitan dalam memahami kode atau mempraktikannya, anda dapat menanyakannya di kolom komentar dibawah.

Kredit script dan aplikasi: Heru Monas Prasetyo

Download file jadi