Forum Discussion
Copy Entire Column from Multiple Workbooks through Header Name and Paste Appended Result into Opened
I am looking for a code and i have looked around but could not find anything related. Thought to post a question here. I have multiple workbooks in a Folder around 8 and there are Similar columns...
Does it work if you change
wb.Columns(4).Copy twb.Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
to
wb.Worksheets(1).Columns(4).Copy twb.Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
Actually No.
Because i want to search the Column by Header in each workbook if Header matched then copy entire column and paste into an open workbook then find it in another workbook same goes for all workbook.
Note: All columns will be pasted in Single column.
Because in each workbook the Header is not in Similar column. Their location is different from other workbooks
Because i want to search the Column by Header in each workbook if Header matched then copy entire column and paste into an open workbook then find it in another workbook same goes for all workbook.
Note: All columns will be pasted in Single column.
Because in each workbook the Header is not in Similar column. Their location is different from other workbooks