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.

you may want to try Chip Pearson's Rowliner:
http://www.cpearson.com/excel/RowLiner.htm

Shen wrote:

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.

--

Dave Peterson

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

"Dave Peterson" wrote:

you may want to try Chip Pearson's Rowliner:
http://www.cpearson.com/excel/RowLiner.htm

Shen wrote:

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.

--

Dave Peterson

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

On Sat, 14 Oct 2006 11:08:02 -0700, Shen wrote:

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.

Gord Dibben MS Excel MVP

Thank you Gord Dibben. It works perfectly!

"Gord Dibben" wrote:

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

On Sat, 14 Oct 2006 11:08:02 -0700, Shen wrote:

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.

Gord Dibben MS Excel MVP

Thanks for the feedback.

Now and again I get one right.

Gord

On Sat, 14 Oct 2006 23:30:01 -0700, Shen wrote:

Thank you Gord Dibben. It works perfectly!

"Gord Dibben" wrote:

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

On Sat, 14 Oct 2006 11:08:02 -0700, Shen wrote:

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.

Gord Dibben MS Excel MVP

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



"Gord Dibben" <gorddibbATshawDOTca wrote in message
:

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

On Sat, 14 Oct 2006 11:08:02 -0700, Shen wrote:

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.

Gord Dibben MS Excel MVP

Jim

This code was originally from Chip Pearson from this site.

http://www.cpearson.com/excel/excelM...ightActiveCell

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

On Sun, 15 Oct 2006 16:46:04 +0000, "Jim May" wrote:

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



"Gord Dibben" <gorddibbATshawDOTca wrote in message
:

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

On Sat, 14 Oct 2006 11:08:02 -0700, Shen wrote:

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.

Gord Dibben MS Excel MVP

Gord Dibben MS Excel MVP

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






"Gord Dibben" <gorddibbATshawDOTca wrote in message
:

Jim

This code was originally from Chip Pearson from this site.

http://www.cpearson.com/excel/excelM...ightActiveCell

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

On Sun, 15 Oct 2006 16:46:04 +0000, "Jim May" wrote:

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



"Gord Dibben" <gorddibbATshawDOTca wrote in message
:

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

On Sat, 14 Oct 2006 11:08:02 -0700, Shen wrote:

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.

Gord Dibben MS Excel MVP

Gord Dibben MS Excel MVP

Well done Jim

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

Thanks, Gord

On Sun, 15 Oct 2006 17:56:18 +0000, "Jim May" wrote:

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






"Gord Dibben" <gorddibbATshawDOTca wrote in message
:

Jim

This code was originally from Chip Pearson from this site.

http://www.cpearson.com/excel/excelM...ightActiveCell

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

On Sun, 15 Oct 2006 16:46:04 +0000, "Jim May" wrote:

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



"Gord Dibben" <gorddibbATshawDOTca wrote in message
:

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

On Sat, 14 Oct 2006 11:08:02 -0700, Shen wrote:

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.

Gord Dibben MS Excel MVP

Gord Dibben MS Excel MVP

Gord Dibben MS Excel MVP