extracting data

[deedee88]

Hi

I have a workbook of departments in one column and the actual spent by month going accross the columns.

I would like a macro to extract each of the department information into a separate workbook.

Any help will be greatly appreciated.


Thank you,

 

[westconn1]

you can try like this

For Each r In Sheets("sheet1").UsedRange.Rows
        Set nwb = Workbooks.Add
        r.Copy nwb.Sheets(1).Range("a1")
        nwb.SaveAs somepath & r.Range("a1")
        nwb.Close
Next

 

[deedee88]

Thanks for the reply, but I am not too familiar with VBA coding.

Could you please explain in more detail?

Thank you!

 

[westconn1]

try the code on a sample workkbook with a small amount of data
change sheetname as reqd, and give somepath a value,where to save the files, ending in \
the code works through each row, adds a new workbook copies the row and saves the workbook with the name in col A