Append multiple sheet form multiple workbooks into one master file

[davidmg1982]

Hi everyone, I have a folder with more than 100 files with different name of course, but the same amount of 5 spreadsheets with identical names and identical columns (quantity and name), Im looking for a solution to merge all those files into a single one with 5 spreadsheets containing all the information.

I have no doubt there must be a solution already posted, but I cant express this request on a simpler way and the solutions I found are not quite what I need, any help you can give me will be very appreciated.

 

[davidmg1982]

Try simply copying all the data on one of your source sheets and pasting it here.

Here is a fair example of how a line for each one of the sheets to be imported looks like:

Sheet 1:

Campaign name	Simulation Name	Simulation Level	Email	First Name	Last Name	Event Type
November 2021 (3)	General Interactive Teachable	2​	user@test.com	John	Doe	Email sent

Sheet 2:

Campaign name	Simulation Name	Simulation Level	Email	First Name	Last Name
November 2021 (3)	AI+ General Interactive Teachable	2​	user@test.com	John	Doe

Sheet3:

Campaign name	Simulation Name	Simulation Level	Email	First Name	Last Name
November 2021 (3)	AI + General Interactive Teachable	2​	user@test.com	John	Doe

Sheet4:

Campaign name	Simulation Name	Simulation Level	Email	First Name	Last Name	browser	data Submitted	ip	is_pc	os	time_spent
November 2021 (3)	AI + General Interactive Teachable	2​	user@test.com	John	Doe	Chrome (96.0.4664)	user@test.com@test\.com	211.11.111.11	TRUE​	Windows 10	15​

Sheet5:

First Name

Last Name

Email

Number of lured simulations

Participated simulations

Docusign - Document ready for signature

Dropbox

MT + General Interactive Teachable

SP + General Interactive Teachable

AP+ General Interactive Teachable

AI + General Interactive Teachable

AI + General Interactive Teachable

Test1 + General Interactive Teachable

John

Doe

user@test.com

1​

3​

1​

 

[mumps]

Try:

LastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 

[davidmg1982]

Try:

LastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

I appreciate your time and willingness to help, have a good morning, thanks again.

 

[mumps]

You are very welcome.