Check Box macro
in [Programming]
|
Prev: how can get average of 3 max values out of 7 values in a row
Next: Writing a Macro to Find & Delete Target Rows in a Range
From: Patrick Bateman on 2 Nov 2007 04:58 i am trying to run a macro from a button that is conditional on two check boxes this is what i have so far; Sub InitialBUTTON() If ActiveSheet.CheckBoxes("CheckBox1").Value = True And ActiveSheet.CheckBoxes("CheckBox2").Value = True Then YESNO = MsgBox("Create Initial CHR for " & Sheets("summary").Range("F7").Value & " " & _ Sheets("summary").Range("F8").Value & "?", vbYesNo + vbCritical, "CHR Set Up") Select Case YESNO Case vbYes Call INITIAL_CHR Case vbNo End Select ElseIf ActiveSheet.CheckBoxes("CheckBox1").Value = True And ActiveSheet.CheckBoxes("CheckBox2").Value = False Then MechanicalCHRincomplete.Show ElseIf ActiveSheet.CheckBoxes("CheckBox1").Value = False And ActiveSheet.CheckBoxes("CheckBox2").Value = True Then ElectricalCHRincomplete.Show ElseIf ActiveSheet.CheckBoxes("CheckBox1").Value = False And ActiveSheet.CheckBoxes("CheckBox2").Value = False Then CHRincomplete.Show End If End Sub but i cant get it to work? any help would be much appreciated. Patrick
From: Joel on 2 Nov 2007 06:33
Sub InitialBUTTON() If ActiveSheet.CheckBox1.Value = True And _ ActiveSheet.CheckBox2.Value = True Then YESNO = MsgBox("Create Initial CHR for " & _ Sheets("summary").Range("F7").Value & " " & _ Sheets("summary").Range("F8").Value & "?", vbYesNo + vbCritical, _ "CHR Set Up") Select Case YESNO Case vbYes Call INITIAL_CHR Case vbNo End Select ElseIf ActiveSheet.CheckBox1.Value = True And _ ActiveSheet.CheckBox2.Value = False Then MechanicalCHRincomplete.Show ElseIf ActiveSheet.CheckBox1.Value = False And _ ActiveSheet.CheckBox2.Value = True Then ElectricalCHRincomplete.Show ElseIf ActiveSheet.CheckBox1.Value = False And _ ActiveSheet.CheckBox.Value = False Then CHRincomplete.Show End If End Sub "Patrick Bateman" wrote: > i am trying to run a macro from a button that is conditional on two check boxes > > this is what i have so far; > > Sub InitialBUTTON() > > > > If ActiveSheet.CheckBoxes("CheckBox1").Value = True And > ActiveSheet.CheckBoxes("CheckBox2").Value = True Then > > YESNO = MsgBox("Create Initial CHR for " & > Sheets("summary").Range("F7").Value & " " & _ > Sheets("summary").Range("F8").Value & "?", vbYesNo + vbCritical, > "CHR Set Up") > Select Case YESNO > Case vbYes > Call INITIAL_CHR > Case vbNo > End Select > > ElseIf ActiveSheet.CheckBoxes("CheckBox1").Value = True And > ActiveSheet.CheckBoxes("CheckBox2").Value = False Then > MechanicalCHRincomplete.Show > > ElseIf ActiveSheet.CheckBoxes("CheckBox1").Value = False And > ActiveSheet.CheckBoxes("CheckBox2").Value = True Then > ElectricalCHRincomplete.Show > > ElseIf ActiveSheet.CheckBoxes("CheckBox1").Value = False And > ActiveSheet.CheckBoxes("CheckBox2").Value = False Then CHRincomplete.Show > > End If > > End Sub > > > but i cant get it to work? > > any help would be much appreciated. > > Patrick > |