Highlite current/active cell

  • Thread starter Thread starter livetohike
  • Start date Start date
L

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
 
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.
Click to expand...

;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
 
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
 
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
Click to expand...

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.
 
Back
Top