Current Cell Color
 

Is there any way to make a cell change color when you click in it and then go
back to it's original color when you go to another cell and each cell do the
same thing when it is the current cell?

Take a look at Chip Pearson's RowLiner add-in:

http://cpearson.com/excel/rowliner.htm


In article ,
mike47338 wrote:

Is there any way to make a cell change color when you click in it and then go
back to it's original color when you go to another cell and each cell do the
same thing when it is the current cell?

This is what I use

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End With
.FormatConditions(1).Interior.ColorIndex = 20
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"mike47338" wrote in message
...
Is there any way to make a cell change color when you click in it and then
go
back to it's original color when you go to another cell and each cell do
the
same thing when it is the current cell?

This works very well except what can I change "With Target.EntireRow" to so
that only the active cell is highlighted?

"Bob Phillips" wrote:

This is what I use

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End With
.FormatConditions(1).Interior.ColorIndex = 20
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"mike47338" wrote in message
...
Is there any way to make a cell change color when you click in it and then
go
back to it's original color when you go to another cell and each cell do
the
same thing when it is the current cell?

Mike,

Just change the line

With Target.Entirerow

to

With Target


--

HTH

RP
(remove nothere from the email address if mailing direct)


"mike47338" wrote in message
...
This works very well except what can I change "With Target.EntireRow" to
so
that only the active cell is highlighted?

"Bob Phillips" wrote:

This is what I use

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End With
.FormatConditions(1).Interior.ColorIndex = 20
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"mike47338" wrote in message
...
Is there any way to make a cell change color when you click in it and
then
go
back to it's original color when you go to another cell and each cell
do
the
same thing when it is the current cell?

Thanks Bob, that is exactly what I was looking for !!

"Bob Phillips" wrote:

Mike,

Just change the line

With Target.Entirerow

to

With Target


--

HTH

RP
(remove nothere from the email address if mailing direct)


"mike47338" wrote in message
...
This works very well except what can I change "With Target.EntireRow" to
so
that only the active cell is highlighted?

"Bob Phillips" wrote:

This is what I use

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End With
.FormatConditions(1).Interior.ColorIndex = 20
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"mike47338" wrote in message
...
Is there any way to make a cell change color when you click in it and
then
go
back to it's original color when you go to another cell and each cell
do
the
same thing when it is the current cell?