GST Invoice – Auto Summary and PDF Generator ☑️

INVOICE IN EXCEL WITH AUTO SUMMARY AND PDF GENERATOR 

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. 
It has all the feature that you want in an invoice. 

THIS IS THE SIMPLE VBA CODING THAT YOU NEED TO PASTE IN YOUR EXCEL VBA MODULE


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.
FOR MORE DETAIL PLEASE WATCH THE ABOVE VIDEO
YOU CAN DOWNLOAD IT WITH BELOW DOWNLOAD BUTTON :

Leave a Comment