Invoice form make new page?

  • Thread starter Thread starter biben
  • Start date Start date
B

biben

I have an Invoice form and I want to create a new empty invoice form on
a new worksheet if the first one is full, keeping the first one as page
1 (worksheet1). I also want to transport the ordersum from page 1 to
page 2 and place it in a chosen cell for calculating the total on page
2. The total to be displayed only on page 2.

Maybe It can be done with a Macro and a button to choose new page if
the first one is full.

Solutions anyone?
 
You should have worksheet set up as a blank form to copy. You can the
use a macro like this (you will have to amend it as required.

'-------------------------------------
Sub AddPage()
Dim CurrPage As Worksheet
Dim NextPage As Worksheet
'------------------------
Set CurrPage = ActiveSheet
'copy blank
Worksheets("blank").Copy after:=ActiveSheet
Set NextPage = ActiveSheet
NextPage.Name = "Page2" 'change sheet name
'- transfer previous balance
NextPage.Range("A1").Value = CurrPage.Range("A1").Value
End Sub
'----------------------------------------------------
 
Back
Top