Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Choosing Pages to Copy
Hi:
I have a large worksheet containing a lengthy report that I need to further automate. I need to send this to Acrobat and if I can get this to work it will save massive amounts of time merging, etc the pdf file. I need to be able to have a macro select another sheet, determine which pages in that sheet have data, then copy the sheet, select the original (master) sheet, find the next empty section, and paste the copied data. All Pages in all worksheets are sized alike and I have been able to get the following code to select the data and print it , but I could sure use some help going forward. Sheets("Estimated Parts").Select Range("o129").Select If ActiveCell < "" Then ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1 End If Range("O99").Select If ActiveCell < "" Then ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1 End If Range("o69").Select If ActiveCell < "" Then ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1 End If Range("o39").Select If ActiveCell < "" Then ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1 End If Range("o9").Select If ActiveCell < "" Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1 End If Thanks in advance for your help, Sam |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto-populate, Auto-copy or Auto-fill? | Excel Worksheet Functions | |||
how do i auto number pages in excel | Excel Discussion (Misc queries) | |||
Auto Number Several Pages | Excel Discussion (Misc queries) | |||
Auto Fill Cells, When Choosing From Drop-Down List... | Excel Worksheet Functions | |||
How do I remove the auto border from my printed pages in Excel | Excel Discussion (Misc queries) |