Dim wks As Worksheet
Dim addnew As Range
Dim addup(20) As Double
Set wks = Sheet9
Set addnew = wks.Range("CI3").Offset(0, 0)
If aryes.Value = True Then
addnew.Offset(0, 0).Value = aryes.Caption
ElseIf arno.Value = True Then
addnew.Offset(0, 0).Value = arno.Caption
End If
If aryes1.Value = True Then
addnew.Offset(0, 1).Value = aryes1.Caption
ElseIf arno1.Value = True Then
addnew.Offset(0, 1).Value = arno1.Caption
End If
If aryes2.Value = True Then
addnew.Offset(0, 2).Value = aryes2.Caption
ElseIf arno2.Value = True Then
addnew.Offset(0, 2).Value = arno2.Caption
End If
If aryes3.Value = True Then
addnew.Offset(0, 3).Value = aryes3.Caption
ElseIf arno3.Value = True Then
addnew.Offset(0, 3).Value = arno3.Caption
End If
If aryes4.Value = True Then
addnew.Offset(0, 4).Value = aryes4.Caption
ElseIf arno4.Value = True Then
addnew.Offset(0, 4).Value = arno4.Caption
End If
If aryes5.Value = True Then
addnew.Offset(0, 5).Value = aryes5.Caption
ElseIf arno5.Value = True Then
addnew.Offset(0, 5).Value = arno5.Caption
End If
If aryes6.Value = True Then
addnew.Offset(0, 6).Value = aryes6.Caption
ElseIf arno6.Value = True Then
addnew.Offset(0, 6).Value = arno6.Caption
End If
If aryes7.Value = True Then
addnew.Offset(0, 7).Value = aryes7.Caption
ElseIf arno7.Value = True Then
addnew.Offset(0, 7).Value = arno7.Caption
End If
If aryes8.Value = True Then
addnew.Offset(0, 8).Value = aryes8.Caption
ElseIf arno8.Value = True Then
addnew.Offset(0, 8).Value = arno8.Caption
End If
If aryes9.Value = True Then
addnew.Offset(0, 9).Value = aryes9.Caption
ElseIf arno9.Value = True Then
addnew.Offset(0, 9).Value = arno9.Caption
End If
If aryes.Value = True Then
addup(0) = 100
ElseIf arno.Value = True Then
addup(0) = 0
End If
If aryes1.Value = True Then
addup(1) = 100
ElseIf arno1.Value = True Then
addup(1) = 0
End If
If aryes2.Value = True Then
addup(2) = 100
ElseIf arno2.Value = True Then
addup(2) = 0
End If
If aryes3.Value = True Then
addup(3) = 100
ElseIf arno3.Value = True Then
addup(3) = 0
End If
If aryes4.Value = True Then
addup(4) = 100
ElseIf arno4.Value = True Then
addup(4) = 0
End If
If aryes5.Value = True Then
addup(5) = 100
ElseIf arno5.Value = True Then
addup(5) = 0
End If
If aryes6.Value = True Then
addup(6) = 100
ElseIf arno6.Value = True Then
addup(6) = 0
End If
If aryes7.Value = True Then
addup(7) = 100
ElseIf arno7.Value = True Then
addup(7) = 0
End If
If aryes8.Value = True Then
addup(8) = 100
ElseIf arno8.Value = True Then
addup(8) = 0
End If
If aryes9.Value = True Then
addup(9) = 100
ElseIf arno9.Value = True Then
addup(9) = 0
End If