Color active cell

S

Shen

Can the active cell be made to automatically appear in color instead of
white. The purpose would be help your eye locate the cell when moving thru
the sheet.
 
S

Shu of AZ

contiditional formatting, if cell equals ? click format then change the
pattern to what ever color you want
 
G

Gord Dibben

You could download Chip Pearson's ROWLINER add-in as Dave suggests.

Or use event code

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static OldCell As Range
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 3
Set OldCell = Target
End Sub

Note: this is sheet event code. Right-click on the sheet tab and "View Code".

Copy/paste into that module.

If not what you're looking for, post back.


Gord Dibben MS Excel MVP

Can the active cell be made to automatically appear in color instead of
white. The purpose would be help your eye locate the cell when moving thru
the sheet.
Click to expand...

Gord Dibben MS Excel MVP
 
S

Shen

Thank you Gord Dibben. It works perfectly!

Gord Dibben said:
You could download Chip Pearson's ROWLINER add-in as Dave suggests.

Or use event code

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static OldCell As Range
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 3
Set OldCell = Target
End Sub

Note: this is sheet event code. Right-click on the sheet tab and "View Code".

Copy/paste into that module.

If not what you're looking for, post back.


Gord Dibben MS Excel MVP



Gord Dibben MS Excel MVP
Click to expand...
 
J

Jim May

Gord, this is great code;
the code however prevents me
from doing any copy/cut and
paste rountines;
How can I do both?
TIA,
 
G

Gord Dibben

Jim

This code was originally from Chip Pearson from this site.

http://www.cpearson.com/excel/excelM.htm#HighlightActiveCell

I don't know how to modify to allow copy/cut paste.

Suggest you use Chip's Rowliner add-in as he suggests at the site above.

A caveat with the Rowliner.

After the copy, be sure to right-click on the destination cell to paste.

Left-click and paste will paste a picture


Gord

Gord, this is great code;
the code however prevents me
from doing any copy/cut and
paste rountines;
How can I do both?
TIA,
Click to expand...

Gord Dibben MS Excel MVP
 
J

Jim May

Gord, Got it working (see below) - Also had to add Workbook.Open code
(also below)
Thanks Jim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldCell As Range
If Application.CutCopyMode = 0 Then
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
OldCell.Borders.LineStyle = xlLineStyleNone
End If
Set OldCell = Target
OldCell.Interior.ColorIndex = 6
OldCell.Borders.LineStyle = xlContinuous
Else
If OldCell Is Nothing Then
Set OldCell = Target
Else
Set OldCell = Union(OldCell, Target)
End If
End If
End Sub
=====================================================
Private Sub Workbook_Open() 'To erase Highlighted Cell when Last Saved
ActiveCell.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Borders.LineStyle = xlLineStyleNone
End Sub
 
G

Gord Dibben

Well done Jim

I will keep this one..........attributed to yourself.

Thanks, Gord

Gord, Got it working (see below) - Also had to add Workbook.Open code
(also below)
Thanks Jim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldCell As Range
If Application.CutCopyMode = 0 Then
If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
OldCell.Borders.LineStyle = xlLineStyleNone
End If
Set OldCell = Target
OldCell.Interior.ColorIndex = 6
OldCell.Borders.LineStyle = xlContinuous
Else
If OldCell Is Nothing Then
Set OldCell = Target
Else
Set OldCell = Union(OldCell, Target)
End If
End If
End Sub
=====================================================
Private Sub Workbook_Open() 'To erase Highlighted Cell when Last Saved
ActiveCell.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Borders.LineStyle = xlLineStyleNone
End Sub
Click to expand...

Gord Dibben MS Excel MVP
 
Top