Tuesday, January 9, 2018

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.
 

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon