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
[TABLE="class: grid, width: 200"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Star Trek[/TD]
[TD]Star Wars[/TD]
[TD]No Pref[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[/TR]
</tbody>[/TABLE]
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
[TABLE="class: grid, width: 200"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Star Trek[/TD]
[TD]Star Wars[/TD]
[TD]No Pref[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[/TR]
</tbody>[/TABLE]
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