VBA Permutations and Combinations

Mr2017

Well-known Member
Joined
Nov 28, 2016
Messages
644
Office Version
  1. 365
  2. 2016
Platform
  1. Windows
Hi

I have 3 columns of data - Locations, Packages and Suppliers.

In the small sample below (Table 1), Locations 1 - 10 are listed in column A from cells A2:A11, respectively.

Packages 1 - 5 are listed in cells B2:B6, respectively.

And Suppliers 1 - 12 are listed in cells C2:C13, respectively.

I'd like to use VBA to ensure that for EACH Location AND Supplier, the list of packages is displayed (please see tables 2 and 3 below), as examples.

However, I'd like all the results to be in just three columns - a column for Locations, a column for Packages and a column for Suppliers.

Does anyone know how to do this with VBA, please?

TIA

Table 1

LocationPackageSupplier
Location 1Package 1Supplier 1
Location 2Package 2Supplier 2
Location 3Package 3Supplier 3
Location 4Package 4Supplier 4
Location 5Package 5Supplier 5
Location 6Supplier 6
Location 7Supplier 7
Location 8Supplier 8
Location 9Supplier 9
Location 10Supplier 10
Supplier 11
Supplier 12

Tables 2 and 3

Table 2Table 3
LocationPackageSupplierLocationPackageSupplier
Location 1Package 1Supplier 1Location 1Package 1Supplier 2
Location 1Package 2Supplier 1Location 1Package 2Supplier 2
Location 1Package 3Supplier 1Location 1Package 3Supplier 2
Location 1Package 4Supplier 1Location 1Package 4Supplier 2
Location 1Package 5Supplier 1Location 1Package 5Supplier 2
Location 2Package 1Supplier 1Location 2Package 1Supplier 2
Location 2Package 2Supplier 1Location 2Package 2Supplier 2
Location 2Package 3Supplier 1Location 2Package 3Supplier 2
Location 2Package 4Supplier 1Location 2Package 4Supplier 2
Location 2Package 5Supplier 1Location 2Package 5Supplier 2
Location 3Package 1Supplier 1Location 3Package 1Supplier 2
Location 3Package 2Supplier 1Location 3Package 2Supplier 2
Location 3Package 3Supplier 1Location 3Package 3Supplier 2
Location 3Package 4Supplier 1Location 3Package 4Supplier 2
Location 3Package 5Supplier 1Location 3Package 5Supplier 2
Location 4Package 1Supplier 1Location 4Package 1Supplier 2
Location 4Package 2Supplier 1Location 4Package 2Supplier 2
Location 4Package 3Supplier 1Location 4Package 3Supplier 2
Location 4Package 4Supplier 1Location 4Package 4Supplier 2
Location 4Package 5Supplier 1Location 4Package 5Supplier 2
Location 5Package 1Supplier 1Location 5Package 1Supplier 2
Location 5Package 2Supplier 1Location 5Package 2Supplier 2
Location 5Package 3Supplier 1Location 5Package 3Supplier 2
Location 5Package 4Supplier 1Location 5Package 4Supplier 2
Location 5Package 5Supplier 1Location 5Package 5Supplier 2
Location 6Package 1Supplier 1Location 6Package 1Supplier 2
Location 6Package 2Supplier 1Location 6Package 2Supplier 2
Location 6Package 3Supplier 1Location 6Package 3Supplier 2
Location 6Package 4Supplier 1Location 6Package 4Supplier 2
Location 6Package 5Supplier 1Location 6Package 5Supplier 2
Location 7Package 1Supplier 1Location 7Package 1Supplier 2
Location 7Package 2Supplier 1Location 7Package 2Supplier 2
Location 7Package 3Supplier 1Location 7Package 3Supplier 2
Location 7Package 4Supplier 1Location 7Package 4Supplier 2
Location 7Package 5Supplier 1Location 7Package 5Supplier 2
Location 8Package 1Supplier 1Location 8Package 1Supplier 2
Location 8Package 2Supplier 1Location 8Package 2Supplier 2
Location 8Package 3Supplier 1Location 8Package 3Supplier 2
Location 8Package 4Supplier 1Location 8Package 4Supplier 2
Location 8Package 5Supplier 1Location 8Package 5Supplier 2
Location 9Package 1Supplier 1Location 9Package 1Supplier 2
Location 9Package 2Supplier 1Location 9Package 2Supplier 2
Location 9Package 3Supplier 1Location 9Package 3Supplier 2
Location 9Package 4Supplier 1Location 9Package 4Supplier 2
Location 9Package 5Supplier 1Location 9Package 5Supplier 2
Location 10Package 1Supplier 1Location 10Package 1Supplier 2
Location 10Package 2Supplier 1Location 10Package 2Supplier 2
Location 10Package 3Supplier 1Location 10Package 3Supplier 2
Location 10Package 4Supplier 1Location 10Package 4Supplier 2
Location 10Package 5Supplier 1Location 10Package 5Supplier 2

 
But what you've just posted works exactly as intended!

ie puts the data into one column.

Amazing, as always!!!

Thanks @Fluff!
 
Upvote 0

Excel Facts

Excel motto
Not everything I do at work revolves around Excel. Only the fun parts.
Glad we could help & thanks for the feedback.
 
Upvote 0

Forum statistics

Threads
1,214,653
Messages
6,120,751
Members
448,989
Latest member
mariah3

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top