Thread
:
Change cell font color when cell is clicked
View Single Post
#
10
Posted to microsoft.public.excel.programming
Don Guillett[_2_]
external usenet poster
Posts: 1,522
Change cell font color when cell is clicked
Glad to help
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"aileen" wrote in message
...
Nevermind, I got your code to work by incorporating into the other code as
such:
If Target.Count 1 Then Exit Sub
If Intersect(Target, Range("F:F,H:H,L:N")) Is Nothing Then Exit Sub
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.ColorIndex = 3
tr = Target.Row
Cells(tr, "J") = Cells(tr, "O") * Cells(tr, "I") * Target
Else
If Target.Interior.ColorIndex = 3 Then
Target.Interior.ColorIndex = xlNone
End If
End If
Thanks again for all your help.
"Don Guillett" wrote:
Untested.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Not Intersect(Target, Range("L2:M500")) Is Nothing Then
tr = Target.Row
Target.Interior.ColorIndex = 5
Cells(tr, "J") = Cells(tr, "e") * Cells(tr, "i") * Target
End If
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"aileen" wrote in message
...
I should be more specific. The formula is simple it's the product of 3
cells, 2 of which are fixed and the last one should become whichever
cell
I've clicked.
Cells(j, "J") = Cells(j, "E") * Cells(j, "I") * highlighted cell
Is this possible to do?
"Don Guillett" wrote:
Nothing wrong with what you present.
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"aileen" wrote in message
...
I'm trying to find code that will change the font color or interior
color
in
a cell when the cell is clicked once. Then when the color changes I
need
to
recalculate a formula from a different cell in the same row based on
which
cell was chosen and had the color change.
I was trying the following code as a start but I am getting an "End
If
without a Block If" error.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("L2:M500")) Is Nothing Then
Target.Interior.ColorIndex = 5
End If
End Sub
Any help is greatly appreciated.
.
.
Reply With Quote
Don Guillett[_2_]
View Public Profile
Find all posts by Don Guillett[_2_]