carlala
10-07-2014, 09:40 AM
Hi all,
VBA coding is brand new to me today, I've got some experience on SAS but finding VBA a little tricky!
I cannot seem to find a tutorial to simply make a new variable depending on the contents of an existing variable.
My current code I'm trying does absolutely nothing:
Sub arms()
If Subject = "1" Then
Arm = "1"
ElseIf Subject = "2" Then
Arm = "1"
ElseIf Subject = "3" Then
Arm = "1"
ElseIf Subject = "4" Then
Arm = "2"
ElseIf Subject = "5" Then
Arm = "1"
ElseIf Subject = "6" Then
Arm = "1"
ElseIf Subject = "7" Then
Arm = "1"
ElseIf Subject = "8" Then
Arm = "2"
ElseIf Subject = "9" Then
Arm = "2"
ElseIf Subject = "10" Then
Arm = "2"
ElseIf Subject = "11" Then
Arm = "2"
ElseIf Subject = "12" Then
Arm = "1"
ElseIf Subject = "13" Then
Arm = "2"
ElseIf Subject = "14" Then
Arm = "1"
ElseIf Subject = "15" Then
Arm = "1"
ElseIf Subject = "16" Then
Arm = "1"
ElseIf Subject = "17" Then
Arm = "1"
ElseIf Subject = "18" Then
Arm = "2"
ElseIf Subject = "19" Then
Arm = "2"
ElseIf Subject = "20" Then
Arm = "2"
ElseIf Subject = "21" Then
Arm = "2"
ElseIf Subject = "22" Then
Arm = "1"
ElseIf Subject = "23" Then
Arm = "1"
ElseIf Subject = "24" Then
Arm = "1"
ElseIf Subject = "25" Then
Arm = "1"
ElseIf Subject = "26" Then
Arm = "2"
ElseIf Subject = "27" Then
Arm = "2"
ElseIf Subject = "28" Then
Arm = "2"
ElseIf Subject = "29" Then
Arm = "2"
ElseIf Subject = "30" Then
Arm = "2"
ElseIf Subject = "31" Then
Arm = "2"
ElseIf Subject = "32" Then
Arm = "1"
ElseIf Subject = "33" Then
Arm = "1"
ElseIf Subject = "34" Then
Arm = "1"
ElseIf Subject = "35" Then
Arm = "2"
ElseIf Subject = "36" Then
Arm = "2"
ElseIf Subject = "37" Then
Arm = "1"
ElseIf Subject = "38" Then
Arm = "2"
ElseIf Subject = "39" Then
Arm = "2"
ElseIf Subject = "40" Then
Arm = "1"
Else
Arm = "0"
End If
End Sub
/*Should I be referencing the cell letters A/B rather than the variables I've assigned at the top? Do I need to account for the numeric format?
12369
^here is my worksheet :)
Thanks for any help given, it will really be appreciated!
VBA coding is brand new to me today, I've got some experience on SAS but finding VBA a little tricky!
I cannot seem to find a tutorial to simply make a new variable depending on the contents of an existing variable.
My current code I'm trying does absolutely nothing:
Sub arms()
If Subject = "1" Then
Arm = "1"
ElseIf Subject = "2" Then
Arm = "1"
ElseIf Subject = "3" Then
Arm = "1"
ElseIf Subject = "4" Then
Arm = "2"
ElseIf Subject = "5" Then
Arm = "1"
ElseIf Subject = "6" Then
Arm = "1"
ElseIf Subject = "7" Then
Arm = "1"
ElseIf Subject = "8" Then
Arm = "2"
ElseIf Subject = "9" Then
Arm = "2"
ElseIf Subject = "10" Then
Arm = "2"
ElseIf Subject = "11" Then
Arm = "2"
ElseIf Subject = "12" Then
Arm = "1"
ElseIf Subject = "13" Then
Arm = "2"
ElseIf Subject = "14" Then
Arm = "1"
ElseIf Subject = "15" Then
Arm = "1"
ElseIf Subject = "16" Then
Arm = "1"
ElseIf Subject = "17" Then
Arm = "1"
ElseIf Subject = "18" Then
Arm = "2"
ElseIf Subject = "19" Then
Arm = "2"
ElseIf Subject = "20" Then
Arm = "2"
ElseIf Subject = "21" Then
Arm = "2"
ElseIf Subject = "22" Then
Arm = "1"
ElseIf Subject = "23" Then
Arm = "1"
ElseIf Subject = "24" Then
Arm = "1"
ElseIf Subject = "25" Then
Arm = "1"
ElseIf Subject = "26" Then
Arm = "2"
ElseIf Subject = "27" Then
Arm = "2"
ElseIf Subject = "28" Then
Arm = "2"
ElseIf Subject = "29" Then
Arm = "2"
ElseIf Subject = "30" Then
Arm = "2"
ElseIf Subject = "31" Then
Arm = "2"
ElseIf Subject = "32" Then
Arm = "1"
ElseIf Subject = "33" Then
Arm = "1"
ElseIf Subject = "34" Then
Arm = "1"
ElseIf Subject = "35" Then
Arm = "2"
ElseIf Subject = "36" Then
Arm = "2"
ElseIf Subject = "37" Then
Arm = "1"
ElseIf Subject = "38" Then
Arm = "2"
ElseIf Subject = "39" Then
Arm = "2"
ElseIf Subject = "40" Then
Arm = "1"
Else
Arm = "0"
End If
End Sub
/*Should I be referencing the cell letters A/B rather than the variables I've assigned at the top? Do I need to account for the numeric format?
12369
^here is my worksheet :)
Thanks for any help given, it will really be appreciated!