Hi Sandeep,
I have a code, which simply goes to specific folder & open the workbooks
one by one & copy the data and paste them in same sheet (Where the marcro
is written).
** Make sure all the files have same header, because it copies all the data
including the header.
So if this is relevant, I can share the code.
Thanks.
Devendra
On Tue, Jan 26, 2016 at 8:52 PM, Sandeep Chhajer <chhajersand...@gmail.com>
wrote:
> Hi,
>
>
> Any way to solve this problem.
>
> Sent from my BlackBerry 10 smartphone.
> *From: *Sandeep Chhajer <chhajersand...@gmail.com>
> *Sent: *Sunday 24 January 2016 18:07
> *To: *Excel Macros
> *Reply To: *excel-macros@googlegroups.com
> *Subject: *$$Excel-Macros$$ Merge multiple Workbook
>
> Hi Excel guru,
>
> I have found macros for merging multiple workbook (kept in a single
> folder) into a single worksheet.
>
> But my requirement is a step ahead...can that macro to be changed to copy
> only specified column from every wrokbook (Sheet1). Like it will search in
> all the workbooks (sheet1 row no 1 to 6 ) kept in a folder; and wherever it
> will find "Name" , "Emp code" or " Net payment" then copy the range into
> new sheet one after one.
>
> the code I am using (got from website) for merging the workbooks are
> pasted below. (Any thing new to solve the above problem is also welcome)
>
>
> Sub simpleXlsMerger()
> Dim bookList As Workbook
> Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As
> Object
> Application.ScreenUpdating = False
> Set mergeObj = CreateObject("Scripting.FileSystemObject")
>
> 'change folder path of excel files here
> Set dirObj = mergeObj.Getfolder("C:\Working\MT\MT 2015 16\MT Q3\Actuas All
> ")
> Set filesObj = dirObj.Files
> For Each everyObj In filesObj
> Set bookList = Workbooks.Open(everyObj)
>
> 'change "A2" with cell reference of start point for every files here
> 'for example "B3:IV" to merge all files start from columns B and rows 3
> 'If you're files using more than IV column, change it to the latest column
> 'Also change "A" column on "A65536" to the same column as start point
> Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy
> ThisWorkbook.Worksheets(1).Activate
>
> 'Do not change the following column. It's not the same column as above
> Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
> Application.CutCopyMode = False
> bookList.Close
> Next
> End Sub
>
> Thanking you in advance.
> --
> Regards,
> CA Sandeep Kumar Chhajer
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at https://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
>
--
With Regard !!!
Devendra Rahi
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at https://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
