I want that current row colour with its header change, when i move to nex the
previous row change to default. is it possible.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200705/1

Huh? Some possibilities without a decent
description of what you want to do.

RowLiner Cell Highlighting Add In
http://www.cpearson.com/excel/RowLiner.htm

Conditional Formatting
http://www.mvps.org/dmcritchie/excel/condfmtl.htm

Event Macro
http://www.mvps.org/dmcritchie/excel/event.htm

---
HTH,
David McRitchie, Microsoft MVP - Excel
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"adeel via OfficeKB.com" <u32736@uwe wrote in message news:729b8af433092@uwe...
I want that current row colour with its header change, when i move to nex the
previous row change to default. is it possible.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200705/1

Put the following in the Worksheet coding area:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
End Sub

as you navagate with either mouse click or arrow key, the selected row will
be hight-lighted.
--
Gary''s Student - gsnu200723


"adeel via OfficeKB.com" wrote:

I want that current row colour with its header change, when i move to nex the
previous row change to default. is it possible.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200705/1

Just as long as OP is aware that this will wipe out any currently colored cell
formatting on the sheet.


Gord Dibben MS Excel MVP

On Wed, 23 May 2007 09:40:01 -0700, Gary''s Student
wrote:

Put the following in the Worksheet coding area:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
End Sub

as you navagate with either mouse click or arrow key, the selected row will
be hight-lighted.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.Color Index = 6
End With

End Sub

--
Don Guillett
SalesAid Software

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Just as long as OP is aware that this will wipe out any currently colored
cell
formatting on the sheet.


Gord Dibben MS Excel MVP

On Wed, 23 May 2007 09:40:01 -0700, Gary''s Student
wrote:

Put the following in the Worksheet coding area:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
End Sub

as you navagate with either mouse click or arrow key, the selected row
will
be hight-lighted.

Spell checker may have changed. Use this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 20
End With

End Sub


--
Don Guillett
SalesAid Software

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Just as long as OP is aware that this will wipe out any currently colored
cell
formatting on the sheet.


Gord Dibben MS Excel MVP

On Wed, 23 May 2007 09:40:01 -0700, Gary''s Student
wrote:

Put the following in the Worksheet coding area:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
End Sub

as you navagate with either mouse click or arrow key, the selected row
will
be hight-lighted.