Automatic numbering of docs from template

  • Thread starter Thread starter Ian
  • Start date Start date
I

Ian

It is my understanding that Excel can automatically number
successive invoices which are opened from an invoice
template (as I recall there is such a template in a
version of Excel that I have used previously). I have
designed a job sheet template and would like to have each
successive jobsheet from this template assigned an
automatically incrementing number which prints out on the
jobsheet. Is this possible?
Thanks
Ian
 
Ian, this macro by Andrew Poulson will increment the number, in a template,
in cell A1 each time the workbook is opened:

Private Sub Workbook_Open()
' By Andrew Poulsom
'will make a text file called Numbers in C:\Program Files\Microsoft
Office\Office
Dim FName As String
Dim FNo As String
Dim x As Long
FName = Application.Path & Application.PathSeparator & "Number.Txt"
FNo = FreeFile
x = 0
On Error Resume Next
Open FName For Input As #FNo
Input #FNo, x
x = x + 1
' *** Change range reference to suit ***
If Range("A1").Value <> "" Then Exit Sub
Range("A1").Value = x
Close #FNo
FNo = FreeFile
Open FName For Output As #FNo
Write #1, x
Close #FNo
End Sub


--
Paul B
Always backup your data before trying something new
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
 
Back
Top