Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Box macro
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Box macro
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
check box macro | Excel Discussion (Misc queries) | |||
Macro for check box | Excel Discussion (Misc queries) | |||
Check Box Macro | Excel Discussion (Misc queries) | |||
check contain value with macro | Excel Programming | |||
Check Box Macro | Excel Programming |