Conernesto
asked on
How do I extract data from Excel worksheets?
I have many Excel workbooks in my path C:\ASIA . All the workbooks are structured the same (the extension on my workbooks is .xlsm). In each workbook I have a sheet named "CompanyInformation". I need to capture from CompanyInformtion the contents from each of the following cells.
Cells I9, J10, H11, A12, P14, H18, AND H19
Is there a macro that I can run from Excel that can copy the contents in each of the above cells from each tab named CompanyInformation? The macro would start importing to my current open Excel beginning in cell A1 the contents of cell I9, in cell B2 the contents of cell J10 until you get to cell G which will get the contents of cell H19. The contents of the next workbook would be imported to cell B1 and so on until all the information from all the workbooks is imported.
Thank you
Conernesto
Cells I9, J10, H11, A12, P14, H18, AND H19
Is there a macro that I can run from Excel that can copy the contents in each of the above cells from each tab named CompanyInformation? The macro would start importing to my current open Excel beginning in cell A1 the contents of cell I9, in cell B2 the contents of cell J10 until you get to cell G which will get the contents of cell H19. The contents of the next workbook would be imported to cell B1 and so on until all the information from all the workbooks is imported.
Thank you
Conernesto
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Hi Ray,
Your code works. Can you modify the code so that the contents from cells I9, J10, H11, A12, P14, H18, AND H19 is placed on a row vs. down on a column?
Your code works. Can you modify the code so that the contents from cells I9, J10, H11, A12, P14, H18, AND H19 is placed on a row vs. down on a column?
do you mean the data from A1 to A9 will be A1 to I1?
just select all the cells, copy select A10 and paste special > transpose
just select all the cells, copy select A10 and paste special > transpose
ASKER
Thank you as always great job.
That being said I think this might do the trick:
Open in new window