Highlite current/active cell

[livetohike]

Excel 2000
I use Edit/Find frequently, but have a hard time seeing the 'found'
cell. Is there a way to change the look (background color) used for
the active cell?

I have come across the "RowLiner" add-in and other fancy solution, but
I would just like something simple, like changing the active cell
color.

Thanks

 

[strive4peace]

here is a link with directions to highlight the active cell

Highlight the Active Cell, by Andrew Siffert
http://blog.livedoor.jp/andrewe/archives/50061563.html


Warm Regards,
Crystal

remote programming and training

Access Basics
8-part free tutorial that covers essentials in Access
http://www.AccessMVP.com/strive4peace

*
have an awesome day
*

 

[Mais qui est Paul]

Bonsour® livetohike avec ferveur ;o))) vous nous disiez :

Excel 2000
I use Edit/Find frequently, but have a hard time seeing the 'found'
cell. Is there a way to change the look (background color) used for
the active cell?

I have come across the "RowLiner" add-in and other fancy solution, but
I would just like something simple, like changing the active cell
color.

;o)) perhaps a free...froggy approch ...
http://www.polykromy.com/nl/nl6/nl6.html#as4
http://www.polykromy.com/nl/nl6/nl6.html#as2

or with professionnal add-in (not free)
http://www.polykromy.com/repere/index.html

 

[Don Guillett]

Right click sheet tab>view code>insert this.

'McCurdy.Here is something inspired by Don Guillett.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRng As Range
Set MyRng = Target '.EntireRow
Application.EnableEvents = False
On Error GoTo end1
Application.Cells.FormatConditions.Delete
'Application.Cells.Font.Size = 10
With MyRng
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ROW()=ROW(INDIRECT(CELL(""address"")))"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 1
End With
'.Font.Size = 20
.FormatConditions(1).Interior.ColorIndex = 36
End With
end1:
Application.EnableEvents = True
End Sub

 

[livetohike]

Right click sheet tab>view code>insert this.

'McCurdy.Here is something inspired by Don Guillett.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRng As Range
Set MyRng = Target '.EntireRow
Application.EnableEvents = False
On Error GoTo end1
Application.Cells.FormatConditions.Delete
'Application.Cells.Font.Size = 10
With MyRng
  .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=ROW()=ROW(INDIRECT(CELL(""address"")))"
  With .FormatConditions(1).Font
              .Bold = True
       .Italic = False
       .ColorIndex = 1
  End With
  '.Font.Size = 20
  .FormatConditions(1).Interior.ColorIndex = 36
End With
end1:
Application.EnableEvents = True
End Sub

Thanks for the great links.
These all seem to need to be added to each Excel workbook you create.
Is there some way to 'install' it once and have it apply to all future
and existing workbooks. I tried messing with PERSONEL.XLS, but could
not get it to work.

Still looking for a way to simply change Microsoft's default cell
color for the active cell w/o having to add code to each worksheet.
This is something I would like applied to all my worksheets.