Creating/Populating TABLE (NEW) from an OLD TABLE base on ListBox choices

[Gilcano]

Hi everyone
I'm confused about picking choices from a ListBox (which are the column Names of a TABLE ) and creating a NEW TABLE based on this choices. I'm doing this because the Maintenance Director will not want to print the whole Worksheet everytime but he wants to be able to choose the columns then print just those columns.

I created a Userform to get the Columns the USER will want to print but at this point I don't know how to manipulate the column names to create the Table (In Sheet2 perhaps) then print it. I read an article in the NET about Converting a Range to a Table then picking parts of that Table to "construct" the new Worksheet but again I'm very confused. I'll appreciate any suggestions. (Many of the code statements is from the NET and I modified it to work for my Application)
Thanks

Sample of the Worksheet:
Worksheet.JPG

The UserForm:
PrintColumns.JPG

The CODE:

Please Login or Register  to view this content.

[Gilcano]

I guess no one has done this...

[vichopalacios]

Hi @Gilcano

I've scratched your code a bit, cause I found some inconsistencies.

try it and coment us.

Please Login or Register  to view this content.

[Gilcano]

@vichopalacios, I really appreciate your help as I mentioned I'm learning VBA and sometimes wants to get results too fast and that will lead to inconsistencies like you mentioned. I apologize but wants to get this done. I pasted your code and I'm getting a Run-Time Error 'Could not get the Selected Property. Invalid Argument. when adding the items from Listbox1 (MyWsheetCol) to Listbox2 (MyWSheet2). Thanks for helping me.

I like your way of populating the ListBox1 (MyWSheetCol) with the headers in Sheet1. With this method you could do any worksheet if you pass the Worksheet Name.....Very nice.


Error.JPG
Error1.JPG

[vichopalacios]

Hi Gilcano

I can't see anything wrong with the code, I tested and it's working fine to me
I'm attaching a sample file to show you it's OK

Perhaps you changed something when pasting...

[Gilcano]

Thanks a lot, found the problem. My ListBox1 (MyWSheetCol) MultiSelect property was set to fmMultiSelectMulti instead of fmMultiSelectSingle.

ThumbsUp.jpg

[vichopalacios]

glad to know it was helpfull for you
you are wdlcome
good luck


Vicho