This is the VBA enabled Invoice that generate your invoice summary and also generate PDF of Invoice.
We all know that reporting is most important of an firm or company or any business. If you make invoices but not make that summary, you can not recognise your business fluctuations. So it is important to make a summary of your work.
In this auto Invoice sheet you can select your products that you want to sale with buyer and consignee details and with auto sum calculations of Taxes. Also it has some useful formulas like, Data Validation, Vlookup, iferror, sumif etc along with VBA codings. You can learn lots of with this sheet.
It also generate a summary of invoices that you create with one click. You can also generate a PDF copy for mail or future use.
Sub SUMMARY()
‘
‘ SUMMARY Macro
‘
‘
Range(“G5”).Select
Selection.Copy
Sheets(“SUMMARY”).Select
Range(“A1”).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range(“A1”).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
Range(“J5”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
Range(“A6”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
Range(“D8”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
Range(“D9”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
Range(“A12”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
Range(“D14”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
Range(“D15”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
ActiveWindow.SmallScroll Down:=21
Range(“N39”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
ActiveWindow.SmallScroll Down:=0
ActiveCell.Offset(0, -4).Range(“A1”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
Range(“L39”).Select
ActiveWindow.SmallScroll Down:=-6
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=6
Sheets(“SUMMARY”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
ActiveWindow.SmallScroll Down:=0
Range(“O39”).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(“SUMMARY”).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range(“A1”).Select
Sheets(“INVOICE”).Select
ActiveWindow.SmallScroll Down:=-24
Range(“G5”).Select
End Sub
FOR PDF GENERATOR USE THIS:
Sub SAVEPDF()
‘
‘ SAVEPDF Macro
‘
‘
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
“C:UsersHPDesktopTAXINVOICE NEW.pdf”, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range(“G5”).Select
End Sub
ALSO YOU CAN CREATE MACRO BUTTONS FOR YOUR EXCEL SHEET.