Quick help, on small macro Problem

[Lynxador]

i have this so far.

Sub Color_format()
Dim x As Long

For x = 6 To 33697 Step 7
Range("E &x:G &x").Select
Selection.Font.ColorIndex = 2
Next x

End Sub

I'm a beginner programmer.. and i always always forget how to set up the range so it uses x as the second value of a cell. any help would be much appreciated.

 

[Norie]

I'm not sure what you want but does this work:

Sub Color_format() 
Dim X As Long 

     For X = 6 To 33697 Step 7 
          Range("E" & X & ":G"  & X).Font.ColorIndex = 2 
     Next X 

End Sub

I removed the Select part as you don't always need that to work with a range.

BTW what are you actually tryikng to do - perhaps there is another approach than using a loop.

 

[Lynxador]

im basically trying to turn E,F,and G every 7 lines into white text.

 

[Norie]

Have you tried the code I posted?

Have you tried using Conditional Formatting?

 

[Lynxador]

your code worked perfectly for what i needed. thank you norie im gonna try conditional formatting next. im just trying to learn different sloutions to the same problem.

 

[Norie]

Well for the conditional formatting you could try something like this.

Select the range you want to format. goto Format>Conditional Formatting..., select Formula is from the dropdown and try this formula:

=MOD(ROW(E1),7)=0

I don't know if this will do exactly what you want.