Sequential Numbering

[Caily]

Hi, I am trying to set up a 'rent receipt' template that will save today's receipt with today's date in the file name, but also number the receipt itself sequentially. Thanks.

 

[Michael M]

Hi Caily and Welcome to the Board
This will save the current worksheet to the current directory and call it Rent Receipt - todaysDate.

Sub SavingIt()
Dim Fname As String, sname As String
Application.ScreenUpdating = False
Fname = Format(Date, "dd-mm-yy") & ".xls"
sname = ThisWorkbook.Path
Set wb = ActiveWorkbook
        With wb
            .SaveAs sname & "\Rent Receipt- " & Fname
            .Close
        End With
Application.ScreenUpdating = True
End Sub

To number sequentially, you need to provide what number sequence you are using, 001, A1, 100, etc and the cell where this number will be stored.
At least you have a start on the filename

 

[Caily]

Thanks so much Michael. It worked, yay.
I'm starting the receipt numbers at 001 in cell D4. If I use a template, will the numbers keep going up, or will it only work if I open last week's receipt and use it as the template for this week's receipt? Not sure how it all works. Thanks very much.
Caily

 

[Michael M]

If you want the number to change every time you open the workbook use this

Sub auto_open()
On Error GoTo Err
    With Range("D4")
    .Value = Range("D4") + 1
    .NumberFormat = "000"
    End With
Err:
End Sub