Loop or If Statement Issue - looping wrong number of times

[JulieSB]

Hi - I am trying to loop through my code below Range("MonthCount2") times - which we'll say is 10.

Within this loop, I have an IF statement, which contains a loop of "Multival" times - which for the first loop through is 2.

My code does what i want (i.e. pastes the selection MultiVal times) but only does this for two selections. Does not continue MonthCount2 times.

Do I have my IF statement or loop in the wrong place? Am I missing something? Any help appreciated:

For x = 1 To Range("MonthCount2")
Sheets("Balance Sheet Calculations").Select
Cells(intRowNum, intColNum).Select
Range(ActiveCell, ActiveCell.Offset(0, 8)).Select

'columns being copied
Selection.Copy


Sheets("Funding").Select
Range("StartIntercompanyPaste").Select

'start of the short term funding sheet
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Calculate
NeedVal = ActiveCell.Offset(0, 7).Value
MsgBox NeedVal
ActiveCell.Offset(1, 0).Select

If NeedVal * -1 > intIncrement Then
MultiVal = NeedVal / intIncrement * -1
ActiveCell.Offset(-1, 7) = intIncrement * -1
Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 8)).Select
Selection.Copy
For y = 1 To MultiVal
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Select
Next y
End If

Call New_Cash_Optimization

intRowNum = intRowNum + 1

Next x

 

[dreid1011]

Is MonthCount2 a string variable? If so, you don't need the " " around it.

 

[JulieSB]

monthcount2 is a range that contains a number. MonthCount2 does not appear to be the problem, it was functional before i added the IF statement

 

[dreid1011]

monthcount2 is a range that contains a number. MonthCount2 does not appear to be the problem, it was functional before i added the IF statement

I only asked because I can't seem to duplicate a working loop if I set it up the way your outer loop is.

This works for me though(A1 contains 10):

Sub TestLoops()
Dim CountA As Range
Dim i As Long
Set CountA = Range("A1")
For i = 2 To CountA.Value
Worksheets("Sheet1").Range("B" & i).Value = "X"
Next
End Sub