Benzersiz Bir Kayıt Numarası Oluşturun - Excel İpuçları

İngiltere'den Janet bugünün sorusunu sordu.

Benzersiz bir fatura numarası atayacak bir makroyu nasıl kuracağımızı, tamamlanmış faturayı benzersiz numara olarak kaydedecek ikinci bir makroyu nasıl kuracağımızı bilmemiz gerekir.

İşte hayal ettiğim varsayımsal uygulama. Fatura çalışma sayfası ve Menü çalışma sayfası içeren bir çalışma kitabı var. Son fatura numarasını Menü çalışma sayfasındaki kullanım dışı bir hücreye kaydetmeyi öneriyorum, Z1 diyelim. Fatura numarasının fatura çalışma sayfasının H2 hücresine girmesi gerekiyorsa, bu makro hile yapar:

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

Ardından, Faturayı kaydetmek için şuna benzer bir şey:

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