ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   New Users to Excel (https://www.excelbanter.com/new-users-excel/)
-   -   HOW TO CHANGE ROW COLOUR (https://www.excelbanter.com/new-users-excel/143822-how-change-row-colour.html)

adeel via OfficeKB.com

HOW TO CHANGE ROW COLOUR
 
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


David McRitchie

HOW TO CHANGE ROW COLOUR
 
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




Gary''s Student

HOW TO CHANGE ROW COLOUR
 
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



Gord Dibben

HOW TO CHANGE ROW COLOUR
 
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.



Don Guillett

HOW TO CHANGE ROW COLOUR
 

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.




Don Guillett

HOW TO CHANGE ROW COLOUR
 
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.





All times are GMT +1. The time now is 12:32 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com