jessicaspencer
New Member
- Joined
- Oct 14, 2014
- Messages
- 4
Please can someone help! I've never written a macro before! I've got this far but keep getting the same error message and despite reading numerous forums for advice, I can't see where I've gone wrong!
I am trying to create a Purchase Order template that will open with a new sequential number each time and will force a new file name when saved, ideally the name to be the sequential number... If it cooooould, I'd quite like the date to drop in upon opening as well
Please help!!
I am trying to create a Purchase Order template that will open with a new sequential number each time and will force a new file name when saved, ideally the name to be the sequential number... If it cooooould, I'd quite like the date to drop in upon opening as well
Please help!!
Code:
Private Sub Workbook_Open()
Sub NextPO()
Range("G4").Value = Range("G4").Value + 1
Range("A16:E32").ClearContents
Range("G3").Value = Date
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Sub SavePOWithNewName()
Dim NewFN As Variant
' Copy PO to a new workbook
ActiveSheet.Copy
NewFN = "Y:\\YS-SBS2011\YSL Purchase Order\YSL-PO" & Range("G4") & Range("G3").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextPO
End Sub
Last edited by a moderator: