Step For statement

[Roderick_E]

Hi, so I know how to write a contiguous FOR Step statement, such as for x = 2 to 15 step 3 but I have some columns I want to skip some columns.

I want to apply to columns B-D then G-I and last L-N For x = 2 to 15 Step 3 does B,H,K,N -- help???

 

[mart37]

For x = 2 To 14   
    ..code..
    If x = 4 Then x = 6
    If x = 9 Then x = 11
Next x

 

[frank_AL]

Roderick,

Couldn't you accomplish what you want by manipulating your x variable?

I'm thinking you could test for x = 4 or 9 before your Next statement:
The little test code below put the word test in Cols B-D, G-I and L-N.
By the way, just as FYI, Column N is Column # 14.

Sub skipcols()
Dim x As Long


For x = 2 To 14
    Cells(2, x).Value = "Test"
    If x = 4 Or x = 9 Then
        x = x + 2
    End If
Next


End Sub

 

[Rick Rothstein]

I want to apply to columns B-D then G-I and last L-N For x = 2 to 15 Step 3 does B,H,K,N -- help???

You could use a loop within a loop...

For Col = 2 To 12 Step 5
  For Off = 0 To 2
    Columns(Col).Offset(, Off).[COLOR="#0000FF"]Whatever Whatever[/COLOR]
  Next
Next

 

[Roderick_E]

Thanks for all the feedback, I ultimately did use a form of if x <> whatever and if x <> whatever then....