Thread
:
Changing active cell to a color
View Single Post
#
1
Posted to microsoft.public.excel.programming
Don Guillett[_4_]
external usenet poster
Posts: 2,337
Changing active cell to a color
glad to help
--
Don Guillett
SalesAid Software
"Bob Reynolds" wrote in message
.. .
Soooo Simple. Thanks so much Don, that completely solved my problem. I
appreciate your help
Bob
"Don Guillett" wrote in message
...
Depending on version you may allow users to format cells. 3rd option on
xl2002. xl97 does not have this option.
--
Don Guillett
SalesAid Software
"Bob Reynolds" wrote in message
. ..
Hello again, thanks to all that responded I knew I could count on
someone
helping but especially nice to get 3.
Don Guillett works great for an unprotected worksheet. !!!I have one
other
issue with this problem. The worksheet is protected so that when
pressing
the tab button, only certain cells that are "unprotected" are
accessible.
My problem is how do I leave the protection on to enable the specific
cells
to be tabbed to and maintain the color of the selected cell?
Can I use a macro to only allow the use of certain cells within the
workbook
and have the specific cells change color and protect and/or unprotect
as
needed....
Hope I'm clear
Thanks
Bob Reynolds
"Don Guillett" wrote in message
...
This works well. Right click on sheet tabview codeinsert thisSAVE.
As written, does the entire row. Just change
Set MyRng = Target.EntireRow
to
Set MyRng = Target
for only one cell
'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
With MyRng
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ROW()=ROW(INDIRECT(CELL(""address"")))"
With .FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 1
End With
.FormatConditions(1).Interior.ColorIndex = 36
End With
end1:
Application.EnableEvents = True
End Sub
--
Don Guillett
SalesAid Software
"Bob Reynolds" wrote in
message
. ..
I have a need to have the active cell in my worksheet to be a
highlighted
color for easy recognition. Is there a way to program whatever cell
is
active to change to highlighted color and have the highlight move
from
cell
to cell.
thanks in advance
Bob Reynolds
Reply With Quote
Don Guillett[_4_]
View Public Profile
Find all posts by Don Guillett[_4_]