View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
VBA Noob VBA Noob is offline
external usenet poster
 
Posts: 26
Default Copy data from multiple sheets to new workbook

Hi all,

I would like to do the following.

Loop through each sheet and if the sheet name is like dept and cell N10 isn't Like Name then
Loop through each cell from F12 to last blank cell which is a list of descriptions (Note that column N has Formulas) and paste to new workbook Column B.
Then copy first name from N10 and paste to Col A and drag down to list of descriptions copy from Column F.
Next copy from N12 down to list of descriptions in Column F and paste into a the new workbook in Column C.
Then loop through the remainder of Row 10 for each name until cell text like Name and copy the data from row 12 down.
Then loop through the remaining sheets.

Basically Row 10 has names, Column F has Description and Column N has the first set of values for the first person and tranposing from horizontal list to a vertical list.

Got the data out but in the horizontal view and can share that code if required.

Thinking I need to do a loop on column F to find the last blank cell and then set the range as F12 to whatever the loop row is but and tips/example code would be appreciated. Any questions or additional info then please ask.

Regards

Danny