I am trying to make a yes no maybe survey Star Trek as Yes and Star Wars as No and No Pref as maybe. This is how far I have got I am also tallying the totals in field A1:C2
<tbody>
</tbody>
Private Sub btnOK_Click()
Dim intSelection As Integer
Worksheets("0412").Activate
If optStarTrek'get lost here
intSelection = Range("A2").Value
End Sub
Private Sub optNO_Click()
Unload frmSurvey
MsgBox "Thank you for you valuable input.", , "Survey Complete"
End Sub
Private Sub optYes_Click()
lblmovies.Visible = True
optStarTrek.Visible = True
optStarWars.Visible = True
optNoPref.Visible = True
btnOK.Visible = True
End Sub
A | B | C | |
1 | Star Trek | Star Wars | No Pref |
2 | 0 | 0 | 0 |
<tbody>
</tbody>
Private Sub btnOK_Click()
Dim intSelection As Integer
Worksheets("0412").Activate
If optStarTrek'get lost here
intSelection = Range("A2").Value
End Sub
Private Sub optNO_Click()
Unload frmSurvey
MsgBox "Thank you for you valuable input.", , "Survey Complete"
End Sub
Private Sub optYes_Click()
lblmovies.Visible = True
optStarTrek.Visible = True
optStarWars.Visible = True
optNoPref.Visible = True
btnOK.Visible = True
End Sub