Select nth rows

[Hatye]

Hi,

I would like to select the two first rows (cells) to set white font color and not the third (to keep black font color). This should be a loop to select enitre list.
How should I do that?

Sheets("PunktavvikHist").Range("BI58").Select


         Do While ActiveCell.Value <> ""
             With Selection.Font
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = 0
            End With
             ActiveCell.Offset(1, 0).Select
         Loop

 

[Joe4]

You don't need VBA to do this, you can use Conditional Formatting.

All you need to do is select the range of cells you wish to apply this to, go to Conditional Formatting, select the Formula option, and enter the following formula:
=OR(MOD(ROW(),3)=1,MOD(ROW(),3)=2)
and then select the white font formatting option.

Note, depending on what the first row number you want to apply this to is, you many need to adjust your formula slightly, to this:
=OR(MOD(ROW(),3)=0,MOD(ROW(),3)=1)
or this:
=OR(MOD(ROW(),3)=2,MOD(ROW(),3)=0)