Auto Sort/Print Macro

I have a document with 4 rows that I would like to automatically sort in Alphabetical (or numerical) order and then print. These docs are updates 3 times a day and it takes a while to open each one, sort and then print. I would like to know if there is a macro that would sort and print right when I open the document? Is this possible? Thanks for the help!

Yes. Could you please upload a sample document with dummy data so that we know what the range is that needs to be referenced in the macro for the sorting? Our all of the docs designed to use the same range of cells, or do they vary?

Here is an example of one of the documents. It is a list of Inventory with amount, cost, and total. I want them to be sorted alphabetically and then printed 3 times a day automatically. It is a list of over 5,000 rows in my actual data set though.

Thanks a lot!

Is this what you want? The workbook automatically sorts the first column alphabetically when it is opened and then runs the print function. If this is what you want, I can show you how to apply the macro to your workbooks, assuming they are all 4 columns.

Your initial question was whether each file could automatically sort and print when you opened it. Your last message implies to me that you would like the entire process to occur automatically: open, sort, print. If that's the case, you would need macro software to tell your operating system to open the files at scheduled times. That is not something that could be done within Excel itself.

Yeah I would like it to be opened by me and then sort and print. I don't need to use task scheduler or anything like that. How would you go about applying this macro to my workbooks? Thanks again for the help

Here is a link to a video showing you how to apply the macro:

http://www.youtube.com/watch?v=zXpMS0deYyI

Here is the macro so that you can copy and paste it:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A:D").Sort Key1:=Worksheets("Sheet1").Range("A1"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.PrintOut
End Sub

Hope this helps!

Thanks so much for your help! Amazing!

One more question (Sorry)

If I had a massive merged header at the top and my info started at like row 10 (like in this example) , how would that change the code? Also, if my tab isn't called Sheet1 (its called "Inventory") would I need to change that as well? Thanks again for all your help!!

You are correct that the code would need to be modified for the name of the spreadsheet and the range of cells. Here is an example of how you would change it.

Private Sub Workbook_Open()
Worksheets("Inventory").Range("A10:D10000").Sort Key1:=Worksheets("Inventory").Range("A10"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.PrintOut
End Sub

The two references to sheet 1 are now Inventory. The reference to the range of cells should begin with the row where the first product is listed. The end of the range can be any row after the first row. I used 10000 to allow for larger lists. You mentioned 5500 items, so 10000 should be sufficient.

Thanks a lot for all the help!!