Need help with creating all the possible combinations from the table.

[alk3yn]

after researching..i couldnt really come up with much results which is why im posting here.
1] is it possible to make out combinations with the given data?
2] also, i have to make sure that when it is combined, the total =10 not more or less
Here's the data:

	a	b	c	d	e	f	g	h	i	o	p	q	r
s	1		1		1		2		1			1	1
t	2						2
u		1		1		1	1					2
v			1		1	1	1	1		2
w			1			1	1			3	1		1
x				1					4
y		1						1
z	1				1	1		1	1				1
aa	2	2			1			1		2		1	1
ab					1		1

<tbody>
</tbody>

Thanks in advance for any help! =)

 

[kweaver]

I ran MG02Jun14

Sub Function not found: dic

 

[MickG]

Have you declared the Variables above the sub like below ????

Option Explicit
Dim Dic As Object
Dim Ray()
Dim c As Long

Sub MG02Jun14()
Dim Rng As Range, Dn As Range
Set Dic = CreateObject("scripting.dictionary")
Dic.CompareMode = vbTextCompare
For Each Dn In Range("B1:N1")
-------------------
---------
--------

 

[kweaver]

I thought so: