Macro to increase a cell value by 1 and print the page?

[vbull]

I've got what I think is a fairly solvable problem..but my macro knowledge is limited to recording macros and basic editing. Can anyone help?

I've got a sheet that I need multiple printouts of, each one has a number in a cell which needs incrementing by one. The user will set the range to be printed (on a separate sheet) by typing a value into a cell for the starting value (in this case cell B2 of Sheet1) and the end value in B3 of sheet1 (both inclusive). Run the macro and cell I1 in Sheet4 is set to the starting value, sheet4 is printed and the process is repeated incrementing by 1 untill the end value is reached. (Does that make any sense!?)

I've tried various ways of looping through but keep coming unstuck. Can anyone help?

Cheers

-Mike

 

[Peter_SSs]

vbull

Welcome to the Mr Excel board!

Untested, but see if this is headed in the right direction.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> Increment_and_Print()
    <SPAN style="color:#00007F">Dim</SPAN> StartValue <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> EndValue <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> v <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
    
    StartValue = Worksheets("Sheet1").Range("B2").Value
    EndValue = Worksheets("Sheet1").Range("B3").Value
    <SPAN style="color:#00007F">For</SPAN> v = StartValue <SPAN style="color:#00007F">To</SPAN> EndValue
        Worksheets("Sheet4").Range("I1").Value = v
        Worksheets("Sheet4").Print
    <SPAN style="color:#00007F">Next</SPAN> v
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[vbull]

Thanks for such a quick reply...I'll give it a try

-Mike