Copy Sheet Dan Auto Rename Dengan Nama Pada Range Sheet Tertentu

Menduplikat (copy) suatu sheet menjadi suatu sheet baru sangatlah berguna dalam proses administrasi di suatu pekerjaan yang terkait dengan data mendata, seperti membuat form kwitansi, purchase request, purchase order, form pendaftaran, dll.

Akan tetapi kita terkadang lupa ataupun memang tidak terpikir untuk memberi nama kepada sheet-sheet baru tersebut sehingga akan tercipta nama sheet secara manual yang dilakukan oleh program excel itu sendiri.

Contoh :

Apabila kita menduplikat sheet1 maka akan tercipta nama sheet1(2),sheet1(3),dst.

Hal tersebut mungkin akan membingungkan kita dalam hal pencarian data nantinya. Pemberian nama pada sheet adalah cara bijak untuk mempermudah pekerjaan kita selanjutnya.

Kali ini saya akan mencoba berbagi tips and trick mengenai hal tersebut.

Langkah pertama

Buatlah form yang anda butuhkan dalam pekerjaan anda pada sheet2 dan beri nama sheet tersebut dengan nama Form. (kali ini saya akan memberi contoh dengan form formulir pendaftaran calon karyawan)

Kali ini saya akan menduplikat sheet (Form) tersebut dan me-rename nama sheet barunya sesuai dengan No Formulir yang terdapat pada range C4.

*catatan :

perlu diingat bahwa pemberian nama pada sheet tidak bisa menggunakan simbol-simbol tertentu dan maksimal karakternya adalah 32 karakter, maka alangkah bijaknya gunakan angka dan huruf saja. Apabila membutuhkan separator maka gunakanlah simbol (-).

Langkah Kedua

Buatlah commandbutton pada sheet1 dan beri caption "Copy Form" (tanpa tanda kutip).

Langkah Ketiga
Masuklah ke menu VBA excel dengan cara double click pada commandbutton tersebut (dalam Design Mode)



Masukan source code sebagai berikut :

Snama = ActiveWorkbook.Sheets("Form").Range("C4") 'inisial untuk nama sheet baru
If Snama = "" Then
MsgBox ("Masukan Nama Sheet !!!"), vbCritical, ("PERINGATAN") 'apabila range C4 kosong maka akan muncul peringatan
Exit Sub
Else
ActiveWorkbook.Sheets("Form").Copy _
after:=ActiveWorkbook.Sheets("Form")
ActiveSheet.Name = Snama
ActiveSheet.Protect 'untuk mem-protect sheet baru agar tidak bisa di edit
End If

Langkah Keempat
Isilah data yang dibutuhkan pada Form tersebut.

Lalu Klik commandbutton pada sheet1 (off kan dulu Design Mode nya), maka terciptalah sheet baru dengan nama "001-FPCK-I-2018" dan sheet tersebut ter-protect.

(apabila ingin mengeditnya maka unprotect dulu ya..)




Mungkin cukup segitu dulu tips and trick dari saya semoga bermanfaat bagi kita semua.

Jangan lupa untuk memberikan komentar bagi anda yang menggunakan copy sheet dan auto rename dengan nama pada range tertentu

Demikian yang dapat admin bahas tentang cara Copy Sheet Dan Auto Rename Dengan Nama Pada Range Sheet Tertentu.

Berbagi :