Select the entire row

  • Thread starter Thread starter shantanu oak
  • Start date Start date
S

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.
 
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)
 
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)
 
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?
 
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)
 
Back
Top