Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
maybe if you coerced the value from the cell into a string? or format the
cell to text. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
Thanks for the prompt response. Unfortunately, the code still doesn't
work for me. Changing the cell's value doesn't make the checkbox visibile/invisible. I am running 2002 and tried with protection on/off. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
A typo in your original code continued into Jim's
Private Sub Worksheets_Calculate() Private Sub Worksheet_Calculate() When you say "Changing the cell's value" if the cell is not a formula changing it's value will not trigger a calculation event. So use the Change event Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1")) Is Nothing Then CheckBox1.Visible = UCase(Range("A1") = "ABC") End If End Sub As the code is in a worksheet module everything defaults to the sheet, even if it's not the active sheet. For clarity could qualify with Me Regards, Peter T "yoram" wrote in message oups.com... Thanks for the prompt response. Unfortunately, the code still doesn't work for me. Changing the cell's value doesn't make the checkbox visibile/invisible. I am running 2002 and tried with protection on/off. |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
Sorry about taking so long... The code that you posted needs to be in the
ThisWorkbook module, and events must be enabled. If it is in thisworkbook then run this code to reset your events... Sub test Application.enableevents = true end sub You should also check for where it was set to false and ensure that that code is working properly. -- HTH... Jim Thomlinson "yoram" wrote: Thanks for the prompt response. Unfortunately, the code still doesn't work for me. Changing the cell's value doesn't make the checkbox visibile/invisible. I am running 2002 and tried with protection on/off. |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
Sorry... Not in Thisworkbook, but rather in the sheet that is the target...
Also Peter has a better eye than I do. There is a typo in the procedure name... Monday is getting the best of me here... -- HTH... Jim Thomlinson "Jim Thomlinson" wrote: Sorry about taking so long... The code that you posted needs to be in the ThisWorkbook module, and events must be enabled. If it is in thisworkbook then run this code to reset your events... Sub test Application.enableevents = true end sub You should also check for where it was set to false and ensure that that code is working properly. -- HTH... Jim Thomlinson "yoram" wrote: Thanks for the prompt response. Unfortunately, the code still doesn't work for me. Changing the cell's value doesn't make the checkbox visibile/invisible. I am running 2002 and tried with protection on/off. |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
Awesome. Many thanks Peter and Jim.
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
Awesome. Many thanks Peter and Jim.
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
Awesome. Many thanks Peter and Jim.
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
making a checkbox appear and disappear based on a cell's value
Obviously one of those typo days -
CheckBox1.Visible = UCase(Range("A1") = "ABC") CheckBox1.Visible = UCase(Range("A1")) = "ABC" (assuming case sensitive condition is not required) Regards, Peter T "Peter T" <peter_t@discussions wrote in message ... A typo in your original code continued into Jim's Private Sub Worksheets_Calculate() Private Sub Worksheet_Calculate() When you say "Changing the cell's value" if the cell is not a formula changing it's value will not trigger a calculation event. So use the Change event Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1")) Is Nothing Then CheckBox1.Visible = UCase(Range("A1") = "ABC") End If End Sub As the code is in a worksheet module everything defaults to the sheet, even if it's not the active sheet. For clarity could qualify with Me Regards, Peter T "yoram" wrote in message oups.com... Thanks for the prompt response. Unfortunately, the code still doesn't work for me. Changing the cell's value doesn't make the checkbox visibile/invisible. I am running 2002 and tried with protection on/off. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Select a cell based on an other cell's value | Excel Worksheet Functions | |||
Change value based on another cell's value | Excel Discussion (Misc queries) | |||
Making a cell's contents lower case | Excel Worksheet Functions | |||
Varying a macro based on a cell's value | Excel Programming | |||
Worsheet Name Change Based on cell's value | Excel Programming |