For...Next not looping?

jrnyman · Mar 12th, 2002, 02:28 AM

Can anyone tell me why this For Next loop does not repeat more than 8 times?

SpreadsRow = 2
For DataRow = 2 To 1309 'defined earlier

Set FDataRow = Range("F" & DataRow)
Set GDataRow = Range("G" & DataRow)
Set ODataRow = Range("O" & DataRow)
Set AspreadsRow = Range("A" & SpreadsRow)
Set BSpreadsRow = Range("B" & SpreadsRow)
Set CSpreadsRow = Range("C" & SpreadsRow)
Set PDataRow = Range("P" & DataRow)

If ODataRow = "Average" Then
If AspreadsRow = "" Then
Range("G" & DataRow).Select
Selection.Copy
Range("A" & SpreadsRow).Select
ActiveSheet.Paste
ElseIf AspreadsRow = GDataRow Then
If FDataRow = "L" Then
Range("P" & DataRow).Select
Selection.Copy
Range("C" & SpreadsRow).Select
ActiveSheet.Paste
ElseIf FDataRow = "B" Then
Range("P" & DataRow).Select
Selection.Copy
Range("B" & SpreadsRow).Select
ActiveSheet.Paste
End If
ElseIf AspreadsRow <> GDataRow Then SpreadsRow = SpreadsRow + 1
End If

End If

Next DataRow

Dave Hawley · Mar 12th, 2002, 02:38 AM

What happens when you 'Step though' it in debug mode? Are you sure it's not just entering the If statement 8 times?

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 12th, 2002, 02:28 AM	#1
jrnyman Board Regular Join Date: Mar 2002 Location: Boston, MA Posts: 105	Can anyone tell me why this For Next loop does not repeat more than 8 times? SpreadsRow = 2 For DataRow = 2 To 1309 'defined earlier Set FDataRow = Range("F" & DataRow) Set GDataRow = Range("G" & DataRow) Set ODataRow = Range("O" & DataRow) Set AspreadsRow = Range("A" & SpreadsRow) Set BSpreadsRow = Range("B" & SpreadsRow) Set CSpreadsRow = Range("C" & SpreadsRow) Set PDataRow = Range("P" & DataRow) If ODataRow = "Average" Then If AspreadsRow = "" Then Range("G" & DataRow).Select Selection.Copy Range("A" & SpreadsRow).Select ActiveSheet.Paste ElseIf AspreadsRow = GDataRow Then If FDataRow = "L" Then Range("P" & DataRow).Select Selection.Copy Range("C" & SpreadsRow).Select ActiveSheet.Paste ElseIf FDataRow = "B" Then Range("P" & DataRow).Select Selection.Copy Range("B" & SpreadsRow).Select ActiveSheet.Paste End If ElseIf AspreadsRow <> GDataRow Then SpreadsRow = SpreadsRow + 1 End If End If Next DataRow

Mar 12th, 2002, 02:38 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	What happens when you 'Step though' it in debug mode? Are you sure it's not just entering the If statement 8 times?