Buat Nomor Rekaman Unik - Tips Excel

Janet dari Inggris mengajukan pertanyaan hari ini.

Kita perlu mengetahui cara menyiapkan makro yang akan menetapkan nomor faktur unik, cara menyiapkan makro kedua yang akan menyimpan faktur yang sudah selesai sebagai nomor unik.

Inilah aplikasi hipotetis yang saya bayangkan. Ada buku kerja dengan lembar kerja Faktur dan lembar kerja Menu. Saya mengusulkan untuk menyimpan nomor faktur terakhir di sel luar jalan pada lembar kerja Menu, katakanlah Z1. Jika nomor faktur seharusnya berada di sel H2 lembar kerja faktur, maka makro ini akan melakukan trik:

Sub GetNextInvoiceNumber() LastInv = Worksheets("Menu").Range("Z1").Value NextInv = LastInv + 1 Worksheets("Invoice").Range("H2").value = NextInv Worksheets("Menu").Range("Z1").value = NextInv End Sub

Kemudian, untuk menyimpan Faktur, sesuatu seperti ini:

Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub