Macro to increment a number up and print in reverse

Hi All

I have a macro and the moment that works by incrementing a number in sequence 1,2,3,4,5,6,7
but when it prints it does so by 1.2.3.4.5.6.7

Please Login or Register  to view this content.

but then I have to stand and put the pages 7.6.5.4.3.2.1 manually so that 1 is the first page you pickup.

Ideally I would like macro to increment up 1,2,3,4,5,6,7 but print 7.6.5.4.3.2.1 as when I do a print run of 100 sheets it gets a bit tedious reordering the sheets manually, this is for a 1 page data capture sheet, once I get to printing 200 sheets a time it will get a bit time consuming...

Total Macro novice..

Many Thanks

Hi Kev_

yes that seemed logical to me as well but it kills the macro....

hi kev_

For I = P To 1 Step -1

kills the macro and does not step or print

Hi kev_

thanks for all the help - have managed to nail it.

Regards Dino

You should explain how you solved it for the benefit of others. Then it promotes learning

it wasn't
Range("C3").Value = Range("C3").Value + 1 the plus needing to change to a minus?

regards

Dav

Originally Posted by davsth

You should explain how you solved it for the benefit of others. Then it promotes learning

it wasn't
Range("C3").Value = Range("C3").Value + 1 the plus needing to change to a minus?

regards

Dav

Sorry

This was the eventual macro used after a few trials

Please Login or Register  to view this content.

the macro opens a dialog box which asks for a number - eg 100
if you have the number 00001 in cell C3 the number then jumps to 00100 then counts back and starts to print with 00001 being the last number printed the cell C3 once the countdown has finished then changes to 00100 ready for the next print run