vba - I want to merge data from multiple excel workbooks in a folder into single excel sheet -
i have pick single row (row 9) data (out of 5 rows (row 6-10) of data in each file) multiple excel files. these files in single folder , consolidation file 1 level in file structure. below given code copies 4 (row 6-9) rows. please help:
code being used given below:
sub auto_open() 'msgbox "welcome analysis tabs" 'end sub 'sub simplexlsmerger() dim booklist workbook dim mergeobj object, dirobj object, filesobj object, everyobj object msgbox "welcome merging platform..." application.screenupdating = true set mergeobj = createobject("scripting.filesystemobject") 'change folder path of excel files here set dirobj = mergeobj.getfolder("c:\users\00508069\desktop\new folder\data") set filesobj = dirobj.files each everyobj in filesobj set booklist = workbooks.open(everyobj) 'change "a2" cell reference of start point every files here 'for example "b3:iv" merge files start columns b , rows 3 'if you're files using more iv column, change latest column 'also change "a" column on "a65536" same column start point range("a9:iv" & range("a10").end(xlup).row).copy thisworkbook.worksheets(1).activate 'do not change following column. it's not same column above range("a65536").end(xlup).offset(1, 0).pastespecial application.cutcopymode = false booklist.close next end sub
the problem in line
range("a9:iv" & range("a10").end(xlup).row).copy more strictly in part
range("a10").end(xlup).row which says "from cell a10 go cell block of data ends , take row number of cell". in case means 6.
use instead , you'll fine
range("a9:iv9").copy
Comments
Post a Comment