Coding
Sub NextInvoice()
Range("i9").Value = Range("i9").Value + 1
Range("B21:J30").ClearContents
End Sub
Sub SaveInvwithNewName()
Dim NewFN As Variant
'Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "C:\shafique\Inv" & Range("i9").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextInvoice
End Sub
For More video: Click Subscribe Button......, Like, Share & Comments.
No comments:
Post a Comment