Thread
:
Active cell highlight
View Single Post
#
7
Posted to microsoft.public.excel.misc
Sandy Mann
Posts: n/a
Active cell highlight
Gord,
Oddly enough it the paste functionality remains for me in XL95 if I copy
from the formula bar. Also it seems to work just as well if I comment out
the IF and End If lines and just leave the:
OldCell.Interior.ColorIndex = xlColorIndexNone
By itself
--
Regards
Sandy
Replace@mailinator with @tiscali.co.uk
"Gord Dibben" <gorddibbATshawDOTca@ wrote in message
...
Chuck
You've done nothing wrong.
I have never been able to get the copy/paste function back using this
code.
Tried wrapping in eneableevents true and false, but no joy.
Chip's rowliner add-in makes provision for this by highlighting only a
portion
of the activecell so's you can right-click or double-click on the
unhighlighted portion for copy/paste etc.
Best to go with that unless someone will jump in with a fix for the code I
posted(which was from Chip long time past).
Gord
On Mon, 12 Dec 2005 11:53:02 -0800, CLR
wrote:
Hi Gord............
This code works neat, except I seem to have lost the ability to
CopyAndPaste..........what might I have done wrong?
Vaya con Dios,
Chuck, CABGx3
"Gord Dibben" wrote:
E
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 = 6
Set OldCell = Target
End Sub
This is worksheet event code.
Right-click on the sheet tab and "View Code"
Copy and paste the code above into that module.
Alternative..............
Go to Chip Pearson's site and downloas his Rowliner Add-in so's you can
have
the highlighting available for all open workbooks and sheets.
http://www.cpearson.com/excel/RowLiner.htm
Gord Dibben Excel MVP
On Mon, 12 Dec 2005 08:29:03 -0800, "E"
wrote:
Hi,
I would like to know if there was a way to have an active cell always
in
yellow or any color.
Example: If the active cell is moved around, the active cell will be
always
in yellow.
Thank you in advance
Reply With Quote