Excel permutations of columns VBA required

[colink2]

Hi

I had a fully working Excel workbook that I found from an online tutorial, but the woorkbook has lost it's VBA code somehow.

I have spent a lot of time online looking again including this forum, but could not find exactly what I need.

If anyone could provide necessary code or point me to a turorial I would appreciate it.

It allowed user to enter data into any number of columns (I only need three).

Running the macro created three new columns to the right with all possible permutations - no duplicates.

see image.

Thanks ColinK2

 

[DanteAmor]

Hi and welcome to MrExcel!

For 3 columns try this:

Sub permutations_columns()
  Dim i As Long, j As Long, k As Long, n As Long
  For i = 1 To Range("A" & Rows.Count).End(3).Row
    For j = 1 To Range("B" & Rows.Count).End(3).Row
      For k = 1 To Range("C" & Rows.Count).End(3).Row
        Range("E" & Rows.Count).End(3)(2).Resize(1, 3).Value = Array(Range("A" & i), Range("B" & j), Range("C" & k))
      Next
    Next
  Next
End Sub

 

[colink2]

Hi and welcome to MrExcel!

Fantastic. I really appreciate your prompt response.

This does exactly what I want for my current project.

I posted this question at 1am before going to bed and had my answer when I logged on this morning.

I am a "copy and paste" coder but think I could even mange to edit the code for additional columns.
=====
If anyone finds code which automatically deals with multiple columns that are not defined in the code it would be good if they could reply with details. Even if that does nto happen I am more than happy with the great help I received from @DanteAmor