Thank you very much Trevor very awesome spreadsheet i learn a lot from you, The only think can you add is the profit calculation on this awesome spreadsheet as par FIFO calculation =IF($F19="","",$J$14) As the name of this project suggests Invoice and Inventory in Microsoft Excel we are going to demonstrate how you can create a simply awesome invoicing program that you may be able to modify the suit your own small business or personal needs.

Love the knowledge you share. Please do it will be complete Inventory system used for small business.

I would like to say i have added macros to even post the various details on the invoice in an invoice register after creation. On Error GoTo 0

Go to the name manager and check the names are in there. Inv. area.AdvancedFilter Action:=xlFilterCopy _ Register yourself now and be a part of our community! 'Protect_one 14:09 . Running advanced filters require that we unprotect our workbook to run the filter.

End Select, 'first sheet We all owe you a tremendous amount for freely sharing your knowledge! Set Myrange = Sheet2.range("C4:J54")

' Protect_All Owe it all to you.

'check for value That is not part of the project at the minute but I will keep it in mind for the future.

Dim DstRng As range 'destination range

'set the named range for the PDF Look at this data validation formula very carefully. This is not a feature but you may be able to modify it to suit. Thirdly, can i have a macro that can post some of the details on the invoice to a waybill.

The first is a formula for Data Validation List Source and the Offset formula is a dynamic named range called Customer that goes into the Name Manager as a dynamic named range. Select Case MsgBox _ I was more concerned about logging the invoices as the inventory tracking was already done, but this is a pretty basic inventory tracking invoice system.ozgrid.com/forum/core/index.php?attachment/49743/. & vbCrLf & "and the totals have been sent to Accounts" ' Purpose   :Set named ranges This is a comment I’ve taken from the website that may help you. Clr.Value = "" 'error handler

Sheet6.Select My best wishes. When an Excel data point reaches a certain value I would like that value to be "texted" or "SMS" to my cell phone provider so I can recieve the message. Add this formula to C16

Exit Sub 'dim variables Suppose we have a value of 200 in cell A1 on Sheet1 and want to update cell A1 on Sheet2 using the linking formula. Sheet6.PageSetup.PrintArea = "StateRng" Case vbNo Application.ScreenUpdating = False 'written by Trevor Easton 21/2/2013 Trev. & vbCrLf & "and the totals have been sent to Accounts" ws.range("ClearStock").ClearContents Next cell Trying to put my stock on the product page but every product code seems to change only first two letters but not the actual number i.e.