Your request was “when I SELECT the cell”. So, as Sam says, use another event
such as doubleclick.
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Cab Boose
Sent: Friday, October 14, 2011 8:32 PM
To: excel-macros@googlegroups.com
Subject: Re: $$Excel-Macros$$ Toggle a Cell value
Hi Don and Sam
Thanks for your input.
I use Win7 Excel and on a laptop.
Don, your code work ok but small hiccup. The code/color changes ok when I
select a different cell and then come back to actual cell again. Color and
number change as required. However I would like to be able to leave the cursor
in the active cell, somethimes, and each time I tap the cell on the laptop
pad, it should change. That is without having to go to another cell first.
In other words how do you get Excel to know when you select cell and then
select again without moving. Maybe if we can after the first selection and
change of color/code Excel places the active cell into a default cell nearby,
and if the direction needs to be changed again I need to select that cell
again. Or is there a way of refreshing the g15 cell without moving.
Sam, your code brings up a run time error '13' type mismatch. The color is
ok by format, but does the code allow for changing the value in the cell back
and forth from 1 to 0 and 0 to 1 .
Thankyou all
Charlie Harris
On Sat, Oct 15, 2011 at 6:36 AM, Sam Mathai Chacko <samde...@gmail.com> wrote:
This should do it
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "G15" Then
Target.Value = Abs(CLng(Not -Target.Value))
End If
End Sub
Use a conditional format for coloring the cell.
If you do not want to add a conditional format (which is faster than VBA by
the way), and do the coloring also through VBA, then just add the following
line within the If End IF statement in the VBA above.
Target.Interior.ColorIndex = 4 - Target.Value
Regards,
Sam Mathai Chacko
On Fri, Oct 14, 2011 at 6:09 PM, dguillett1 <dguille...@gmail.com> wrote:
Right click sheet tab>view code>copy/paste this to make the changes in col G
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 7 Or Target.Count > 1 Then Exit Sub
If Target = 1 Then
Target = 0
Target.Interior.ColorIndex = 4
Else
Target = 1
Target.Interior.ColorIndex = 3
End If
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
From: Cab Boose
Sent: Friday, October 14, 2011 2:33 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Toggle a Cell value
Hi eveyrone
See attached sheet.
For a 12 volt motor speed direction, Forward or Reverse I want to have a
value of a cell to toggle back and forth between 0 and 1 and cell color also to
change each time between green and red.
Prefer to use a cell than use a toggle button, unless a toggle button can
change colors etc and the value of 0 or 1 from the toggle button can be used
to export etc
Your comments would be appreciated.
Charlie Harris
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
Sam Mathai Chacko
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
