Solved: Coloring alternate rows

[Codeblue]

Hello
This code works pretty well but there are two things I'd hope to fix...

Range("A2:F19").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MOD( ROW( ), 2) =0"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
    End With
    Selection.FormatConditions(1).StopIfTrue = True

the first thing is it highlights the selection because of this bit
Range("A2:F19").Select
but it doesn't work without it.
The 2nd item may fix the first and that is I would rather it be dynamic for the number of rows to color. The number of rows will change daily and want it to color where there is data.

[Bob Phillips]

[VBA] With Selection

.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD( ROW( ), 2) =0"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.799981688894314
End With
.FormatConditions(1).StopIfTrue = True
End With[/VBA]

[CatDaddy]

To get from the second cell in A to the last cell in F automatically, add this befor xlds

[VBA]Range("A2:F" & Range("F" & rows.count).End(xlUp).Row).Select[/VBA]

[Codeblue]

This didn't color anything.

With Selection 
 
   .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD( ROW( ), 2) =0" 
   .FormatConditions(.FormatConditions.Count).SetFirstPriority 
   With .FormatConditions(1).Interior 
       .PatternColorIndex = xlAutomatic 
       .ThemeColor = xlThemeColorLight2 
       .TintAndShade = 0.799981688894314 
   End With 
   .FormatConditions(1).StopIfTrue = True 
End With 

this helped...

Range("A2:F" & Range("F" & rows.count).End(xlUp).Row).Select 

I added this..so it wouldn't highlight the whole area

Range("A1").Select

thanks guys for your input!!

[CatDaddy]

did you add the select code before xld's code? it would only work if you had something selected...

[Codeblue]

Yes, it's good now!

[lynnnow]

Remember to mark your thread Solved if you no longer need assistance on your post.

[snb]

or

[VBA]Sub snb()
Cells(2, 5).CurrentRegion.Name = "codeblue"
Range(Join(Filter([transpose(if(mod(row(codeblue),2)=0,"A" & row(codeblue),""))], "A"), ",")).EntireRow.Interior.ColorIndex = 16
End Sub[/VBA]

[Codeblue]

What is this last code for?

Not sure how to mark this as solved

[snb]

It's an alternative to get the same result.