Ladyj205
04-18-2018, 11:52 AM
:hi:
I did this before for word. All I'm trying to do is get the optionbuttons to calculate.
i'm using ms excel 2010. I have 4 optionbuttons for each section. I'm trying to get the Score = selected value * 10 for 2 sections. i need to get the sum of 2 results for grandtotal for both and scores.
im NOT having any success at it. i wont mind if someone use another number besides 10 for examples and steps.:crying:: pray2:
Private Sub OptionButton_1_0_Click()
If OptionButton_1_0 Then
Selection.Range(A6:A9).(B9)Range.Text = "0"
End If
End Sub
Private Sub OptionButton_1_1_Click()
If OptionButton_1_1 Then
Selection.Range(A6:A9).(B8)Range.Text = "10"
End If
End Sub
Private Sub OptionButton_1_2_Click()
If OptionButton_1_2 Then
Selection.Range(A6:A9).(B7)Range.Text = "20"
End If
End Sub
Private Sub OptionButton_1_3_Click()
If OptionButton_1_3 Then
Selection.Range(A6:A9).(B6)Range.Text = "30"
End If
End Sub
Private Sub OptionButton_1_0_Click()
If OptionButton_2_0 Then
Selection.Range(A11:A14).(B14)Range.Text = "0"
End If
End Sub
Private Sub OptionButton_1_1_Click()
If OptionButton_2_1 Then
Selection.Range(A11:A14).(B13)Range.Text = "10"
End If
End Sub
Private Sub OptionButton_1_2_Click()
If OptionButton_2_2 Then
Selection.Range(A11:A14).(B12)Range.Text = "20"
End If
End Sub
Private Sub OptionButton_1_3_Click()
If OptionButton_2_3 Then
Selection.Range(A11:A14).(B11)Range.Text = "30"
End If
End Sub
I did this before for word. All I'm trying to do is get the optionbuttons to calculate.
i'm using ms excel 2010. I have 4 optionbuttons for each section. I'm trying to get the Score = selected value * 10 for 2 sections. i need to get the sum of 2 results for grandtotal for both and scores.
im NOT having any success at it. i wont mind if someone use another number besides 10 for examples and steps.:crying:: pray2:
Private Sub OptionButton_1_0_Click()
If OptionButton_1_0 Then
Selection.Range(A6:A9).(B9)Range.Text = "0"
End If
End Sub
Private Sub OptionButton_1_1_Click()
If OptionButton_1_1 Then
Selection.Range(A6:A9).(B8)Range.Text = "10"
End If
End Sub
Private Sub OptionButton_1_2_Click()
If OptionButton_1_2 Then
Selection.Range(A6:A9).(B7)Range.Text = "20"
End If
End Sub
Private Sub OptionButton_1_3_Click()
If OptionButton_1_3 Then
Selection.Range(A6:A9).(B6)Range.Text = "30"
End If
End Sub
Private Sub OptionButton_1_0_Click()
If OptionButton_2_0 Then
Selection.Range(A11:A14).(B14)Range.Text = "0"
End If
End Sub
Private Sub OptionButton_1_1_Click()
If OptionButton_2_1 Then
Selection.Range(A11:A14).(B13)Range.Text = "10"
End If
End Sub
Private Sub OptionButton_1_2_Click()
If OptionButton_2_2 Then
Selection.Range(A11:A14).(B12)Range.Text = "20"
End If
End Sub
Private Sub OptionButton_1_3_Click()
If OptionButton_2_3 Then
Selection.Range(A11:A14).(B11)Range.Text = "30"
End If
End Sub