find the possibilities

B

BlackBlade

Dear friends,
lets say i have 6 numbers. if i take 4 numbers out of the 6 at a time and
multiply them i know i have 15 possible series of the 4 numbers. Is there a
way by vba in excel to have all the possible 4pairs multiplations?

for example
a1 10 1st match = a1*a2*a3*a4
a2 9 2nd match= a2*a3*a4*a5
a3 7 3rd match =a3*a4*a5*a6
a4 5 4th .....
a5 4 15th....=a1*a4*a5*a6
a6 3

is it possible to have all matches with a click?how?
thanks in advance!
 
C

Cecilkumara Fernando

BlackBlade,
Try this

Sub dd()
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
For m = k + 1 To 6
n = n + 1
Cells(n, 2).Value = Cells(i, 1) * _
Cells(j, 1) * Cells(k, 1) * Cells(m, 1)

Next
Next
Next
Next
End Sub

Cecil
 
B

BlackBlade

Thanks a lot my friend. It works fine. I adjusted it the way i want it and
its perfect. Thanks my friend
 
Top