Do While & Number Advancing

[jweese74]

MrExcel forums to the rescue again - furthermore, I always give full credit back to the forums when folks ask "how did you figure that out!?"

Cell B1 contains a number, we'll say "25";

I would like to increment the number in cell A1, beginning at "1" until it reaches the equivalent of B1 then STOP. Furthermore, with each increment perform another SUB (see my previous post "Conditional Printing" for more information).

Thoughts around this?

 

[Special-K99]

"See my previous post"

Better to post a link to it than have everyone running round searching for it.

I feel there's more information you need to supply so this is prob not what you want.
But it reflects you're fairly simple description.

Sub IncCell()
    For i=1 to Cells(1,2)
        Cells(1,1)=i
        Call SUB2
    Next i
End Sub

 

[jweese74]

My apologies for not being specific - I try to keep my requests as simple as possible, forgetting the userbase I'm communicating with who certainly has more ability than myself to understand complex questions.

Our organization tracks form data in an Excel spreadsheet. Each Form could have up to 100 lines of data, or 1 line of data. There could be between 1-100 individual forms as well. On the form itself, Cell H1 contains the total number of forms that need printed, Changing the value in Cell E1 will populate the form with the necessary data then the form is printed using the following Sub (in the thread I was previously referencing)...

Sub MySetPrintAreaMacro()

    Dim switch As String
    Dim r As Long
    
'   Find first value that indicates the switch
    switch = 1
    
'   Find first instance
    On Error GoTo err_chk
    r = Range("A:A").Find(What:=switch, After:=Range("A1"), LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row
    On Error GoTo 0
        
'   Set print range for columns A-K
    ActiveSheet.PageSetup.PrintArea = "$C$1:$L$" & r - 1
    ActiveSheet.PrintOut
    Exit Sub
    
'   Error handling if it cannot find switch value
err_chk:
    If Err.Number = 91 Then
        MsgBox "Cannot find switch value of " & switch & " in column A"
    Else
        MsgBox Err.Number & ": " & Err.Description
    End If
    
End Sub

What I'm looking for is a way to automatically increment the value of E1 beginning at 1, up to and including the limit value stored in H1 - calling the SUB above with each iteration.

I know there are better ways to do this, and I would have preferred to probably use something different but I'm forced to work with what I'm given.

I hope this explains it a bit more.

 

[Special-K99]

That VBA is beyond me I'm afraid.

 

[jweese74]

That VBA is beyond me I'm afraid.

I certainly appreciate your time and help - most VBA is beyond me, or I assume it is - while I'm able to read an understand it, I just can't write it.