Friday, October 27, 2017

Cara Convert Sheet Excel Ke Pdf Dengan Nama File Pdf Otomatis Dari Data Cell

Salam Pengguna Excel..!! Pada kesempatan ini Admin akan berbagai tentang Cara Convert Sheet Excel Ke Pdf Dengan Nama File Pdf Otomatis Dari Data Cell. Tujuan dari mengambil data dari cell sebagai nama file Pdf hasil convert agar tidak terjadi kesalahan nama file.

Sebenarnya ide menulis artikel ini karena pertanyaan dari salah seorang pengunjung blog yang menanyakan cara menyimpan File Pdf  dengan nama file secara otomatis, nama file berasal dari cell tertentu yang ada pada sheet. Dengan kata lain ada cell yang dijadikan acuan sebagai nama file Pdf secara otomatis


Asumsinya mungkin kurang lebih menurut Admin begini :

Pada sebuah lembaga pendidikan dalam satu ruang kelas memiliki jumlah siswa sebanyak 25 siswa.  Wali kelas yang bertanggungjawab menanggani raport tentu akan kesulitan jika Form raport persiswa  yang diubah ke Pdf harus menulis satu persatu nama Form raport sesuai dengan nama siswa. 

Ditambah lagi jika ada nama siswa dalam satu kelas tersebut memiliki nama yang sama. Tentu hal ini akan menjadi sedikit permasalah bagi wali kelas.

Menulis nama file secara manual tentu tidak dapat dipungkiri akan terjadi kesalahan dalam pengetikan. Sehingga saat akan mencari kembali file atas nama siswa tertentu akan kesulitan karena nama file salah.

Untuk menghindari kesalahan-kesalahan yang tersebut diatas maka alangkah lebih baik jika daftar nama siswa pada database yang sudah fix dijadikan sebagai nama file secara otomatis saat Sheet Form raport siswa di convert menjadi Pdf.

Ikut langkah-langkah yang akan Admin sajikan dalam artikel ini. Jika penjelasan kurang baik harap dimaklumi. Admin sendiri belajar menulis artikel dan belajar tentang Vba Excel itu secara otodidak.

Cara Convert Sheet Excel Ke Pdf Dengan Nama File Pdf Otomatis Dari Data Cell
  • Buka Excel dan ubah nama Sheet1 menjadi Database serta lengkapi tabel databasenya sesuai dengan yang terlihat pada gambar format gif diatas. Jika anda ingin membuat database dengan selera sendiri juga boleh.
  • Ubah nama Sheet2 menjadi Profil dan buatlah form sederhana sebagaimana terlihat pada gambar format gif diatas. Jika anda ingin membuat form profil dengan gaya sendiri juga boleh.
  • Jika tahap membuat database dan form biodata siap maka selanjutnya membuat 2 Range  dinamis dengan cara klik pada tab Formulas pilih Define Name dan akan muncul dialogbox New Name. Masukkan dengan ketentuan berikut ini:
1. Range Dinamis Untuk Database Yang Akan Dijadikan Vlookup
Name : "RangeDb" 
Refer to = "=OFFSET(Database!$A$4;0;0;COUNTA(Database!$A:$A);9)"

2. Range Dinamis Untuk Data Nama Yang Akan Tampil di Combo Box (Form Control)
Name : "RdbNama" 
Refer to = "=OFFSET(Database!$C$4;0;0;COUNTA(Database!$C:$C);1)"
  • Buatlah Vlookup pada sheet Profil dengan ketentuan sebagai berikut :
Vlookup pada cell D5
=IFERROR(VLOOKUP(H$1;RangeDb;2;TRUE);"")

Vlookup pada cell D6
=IFERROR(VLOOKUP(H$1;RangeDb;3;TRUE);"")

Vlookup pada cell D7
=IFERROR(VLOOKUP(H$1;RangeDb;4;TRUE);"")

Vlookup pada cell D8
=IFERROR(VLOOKUP(H$1;RangeDb;5;TRUE);"")

Vlookup pada cell D9
=IFERROR(VLOOKUP(H$1;RangeDb;6;TRUE);"")

Vlookup pada cell D10
=IFERROR(VLOOKUP(H$1;RangeDb;7;TRUE);"")

Vlookup pada cell D11
=IFERROR(VLOOKUP(H$1;RangeDb;8;TRUE);"")

Vlookup pada cell D12
=IFERROR(VLOOKUP(H$1;RangeDb;9;TRUE);"")
  • Selanjunya untuk melengkapi tambahkan Scroll Bar (Form Control) dengan cara klik pada tab Developer dan pilih pada Insert, klik pada Scroll Bar (Form Control) dan drag pada sheet serta sesuaikan ukurannya.
  • Tambah Combo Box (Form Control) dengan cara klik pada tab Developer dan pilih pada Insert, klik pada Combo Box (Form Control) dan drag pada sheet serta sesuaikan ukurannya.
  • Tambahkan Rectangle dengan cara klik pada tab Insert dan pilih pada Shapes. Pada pilihan shapes pilihlah Rectangle selanjutnya drag pada sheet dan sesuaikan ukurannya. Add text pada Rectangle dengan caption "Convert To Pdf".
  • Jika sudah selesai menempatkan element-element yang dibutuhkan pada tempat yang diinginkan atau dapat disesuakan dengan gambar format gif diatas selanjutnya kita akan mengatur properties masing2 element tersebut
  • Klik kanan pada Scroll Bar (Form Control) pilih Format Control. Muncul kotak dialog Format Control pada Tab Control isikan pada box cell link dengan "$H$1". 
  • Klik kanan pada Combo Box (Form Control) pilih Format Control. Muncul kotak dialog Format Control pada Tab Control isikan pada Input Range dengan nama range "RdbNama"yang cell link dengan "$H$1".
  • Pada sheet Profil buatlah print area untuk area yang akan dijadikan Pdf. Blok atau seleksi area A2 hingga E13, selanjutnya pilih Page Layout dan klik pada Print Area selanjutnya pilih Set Print Area.
  • Klik kanan pada Rectangle pilih Assign Macro. Pada kotak dialog Assign Macro pilih New dan masukkan kode Vba berikut ini :
Sub Profil_Rectangle1_Click()
On Error Resume Next
    MkDir ThisWorkbook.Path & "\SIMPAN SEBAGAI PDF\"
    On Error GoTo 0

NamaFile = Sheets("Profil").Range("D5") & "-" & Sheets("Profil").Range("D6")
If Sheets("Profil").Range("D5") = "" Then
MsgBox "File Harus Diberi Nama Untuk Menyimpan !", vbCritical, "Gagal Menyimpan"
Exit Sub
Else
    With ThisWorkbook.ActiveSheet
        fName = NamaFile ' akan jadi nama file
    End With
    '
    'mengexport sheet jadi pdf
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & "\SIMPAN SEBAGAI PDF\" & fName, Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "File " & NamaFile & ".pdf berhasil disimpan di folder SIMPAN SEBAGAI PDF", vbInformation, "Convert To PDF"
End If
End Sub
  • Uji tombol Rectangle dengan cara klik pada tombol tersebut. Jika anda sudah mengikuti dengan benar tahap demi tahap maka aplikasi Convert Sheet Excel Ke Pdf Dengan Nama File Pdf Otomatis Dari Data Cell berjalan sebagaimana terlihat pada gambar format gif diatas.
Demikian yang Admin dapat jelaskan mengenai artikel Cara Convert Sheet Excel Ke Pdf Dengan Nama File Pdf Otomatis Dari Data Cell. Semoga menjadi referensi bagi yang sedang mencari Cara Convert Sheet Excel Ke Pdf Dengan Nama File Pdf Otomatis Dari Data Cell. 

Jika anda ingin menyampaikan pertanyaan, saran serta kritikan mohon dapat disampaikan melalui kolom komentar dengan bijak.

Jika anda ingin memiliki contoh file penerapan Vba dan Aplikasi Vba karya Admin mohon dapat menghubungi WA admin dengan nomor 0811-6822-023.

Semoga membantu bagi pengunjung blog yang sudah bertanya kepada Admin hingga timbul ide untuk membuat artikel ini.

Nama Admin Zaki Fitriadi, Pengangguran, Blogger Awam Kelahiran Banda Aceh 1982, Mengenal Blog Tahun 2010, Baru Aktif Tahun 2015, Berbagi Apa Yang Dipejari Secara Otodidak di Dunia Maya

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon