Highlight row given certain conditions

[Guest]

Hello!

I am attempting to make a macro that will select a range and look in column
B for an "X" If that condition is met, I would like it to highlight the
entire row, or if it would be easier, to highlight the row in columns A - M.
I have worked on the macro below and I can get the cells with "X" in the
column to hightlight, but I cannot get it to select the entire row.

If there is an easier way to accomplish this I would welcome the
suggestion...this is what I'm currently using.

Rows("4:4").Select
Range(Selection, Selection.End(xlDown)).Select
Dim Cell As Range

For Each Cell In Selection
If Cell.Value = "x" Then
Cell.Interior.Color = vbGreen
Else
End If
Next Cell
End Sub

Thanks in advance for you help!

 

[Don Guillett]

try
Sub colorrowif()
For Each c In Range("b4:b" & Range("b4").End(xlDown).Row)
If c = "x" Then c.EntireRow.Interior.Color = vbGreen
Next
End Sub

 

[Guest]

First, you don't need a macro at all, you can use conditional formatting.
Select A:M and then use format/conditional formatting, change "Cell Value is"
to Formula Is", and enter this (assuming A1 is the active cell):
=$B1="X"
Then click the Format button and select the patterns tab, select the green
you want.

HTH
Bob Umlas
Excel MVP

 

[Guest]

Thank you so much for your help!!!!