Perbanyak Sertifikat dan SAVE PDF OTOMATIS
HTML-код
- Опубликовано: 5 окт 2024
- di atas adalah vidio tutorial tentang cara memperbanyak sertifikat kemudian menyimpannya secara otomatis menggunakan nama yang ada di sertifikat.
semoga bermanfaat
Silakan di copy
Option Explicit
Const FOLDER_SAVED As String = "C:\Users\ACER\Documents\New folder (2)\Certificate"
Const SOURCE_FILE_PATH As String = "C:\Users\ACER\Documents\New folder (2)\database.xlsx"
Sub MailMergeToIndPDF()
Dim MainDoc As Document, TargetDoc As Document
Dim dbPath As String
Dim recordNumber As Long, totalRecord As Long
Set MainDoc = ActiveDocument
With MainDoc.MailMerge
'// if you want to specify your data, insert a WHERE clause in the SQL statement
.OpenDataSource Name:=SOURCE_FILE_PATH, sqlstatement:="SELECT * FROM [Sheet1$]"
totalRecord = .DataSource.RecordCount
For recordNumber = 1 To totalRecord
With .DataSource
.ActiveRecord = recordNumber
.FirstRecord = recordNumber
.LastRecord = recordNumber
End With
.Destination = wdSendToNewDocument
.Execute False
Set TargetDoc = ActiveDocument
TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields("NAMA").Value & ".docx", wdFormatDocumentDefault
TargetDoc.ExportAsFixedFormat FOLDER_SAVED & .DataSource.DataFields("NAMA").Value & ".pdf", exportformat:=wdExportFormatPDF
TargetDoc.Close False
Set TargetDoc = Nothing
Next recordNumber
End With
On Error Resume Next
Kill FOLDER_SAVED & "*.docx"
On Error GoTo 0
Set MainDoc = Nothing
End Sub
'adopted from learndataanaly...
'with additional delete docx file
Wah sangat membantu pekerjaan kantor saya, di yt lain malah codingnya berbayar, disini GRATIS. semoga digantikan rezeki dan ilmu yang lebih banyak buat bu ANISA
بارك الله فيك
Semoga Allah membalas kebaikan Mbak Anisa Rizki dan menjadikan ini sebagai amal jariyah . Amin
Ini dia yg saya cari selama ini. Terima kasih banyak bu Anisa.
Saya berhasil membuatnya. Terima kasih byk atas ilmunya. Sangat bermanfaat dan membantu. Semoga sentiasa dilimpahi rezeki yg tidak putus-putus❤
Sangat membantu sy dan teman" lain yg suka buat sertifikat kegiatan hanya lembar word SJ trus buatnya satu persatu..video ini sangt membantu terimakasih buat pemilik channel ini semoga ttp sehat selalu dan dilancarkan semua rezeq..Amiin🤲🤲
Kontennya sangat membantu bagi saya. Semoga sukses dan sehat selalu❤
terimakasih banyak... semoga selalu dianugrahi ilmu baru..
sangat membantu sekali...barokhaallah..
terima kasih Bu Anisa
terimakasih banyak buu, sangat membantu saya dalam pembuatan e-certiff
Makasih kak, Alhamdulillah terbantu.
Baik banget mau ngasih kodingan nya.
Terima Kasihh banyakkkk😍😍😍😍
Alhamdulillah.. Akhirnya ktmu jawabnya.. Sgt mbantu skali utk job baruku.. Makasih ya sist.. Smoga sll dksh keberkahan.. 🥰
بارك الله فيك
SYUKRON JAZILAN
Sangat Bermanfaat, Terimakasih atas ilmunya 🙏
Sangat membantu sekali kak, terimakasih sudah mempermudah tugas saya sebagai panitia, untuk feedback nya , akan saya subscribe, semoga chanel ini dpt bermanfaat untuk semua orang 🙏❤️
sama-sama kak,,, terimakasih subscribenya. Jangan lupa share , agar vidio ini lebih bermanfaat lagi.
Mantaaapp mb Anisa Rizqi Amaliyah, Terima Kasih Share Content RUclips "Cara Memperbanyak Sertifikat dan Simpan Otomatis dlm PDF", Sangat bermanfaat dan sangat membantu pekerjaan, semoga semakin sukses ya mb... GBU
sangat membantu....terima kasih
sangat membantu sekali, dan selalu jadi rujukan tiap mau bikin sertifikat untuk webinar, makasih kak
Semoga membantu ya
Terimakasih ini yang emng dicari👍👍
Masya Allah, terimakasih banyak kak..
Terima kasih, videonya sangat membantu sekali..
alhamdulillah makasih bu tutorialnya 🙏
Terimakasih banyaak ya. Bermanfaat sekali di kerjaan. Semoga rezekinya selalu di lancarkan
terima kasih, konten ini sangat membantu dalam pembuatan e certificate. sehat selalu
Terima kasih. Sangat bermanfaat
keren.. trima kasih ilmunya
wah, terima kasih banyak infonya sangat membantu
Makasiiiiiiiiii ya allahhh lagi deadline kerjaan ada cara iniiii❤️❤️😭😭😭😭😭😭😭😭
terimakasih tutorialnya, siap mencoba semoga berhasil
Terima kasih, Bu. Sangat membantu 🙏🙏 mau sungkem dulu 😭🙏
sangat membantu, terima kasih ilmu nya mba . . . sehat selalu yaaa
Semoga menjadi amal jariyah buu
Ya Allah bisa, pengen nangeesss rasanya setelah ratusan kali debug debug debug....Terimakasih ya Mba Anisa....semoga selalu dilimpahi kesehatan dan rezeki yang banyaaaaakkkk.....
cara ngakalinnya gimna, Mba? kalau debug terus itu
Terimkasih banyak kak, sangat membantu
terimakasih informasihnya bu.. semoga ilmunya menjadi ladang pahala dan rezekinya bertambah dari berbagai cara.. aamiin..
Mba Makasih banyak ya, sangat bermanfaat, semoga pahalanya mengalir terus. Aamiin
Makasi mba Anisaaa sangat membantuuuu
Terimakasih,sangat membantu
Terima kasih infonya Bu 👍🙏
Terima kasih informasinya bu Nisa...
Sangat bermanfaat 👍🏼
keren kontennya sangat bermanfat,jelas pemaparanya dan dikasih options nya juga beda dengan dengan konten sebelah yang sama memaparkan tapi tidak ada options nya hehe semangat mbak....
Terima kasih ya
Gbu
terimakasih ka, sangat membantu
Mantap, terima kasih
kereeen
Wah ada nama dosenku. Miss Ani Meitikasari
Tutorialnya sangat membantu Bu. Terimakasih
Terimakasih 🥰
Terimakasih kak 🙏🏻🙏🏻🙏🏻🙏🏻 sangat membantu sekali 🙏🏻🙏🏻
terimakasihhhh sangat membantu saya🤍🙏🏻🥺
Sangat informatif bu. Makasih
Makasii banyak kaaa, berhasilll!!
TerimKash🙏
Sangattt membantu. Terima kasih banyak bu😭🙏
Sangat membantu terima kasih :D
BAGI yg mengalami problem ketika di eksport atau di save menjadi pdf namun ternyata hasilnya malah menjadi 2 halaman padahal harusnya 1 saja. Hal itu jga sempat terjadi pada saya, namun skrng saya menemukan solusi untuk mengatasinya. Caranya adalah, bagi yg memiliki design sertif nya sendiri maka perlu di Insert ke dalaman wordnya. Kemudian ini bagian yg terpenting, yakni UBAH WRAP TEXT PICTURE NYA MENJADI "Behind Text" caranya dengan klik gambar sertifnya > lalu klik "Picture Format" dibagian menu bar (biasanya paling kanan) > lalu klik "Wrap Text" > dan pilih "Behind Text".
Dengan demikian, gambar sertifnya akan berada di bawah text yg akan kita buat nanti. Jika tidak diubah, maka di dokumen asal setiap filenya akan berjumlah 2 halaman.
Itu saja sedikit dri yg saya tahu berdasarkan pengalaman, semoga dapat membantu memecahkan masalah tersebut.. Terimakasih
helpful banget kak, thankyou!!!!
@@izzadawy my pleasure!
TERIMA KASIH
terimakasih kak
canggih kakkkkk
Akhirnya bun, diutak atik ampe begadang bisa juga.. Ternyata nama certifikate- harus ada dan nama sheet juga hrs sama dg data exelnya.. Tadinya nama sheet punyaq beda makanya kok coding eror mulu..
Makasih bun bantuannya..
iya sama, akhirnya nama file yg paling atas dinamain apa ya?
@@azkaanisaalw9019 atas yg mana kak?
@@ferryrahman4845 yg bagian C:\Users\ACER\Documents\New folder (2)\Certificate"
Const SOURCE_FILE_PATH As String = "C:\Users\ACER\Documents\New folder (2)\database.xlsx"
itu kak. setiap di ganti dan di run selalu not found
@@azkaanisaalw9019 yg tulisan certifikat ditambah - jadinya certifikate-
@@ferryrahman4845 ACER nya jg ganti kan ya sesuai merk, trs lainnya jg ga?
Makasih banyak ya teeeh :))
Terimakasih bu'e
Thank u kak
Makasih Mbak Nisaa😘😘
Aaaaaakk, makasih 😭😭
Kak makasih tutorialnya sangat membantu. Untuk save otomatis per 2 halaman gimana solusinya?
pagi kak anisa, mohon solusi dan pencerahan kalau selalu muncul "Debug" pada bagian berikut : TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields("Nama_Peserta").Value & ".docx", wdFormatDocumentDefault
atas jawabannya disampaikan terima kasih
sama kaka problem nya disini.. kira2 bagaimana ya
mau tanya, waktu saya run katanya file excel saya tidak ditemukan itu kenapa ya bu? tempatnya juga udah benar, nama file juga udah benar
kak mohon arahannya dong pas di bagian microsoft visual basicnya aku sering gagal cuma gara gara nama yang di salin itu yang bagian atas mohon bantuannya dong
Muncul compile error' : variabel not defined, mohon pencerahan
Maaf bu, sudah saya klik run tp tidak muncul2 ya sertifnya?
Kenapa saya gk bsa ya selalu muncul tulisan debug dan muncul TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields("NAMA").Value & ".docx", wdFormatDocumentDefault, padahal sdah di simpan di 1 folder excel dan wordnya serta sudah di mailing jga sesuai petunjuk pas mau di run mana ada tanda kuning ini, mohon dibantu karna saya dari pagi sudah mencoba tetap saja gagal, mohon solusinya yang jelas
mau tanya bu.... saya nyobak kok gak mau apa windowsnya berpengaruh, alnya saya pake win7???
Maaf kak mau tanya, setelah sudah jadi semuanya jadi pdf, kok jadi ada 2 halaman ya? Yg 1 sertif yang 1 halaman kosong.. bagaimana agar tidak menjadi 2 halaman?
kok aku debug terus ya kak?
Cara agar file name nya 2 dengan tambahan ( _ ) gimana yah tambahan di script nya. Misal Nama_NIP, Mohoan dibantu kak.
wah laptop saya gak ada Microsoft Visual basic for applications nya
Sangat membantu, tapi scriptnya ko ndak bisa dicopy ya min..?
Permisi ibu, izin bertanya.. mengapa ketika saya coba file wordnya tidak terhapus otomatis yaa bu 🙏
Kalau gitu di sort by type saja kak, nnti kan yg word bersusun dengan yg word terus tinggal di hapus wordnya. Hehehe
kak, saya kok gak stop yaa MSW setelah selesai semuanya, malah lanjut run baris/kolom yg kosong. bagaiaman caranya membuat baris excel hanya menampilkan bagian yg kita mau cetak pdf kak?
mba saya coba praktekkin kok file tidak ditemukan terus ya padahal sudah sesuai namanya
mau tanya, misal ada 2 halaman berarti di word dibuat 2 halaman dahulu baru kita run utk ke pdf nya ya kak?
Kak setelah saya klik run kok malah yang keluar select table ya kak
Assalamualaikum bu, terima kasih sebelumnya, sudah bisa sampai akhir, tapi waktu mau menggandakan PDF save otomatis, buka ALT+FN+F11 nya isi nya kosong ya bu punya saya, kaya blank , dan tidak bisa isi codingnya kenapa gitu bu?
Kak Anisa, alhamdulillah caranya berhasil. Namun ada sedikit kendala, di file docx padahal hanya satu halaman, tapi setelah menjadi PDF kok malah jadi dua halaman ya? Mohon bantuannya, Kak. Makasih, Kak.
Alhamdulillah, coba cek ukuran kertasnya kak... coba Setting leter.
@@anisarizqiamaliyah1996 Siap, Kak. Nanya lagi, Kak. Semisal pengen buat nama filenya jadi nomor urut plus nama gimana ya, Kak. Contohnya gini nama file nya nanti "031. Muhammad Ahmad"
kalo nama doang udah bisa, jelas banget di video kakak. Makasih, Kak.
@@kahhahomestay1815 pastikan di database Exel dan sertifikat (word) juga sudah ada nomornya ya kak. Kemudian coba cek di menit ke 9:13
Selamat mencoba.
@@anisarizqiamaliyah1996 sudah dicoba mengubah ukuran kertas masih saja 2 halaman kak
kok saya pas klik run itu muncul select table ya? itu kenapa ya?
Selamat siang kak, mohon bantuannya. Saya sudah memasukan rumus sesuai instruksi tapi selalu debug di bagian:
TargetDoc.SaveAs2 FOLDER_SAVED & .DataSource.DataFields("NAMA").Value & ".docx", wdFormatDocumentDefault
bagaimana ya?
samaa, bantu jawab dong Kak
Silakan cek di menit ke 5.20 kak.
Dan Pastiakn semua file yg diperlukan dijadikan 1 folder ya kak. Soalnya itu tertera FOLDER_SAVED yg debug. Jadi kemungkinan masalahnya di snaa.
@@anisarizqiamaliyah1996 kak kok masih debug ya ?
@@anisarizqiamaliyah1996 sudah kak tp masih debug juga
@@aldero10 Perhatikan "NAMA". Jika di tabel Excel mas menulis "Nama", maka jangan tulis huruf besar semua. Penulisan harus sama persis.
halo kak... kalo mau nge save dengan 2 jenis data source rumusnya gimana ya? pake koma kah?
Boleh minta rumusnya mbak, please🙏
ada di description box mbak
Di canva langsung gak bisa ya kak?
Kira kira apakah bisa disimpan ke folder yang berbeda-beda?
Agar bisa satu halaman aja gimana ya caranya, soalnya sudah saya coba ganti kertas dari A4 ke kertas letter hasilnya masih sama 2 halaman🙏
kenapa sertifikat sudah jadi dalam bentuk pdf nya tidak full 1 lembar? gimana cara memperbaiki nya?
Maksudnya bagaimana kak? Terpotong atau bagaimana. ?
Coba setting word nya kertas letter
bukan terpotong kak tapi sertifikat nya terlalu kecil, jadi ada space kosong di kertasnya
Kak @Anisa kalau kertasnyaa diubah jadi ke letter kalau diprint nanti gaakn ke potong?
biar saved name nya Nama_Nama Sekolah edit di codingnya seperti apa yaa? thanks before
Silakan cek menit ke 9:04
Kak izin,bisa Ndak master paswordnya dibagikan via Word di Google Drive. ? Soalnya kalo di deskripsi password-nya Tidak beraturan kak.. TRIms ka
.OpenDataSource Name:=SOURCE_FILE_PATH, sqlstatement:="SELECT * FROM [Sheet1$]", solusinya gmn ya kak?
nama sheet nya harus sama kk, baik di excel dan di rumus
Sis mcm mana nk dpt rumus ye..sy tak jumpa sis letak mana,mohon tunjuk ajar
Silakan cek di description kok
maaf kak, kenapa pak run error terus ya?
Kak kalau diubah kertasnya jadi letter apakah akan terpotong kalo diprint nya?
Kalau kertasnya cuma ingin hanya 1 saja bagaimana kak?