Selecting Multiple columns based on headers and copying to seaperate sheet

**jonto81** · 12-11-2010, 10:53 AM

Guys,

I need a bit of help with this - I have a report that is run weekly and the information I need from it is under headings in Row 1, these are not always in the same column so I can't simply use column A etc.

There are approx 40 columns and I need to pull 16 of them out into a new worksheet in a specific order - for example Column Z might have header "Age" and I need that in Column A in the new worksheet.

I have been trying to approach this for an array perspective but it's not working at all for me so any advice would be greatly appreciated

**watersev** · 12-11-2010, 11:45 AM

please post sample workbook with original data and result you'd like to obtain

**jonto81** · 12-11-2010, 11:55 AM

Sorry - I have attached a quick mock up of what I want to achive - RAW DATA (there are a lot more headings but this is just an example) is what I start with and MIS is what I want the Macro to create from this data (in the order they are in with the 2 empty columns as well)

**watersev** · 12-11-2010, 01:21 PM

see attachment, run macro "MoveColumns"

**jonto81** · 12-12-2010, 06:28 AM

Many thanks Watersev, does exactly what I need - if you get a chance can you post an explination of the code so that I can amend or adapt in the future

Thanks

**watersev** · 12-12-2010, 06:48 AM

see attachment, explanation is in code as remarks. I have amended the code a bit in order for it to deal with error (when there is no such header in original table).

**jonto81** · 12-12-2010, 10:13 AM

Exclent - Thank you very much

**chak1980** · 12-03-2013, 10:44 AM

Dear watersev,

i know your post is quite old, but if you are out there, I am using your VB code (which is excellent btw, thank you). However, sometimes not all columns exist in my original data, so I get an error which stops the sub. Is there a way to keep it running and searching only for the column headers available in the original data?

thank you