Loop through column C then column E then column G

[mjpst6]

Any way I can make this code do a loop for column C and then E and then G?

Application.GoTo Range("G2"), True

' This loop repeats for a fixed number of times determined by the number of rows

' in the range

Dim i As Integer

r = 2


For i = 1 To Selection.CurrentRegion.Rows.Count - 1


Call New_Sheet(r) ' Run New_Sheet Code


ActiveCell.Offset(1, 0).Select

r = r + 1

Next i


With the code above I'd have to change the starting point three times and run the macro manually three times. I'd like the user to only have to run it 1 time.

 

[Tom Urtis]

Guessing here, because your code is a bit cryptic (you did not declare the "r" variable) and you are doing a lot of selecting and activating, probably unnecessarily, but try this approach:


Dim i As Integer, j As Integer, r
j = 3
Do
Application.Goto Cells(2, j), True
r = 2
For i = 1 To Selection.CurrentRegion.Rows.Count - 1
Call New_Sheet(r)
ActiveCell.Offset(1, 0).Select
r = r + 1
Next i
MsgBox ActiveCell.Address
j = j + 2
Loop While j <= 7

 

[mjpst6]

Thanks Tom. You're right I didn't include all of the code. The key though is I just want a loop that will cycle through all of the data in column C and then through all of the data in column E and then through all of the data in column G and then that's when it will stop.

 

[Tom Urtis]

OK, that's what my code does and it tested fine, so post back if you run into problems.