Help needed for creating permutation list

[Capers]

Hello friends,

I am facing an issue while creating permutation list in Excel. I have several items that I would like to combine, lets call them characters l,m,n,o

Each character is situated in a different column, next to each other.The sequence is not important for me,but each row should contain a unique combination of characters.

Can anyone help me out with this issue.


Intel Core 2 Duo 2.8 Ghz
G31 Asrock Motherboard with Intel chipset
1gb RAM
GeForce 6200 TC
500gb HDD

[Reegan]

Try to use the following code:-

Sub Permute2atatime()
Dim v, i, j, k
v = Array("l", "m", "n", "o")
k = 1
For i = LBound(v) To UBound(v)
 For j = LBound(v) To UBound(v)
  If i <> j Then
   s = v(i) & " " & v(j)
   Cells(k, 2) = s
   k = k + 1
  End If
 Next
Next


End Sub

[Capers]

I try to use the above code it is not working for me.


Intel Core 2 Duo 2.8 Ghz
G31 Asrock Motherboard with Intel chipset
1gb RAM
GeForce 6200 TC
500gb HDD

[Modifier]

Try to use the following code i am sure it will work for you.

Dim CurrentRow

Sub GetString()
Dim InString As String
InString = InputBox("Enter text to permute:")
If Len(InString) < 2 Then Exit Sub
If Len(InString) >= 8 Then
MsgBox "Too many permutations!"
Exit Sub
Else
ActiveSheet.Columns(1).Clear
CurrentRow = 1
Call GetPermutation("", InString)
End If
End Sub

Sub GetPermutation(x As String, y As String)
Dim i As Integer, j As Integer
j = Len(y)
If j < 2 Then
Cells(CurrentRow, 1) = x & y
CurrentRow = CurrentRow + 1
Else
For i = 1 To j
Call GetPermutation(x + Mid(y, i, 1), _
Left(y, i - 1) + Right(y, j - i))
Next
End If
End Sub