Function for combinations
Hi Rob
I'm not that flash with Excel Combo boxes ( Access, not a problem ),
that said!
If you know how to tie the combobox to this then it maybe a winner for you.
Sub myCombo()
Dim ComboSelect As Range
Dim ComboTag As Range
Set ComboSelect = Range("A2:A23") 'Combobox range
Set ComboTag = [B2] 'Corresponding Combo # output cell
Select Case ComboSelect
Case Is = "1-2-3-4-5"
ComboTag.Value = 1
Case Is = "1-2-3-4-6"
ComboTag.Value = 2
Case Is = "1-2-3-4-7"
ComboTag.Value = 3
Case Is = "1-2-3-5-6"
ComboTag.Value = 4
Case Is = "1-2-3-5-7"
ComboTag.Value = 5
Case Is = "1-2-3-6-7"
ComboTag.Value = 6
Case Is = "1-2-4-5-6"
ComboTag.Value = 7
Case Is = "1-2-4-5-7"
ComboTag.Value = 8
Case Is = "1-2-4-6-7"
ComboTag.Value = 9
Case Is = "1-2-5-6-7"
ComboTag.Value = 10
Case Is = "1-3-4-5-6"
ComboTag.Value = 11
Case Is = "1-3-4-5-7"
ComboTag.Value = 12
Case Is = "1-3-4-6-7"
ComboTag.Value = 13
Case Is = "1-2-5-6-7"
ComboTag.Value = 14
Case Is = "1-4-5-6-7"
ComboTag.Value = 15
Case Is = "2-3-4-5-6"
ComboTag.Value = 16
Case Is = "2-3-4-5-7"
ComboTag.Value = 17
Case Is = "2-3-4-6-7"
ComboTag.Value = 18
Case Is = "2-3-5-6-7"
ComboTag.Value = 19
Case Is = "2-4-5-6-7"
ComboTag.Value = 20
Case Is = "3-4-5-6-7"
ComboTag.Value = 21
End Select
End Sub
Of course If I have it wrong, one of the many talented Guru's will
correct it.
HTH
Mick.
On 19/01/2012 8:37 PM, Robert Crandal wrote:
Combo #1) 1-2-3-4-5
Combo #2) 1-2-3-4-6
Combo #3) 1-2-3-4-7
Combo #4) 1-2-3-5-6
Combo #5) 1-2-3-5-7
Combo #6) 1-2-3-6-7
Combo #7) 1-2-4-5-6
Combo #8) 1-2-4-5-7
Combo #9) 1-2-4-6-7
Combo #10 1-2-5-6-7
Combo #11) 1-3-4-5-6
Combo #12) 1-3-4-5-7
Combo #13) 1-3-4-6-7
Combo #14) 1-3-5-6-7
Combo #15) 1-4-5-6-7
Combo #16) 2-3-4-5-6
Combo #17) 2-3-4-5-7
Combo #18) 2-3-4-6-7
Combo #19) 2-3-5-6-7
Combo #20) 2-4-5-6-7
Combo #21) 3-4-5-6-7
|