Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop Problem
I am trying to stop someone from continuing if they select 2 different
checkboxes until one of them are unchecked, I have been playing with this and haven't got it to work,what are your thoughts other than me finding a new job Private Sub CheckBox2_Change() Dim wksh As Worksheet Set wksh = Worksheets("jan") If CheckBox2.Value = True Then If CheckBox6.Value = True Then Stop MsgBox "Please Uncheck Either Plant or Construction Before Proceeding" Else For i = 1 To 12 sname = Choose(i, "jan", "feb", "march", "april", "may", _ "june", "july", "aug", "sept", "oct", "nov", "dec") Set wksh = Worksheets(sname) wksh.Unprotect ("?") wksh.Range("v10") = Me.CheckBox2.Value wksh.Protect ("?") Next End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop Problem
David,
Try this: Private Sub CheckBox2_Change() Dim wksh As Worksheet Set wksh = Worksheets("jan") If CheckBox2.Value = True AND CheckBox6.Value = True Then MsgBox "Please Uncheck Either Plant or Construction Before Proceeding" Exit Sub Else For i = 1 To 12 sname = Choose(i, "jan", "feb", "march", "april", "may", _ "june", "july", "aug", "sept", "oct", "nov", "dec") Set wksh = Worksheets(sname) wksh.Unprotect ("?") wksh.Range("v10") = Me.CheckBox2.Value wksh.Protect ("?") Next End If End Sub John David W wrote: I am trying to stop someone from continuing if they select 2 different checkboxes until one of them are unchecked, I have been playing with this and haven't got it to work,what are your thoughts other than me finding a new job Private Sub CheckBox2_Change() Dim wksh As Worksheet Set wksh = Worksheets("jan") If CheckBox2.Value = True Then If CheckBox6.Value = True Then Stop MsgBox "Please Uncheck Either Plant or Construction Before Proceeding" Else For i = 1 To 12 sname = Choose(i, "jan", "feb", "march", "april", "may", _ "june", "july", "aug", "sept", "oct", "nov", "dec") Set wksh = Worksheets(sname) wksh.Unprotect ("?") wksh.Range("v10") = Me.CheckBox2.Value wksh.Protect ("?") Next End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Stop Problem
Instead of using checkboxes, how about optionbuttons. If they're grouped
nicely, you select one, it unselects the other. David W wrote: I am trying to stop someone from continuing if they select 2 different checkboxes until one of them are unchecked, I have been playing with this and haven't got it to work,what are your thoughts other than me finding a new job Private Sub CheckBox2_Change() Dim wksh As Worksheet Set wksh = Worksheets("jan") If CheckBox2.Value = True Then If CheckBox6.Value = True Then Stop MsgBox "Please Uncheck Either Plant or Construction Before Proceeding" Else For i = 1 To 12 sname = Choose(i, "jan", "feb", "march", "april", "may", _ "june", "july", "aug", "sept", "oct", "nov", "dec") Set wksh = Worksheets(sname) wksh.Unprotect ("?") wksh.Range("v10") = Me.CheckBox2.Value wksh.Protect ("?") Next End If End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How stop the "started office live" pop-up to stop. it is checked | Excel Discussion (Misc queries) | |||
To Stop or Not to Stop | Excel Discussion (Misc queries) | |||
Stop (C) becoming © | Excel Discussion (Misc queries) | |||
How do I stop other circles in other cells to stop selecting? | Excel Worksheet Functions | |||
How do I stop other circles in other boxes to stop selecting? | Excel Worksheet Functions |