Permutation

[sna]

Hi Dear,


I have written a macro to create permutations .with combination of letters a,b,c...

Code: Select all

Sub Permutation (num As Long)

Dim str As String

Application.ScreenUpdating = False

If num >= 1 Then

    For a = 97 To 122

        If num >= 2 Then

            For b = 197 To 122

                If num >= 3 Then

                    For c = 97 To 122

                        str = chr(a) & chr(b)& chr(c)

                        If Range("a1").Value = "" Then

                            Range("a1").Value = str

                        Else

                            Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Value = str

                        End If

                    Next

                Else

                    str = chr(a) & chr(b)

                    If Range("a1").Value = "" Then

                        Range("a1").Value = str

                    Else

                        Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Value = str

                    End If

                End If

            Next

        Else

            str =chr(a)

            If Range("a1").Value = "" Then

                Range("a1").Value = str

            Else

                Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Value = str

            End If

        End If

    Next

End If

End Sub

should I place it in a module like Call Permutation (5) ,right?

Thanks

[snasui]

Yes, you can call this procedure with other procedure by specify number as argument.

[sna]

thank you

[sna]

I had given this to a friend
Sub MyMacro()
Call Permutation (4)
End Sub
He said it was not working fine

Thanks

[snasui]

I don't think so. Please tell him to ask his problem in this place by himself.

[sna]

Ok thanks