Loop issue

**punter** · 03-02-2011, 05:16 PM

Thank you in advance for your time,

I need the code below to loop:

Sheets("Royalty Worksheet").Select
ActiveCell.FormulaR1C1 = "=sales!R[-11]C[2]"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

What I am looking to do is pull the Site column number (starting at C11) on the sales tab and have it populate cell A22 on the Royalty Worksheet tab. Various vlookups are based off the newly populated cell. At that point I'd want the sheet to print.

Once the sheet has printed I'd want to pull the next number in the column in the Site column (C12) and it continue as long as there are numbers in the column.

I have tried various loops and I can't get it to work. Any help would be great.

Thanks,

Eddie

**barryleajo** · 03-02-2011, 06:08 PM

Hi Punter
Have a look at the attached as a starter.
Not fully fashioned but should get you going.
barry

**punter** · 03-02-2011, 07:42 PM

Thank you so very much. This is almost 100% of what I need!!!

Only one minor issue: The printer box is coming up each time so I have to manually press print. Do you know what the command would be so it just printed and then moved on to the next store? Currently it moves on to the next store if I manually hit print but would love the macro to do that part also.

Thank you so very much.

Eddie

**barryleajo** · 03-03-2011, 04:23 PM

Hi Eddie
Glad this is taking you forward.
I have modified the macro slightly to give continuous printing without the dialog.
You may wish to encompass this and other printing parameters within a self-designed userform.
Hope this helps
barry

Loop issue

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Loop issue

Re: Loop issue

Re: Loop issue

Re: Loop issue

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions