Running VBA based on one or more Checkboxes selected

[justme101]

Hello,

I have a sheet which is the source of some data and the ultimate goal is to copy the to another sheet. Now, the data is being copied from 4 columns. and is being transposed into rows to a different sheet. I have got the code working nicely. But, now the requirement is that not all columns beed to be copied all the time. Sometimes column x might need to be copied, sometimes X and Y, sometimes X and Z...and so on. There are 4 columns which have the data to be copied A, B, C and D.

I created a VBA user form which has 4 check boxes, basically giving the option to select which column(s) need to be copied over. So, if only the check box for column A and C are checked, the code will copy only columns A and C to the destination sheet. So, you can see there will be multiple permutations and combinations of the check boxes here. I need guidance on how to structure this code. I can write the action code in the shell, just need the shell for it. Any help is greatly appreciated. Thank you.

 

[Anthony47]

For example:
-assign to the checkboxes the name CBx1, CBx2, ..., where x1 is the number of the columns potentially to be copied

-then use the following approach:

Dim toCopy, cCol

toCopy = Array(4, 6, 7, 8)          '<<< List of the columns to copy
For Each cCol In toCopy
    If UserForm1.Controls("CB" & cCol) Then
        'here the code to copy column #cCol
    End If
Next cCol

With this example the chckboxes have to be named CD4, CB6, CB7, CB8

Try...