Combine based on certain criteria

[yasawa]

Hello
I found this example (function) that makes all possible combinations of different ingredients, I want to add a condition that every ingredient can only be used in certain position ( column)...
Any help would be much appreciated

 

[yasawa]

And here is the code I'm using (thanks to the one who wrote it)

Public result() As Variant


Function Combinations(rng As Range, n As Single)
rng1 = rng.Value

ReDim result(n - 1, 0)
    
Call Recursive(rng1, n, 1, 0)

ReDim Preserve result(UBound(result, 1), UBound(result, 2) - 1)
Combinations = Application.Transpose(result)

End Function

Function Recursive(r As Variant, c As Single, d As Single, e As Single)
Dim f As Single

For f = d To UBound(r, 1)

    result(e, UBound(result, 2)) = r(f, 1)

    If e = (c - 1) Then

        ReDim Preserve result(UBound(result, 1), UBound(result, 2) + 1)
        
        For g = 0 To UBound(result, 1)
            result(g, UBound(result, 2)) = result(g, UBound(result, 2) - 1)
        Next g
    Else
        Call Recursive(r, c, f + 1, e + 1)
    End If
    
Next f
    
End Function

 

[yasawa]

I'll try to make a macro that deletes rows based on the needed criteria, any other work around idea is apreciated
Thanks