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

Popular posts from this blog

python - Selenium remoteWebDriver (& SauceLabs) Firefox moseMoveTo action exception -

html - How to custom Bootstrap grid height? -

transpose - Maple isnt executing function but prints function term -