RaistMagus
New Member
- Joined
- Apr 13, 2013
- Messages
- 1
Hi guys, I need a large number of nested loops and instead of using many variables as a counter for each, I thought of using an array of integers and have each of its positions as a counter for each loop. However I get the "For control variable already in use" message. Is there a way around it?
For IndexCursor(1) = 1 To DataDimensions(1)
For IndexCursor(2) = 1 To DataDimensions(2)
For IndexCursor(3) = 1 To DataDimensions(3)
Worksheets("Sheet1").Cells(CurrentLine, 1) = Worksheets("Sheet2").Cells(IndexCursor(1), 1)
Worksheets("Sheet1").Cells(CurrentLine, 2) = Worksheets("Sheet2").Cells(IndexCursor(2), 2)
Worksheets("Sheet1").Cells(CurrentLine, 3) = Worksheets("Sheet2").Cells(IndexCursor(3), 3)
CurrentLine = CurrentLine + 1
Next
Next
Next
For IndexCursor(1) = 1 To DataDimensions(1)
For IndexCursor(2) = 1 To DataDimensions(2)
For IndexCursor(3) = 1 To DataDimensions(3)
Worksheets("Sheet1").Cells(CurrentLine, 1) = Worksheets("Sheet2").Cells(IndexCursor(1), 1)
Worksheets("Sheet1").Cells(CurrentLine, 2) = Worksheets("Sheet2").Cells(IndexCursor(2), 2)
Worksheets("Sheet1").Cells(CurrentLine, 3) = Worksheets("Sheet2").Cells(IndexCursor(3), 3)
CurrentLine = CurrentLine + 1
Next
Next
Next