MS Office Forum

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds

Variable Params for Recursion?

  Asked By: Lorraine    Date: Aug 18    Category: MS Office    Views: 5245

I'm getting too many iterations in RUNCELLVALUES, but
cannot track down the reason.

Anyone have an idea?

Sub RunTotalCount()
TotalCount = 0
RunCellValues 1, Min1, Max1, Step1, False
End Sub

Sub RunCombinations()
RunCellValues 1, Min1, Max1, Step1, True
End Sub

Sub RunCellValues(ByVal iIndex As Integer, Action)
If iIndex > SRange.Count Then Exit Sub
Dim ivalue As Integer
Dim Min, Max, S As Double
If iIndex <= SRange.Columns.Count Then
Min = Min1
Max = Max1
S = Step1
Min = Min2
Max = Max2
S = Step2
End If
For ivalue = Min To Max Step S
If Action Then
SRange(iIndex).Value = ivalue
TotalCount = TotalCount + 1
End If
RunCellValues iIndex + 1, Action
Next ivalue
End Sub



No Answers Found. Be the First, To Post Answer.

Didn't find what you were looking for? Find more on Variable Params for Recursion? Or get search suggestion and latest updates.