Направите јединствени број записа - Екцел савети

Јанет из Енглеске поставила је данашње питање.

Морамо да знамо како да подесимо макро који ће доделити јединствени број фактуре, како да поставимо други макро који ће сачувати попуњену фактуру као јединствени број.

Ево хипотетичке примене коју замишљам. Постоји радна свеска са радним листом „Рачун“ и радним листом „Мени“. Предлажем да последњи број фактуре сачувате у несметаној ћелији на радном листу Мени, рецимо З1. Ако би број фактуре требао да иде у ћелију Х2 радног листа, онда би овај макро послужио као трик:

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

Затим, да бисте сачували фактуру, отприлике овако:

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