Check Box macro

G

Guest

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
 
G

Guest

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top