Looping through a range of multiple columns

[Mufflon]

Hi!

I couldn't get this to work. I want to right-align the first 3 columns, then I want to do the same thing again, but 5 columns off to the right and so on. I tried the below code, but it seems like it just repeats the align on the first 3 columns? I tried offseting it, but I didn't take

Any ideas? Really appreciate it!

    For k = 1 To n
        Range(Columns(1), Columns(3)).HorizontalAlignment = xlRight
        ActiveCell.Offset(0, 5).Select
    Next k

 

[Fluff]

untested but try

For k = 1 To n step 8
        Range(Columns(k), Columns(k+3)).HorizontalAlignment = xlRight
Next k

 

[MrKowz]

You've hardcoded the columns in your loop - that's why it is only affecting the first 3 columns.

For k = 1 To n
        Range(Columns([B][COLOR="#FF0000"]1[/COLOR][/B]), Columns([B][COLOR="#FF0000"]3[/COLOR][/B])).HorizontalAlignment = xlRight
        ActiveCell.Offset(0, 5).Select
    Next k

Try this code:

Public Sub RightAlignColumns()
Dim i       As Long, _
    LC      As Long
    
Application.ScreenUpdating = False

LC = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To LC Step 8
    Range(Cells(1, i), Cells(1, i + 2)).EntireColumn.HorizontalAlignment = xlRight
Next i

Application.ScreenUpdating = True
End Sub

 

[Joe4]

You alignment command is not dependent on the loop or the active cell. You are explicitly choose to do columns 1-3 over and over again.

Maybe something like:

For k = 0 to (n - 1)
    Range(Columns(1 + (5 * k), Columns(3 + (5 * k)).HorizontalAlignment = xlRight
Next k

 

[Mufflon]

You alignment command is not dependent on the loop or the active cell. You are explicitly choose to do columns 1-3 over and over again.

Maybe something like:

For k = 0 to (n - 1)
    Range(Columns(1 + (5 * k), Columns(3 + (5 * k)).HorizontalAlignment = xlRight
Next k

Thank you! This worked with two added parentheses