Select the entire row

[shantanu oak]

I want to select the entire row and change the color of the row where
the word "CASH" is in a single cell.

The following code of the macro is not working.

'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue,
Operator:=xlEqual, _
Formula1:="=""CASH"""
Rows(FormatConditions(1)).Select
Selection.Font.ColorIndex = 45


Please guide.

 

[Bob Phillips]

Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="CASH"
Selection.FormatConditions(1).Font.ColorIndex = 345


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[shantanu oak]

Hi,
I want to highlight the entire row in which the word cash appears.

Shantanu

 

[Bob Phillips]

With Selection.EntireRow
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=" & ActiveCell.Address(False,
True) & "=""CASH"""
.FormatConditions(1).Font.ColorIndex = 45
End With



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[shantanu oak]

Thanks.
Now I want to color alternate rows using conditional formatting and I
can do it manually by using this formulae...
=ODD(ROW())=ROW()

How do I add it in a macro?

 

[Bob Phillips]

With Selection.EntireRow
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:="=ODD(ROW())=ROW()"
.FormatConditions(1).Font.ColorIndex = 45
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)