Shading Every 3 Column Headers

[Eric G]

I have a header row where I want to alternate the shading of every 3 columns within a specific range of columns.

For example,
A1, B1, C1 Shaded
D1, E1, F1 Not Shaded
G1, H1, I1 Shaded
J1, K1, L1 Not Shaded
M1, N1, O1 Shaded

Is there a way to do this WITHOUT having to enter each cell for shading into the VBA code?

 

[Joe4]

Use Conditional Formatting.

Select the range A1:O1 and use this CF formula:

=ISEVEN(INT((COLUMN()-1)/3))

and choose your shading color option.

 

[Fluff]

Do you need VBA, this could easily be done with conditional formatting, using this formula

=ISEVEN(INT((COLUMN()-1)/3))

Beaten 2it

 

[Eric G]

Sorry, must be VBA.

 

[Joe4]

Sorry, must be VBA.

Turn on your Macro Recorder, and manually do the steps I outlined for you above, and then stop the Macro Recorder.
You with then have VBA code that sets up that Conditional Formatting.

 

[Eric G]

Turn on your Macro Recorder, and manually do the steps I outlined for you above, and then stop the Macro Recorder.
You with then have VBA code that sets up that Conditional Formatting.

I'll give it a try, but curious, like the code below for every other one,

    Dim Counter As Integer
   'For every row in the range
    For Counter = 1 To wsConsolidate.Range("A1:Z1").Columns.Count
        'If the row is an odd number (within the range)
        If Counter Mod 2 = 1 Then
            'Set color to BlueLight
            wsConsolidate.Range("A1:Z1").Columns(Counter).Interior.Color = BlueLight
        End If
    Next

Isn't there code for every other three?

 

[Fluff]

Try

For counter = 1 To 26 Step 6
   Cells(1, counter).Resize(, 3).Interior.Color = bluelight
Next Counter

 

[Joe4]

Just note that Loops are notorious resource hogs and are slow.
So avoiding them whenever possible will improve your VBA code and performance (which is why setting up the CF with VBA may be the better option).

 

[Eric G]

Try

For counter = 1 To 26 Step 6
   Cells(1, counter).Resize(, 3).Interior.Color = bluelight
Next Counter

No joy. It's not a huge difference, but let me give you my actual code:

   'Header Alternating Shading of Questions
    Dim Counter As Integer
   'For every row in the range
    For Counter = 1 To wsConsolidate.Range("I2:DO2").Columns.Count
        'If the row is an odd number (within the range)
        If Counter Mod 2 = 1 Then
            'Set color to BlueLight
            wsConsolidate.Range("I2:DO2").Columns(Counter).Interior.Color = BlueLight
        End If
    Next

Maybe I am plugging your solution wrong into my existing code.

 

[Eric G]

Just note that Loops are notorious resource hogs and are slow.
So avoiding them whenever possible will improve your VBA code and performance (which is why setting up the CF with VBA may be the better option).

That's what I've read elsewhere too, but I've yet to experience a noticeable lag whenever I've used Loops. However, I'm a huge fan of having options, so I may just tinker with the CF idea if I can't get the Looping code to work.