Report

Recording Macro To Duplicate Page And Rename To Numeric Value [Solved]

Ask a question Shaun@1 2Posts Sunday March 13, 2016Registration date March 15, 2016 Last seen - Latest answer on Mar 15, 2016 10:04AM
Good day
I am trying to record a macro that duplicates a page and renaming it to another file name but need to follow in numeric order.
I have an 'Invoice' Excell workbook to invoice my clients.
My current page name is 'Invoice 187' obviously the next one should follow in numeri order: 'Invoice 188'.
I then also have a cell in the document that has the title 'Invoice' and the cell nect to it should have this number as well. The sell is E8.
I do not know how to do this, can someone please help?
What I have is the following:
"
' Keyboard Shortcut: Ctrl+p
'
Sheets("Invoice 187").Select
Sheets("Invoice 187").Copy After:=Sheets(1)
Sheets("Invoice 187 (2)").Select
Sheets("Invoice 187 (2)").Name = "Invoice 188"
Range("E8").Select
ActiveCell.FormulaR1C1 = "188"
End Sub
"
Any help would be appreciated
Thank you in advanceiated
Thank you in advanceou in advance
See more 
Helpful
+1
moins plus
Hi Shaun,

The following code will do as requested, even when you reach the 4 digits.
Just make sure you run the code from the latest invoice.

Sub RunMe()
Dim MyNumber As Integer
MyNumber = Right(ActiveSheet.Name, 4) + 1
ActiveSheet.Copy after:=Sheets(ActiveSheet.Name)
ActiveSheet.Name = "Invoice " & MyNumber
Range("E8").Value = MyNumber
End Sub



Best regards,
Trowa
Shaun@1 2Posts Sunday March 13, 2016Registration date March 15, 2016 Last seen - Mar 15, 2016 10:04AM
Hi TrowaD

This works perfectly.

Thank you very much I appreciate your help.

Kind regards
Shaun
Reply
Add comment

Members get more answers than anonymous users.

Being a member gives you detailed monitoring of your requests.

Being a member gives you additional options.

Not a member yet?

sign-up, it takes less than a minute and it's free!