Consolidaton Spiliting

[pragnesh_50]

Hi


I have one shared Book in which every member of my team put there data in their own sheet.

ex.... Sheetx, Sheety, Sheetz etc.,


Every week i have to combine all the data in to one sheet or new book.


Then after i am creating 4 new book form one single book. This whole process takes my whole day in a week.


What is the simplest and fastest way to do all such consolidation and spiliting the sheeets, so that my time will reduce?

 

[cash_flow_pro]

Hiya Pragnesh!


I'm thinking that you should most definately employ the data > consolidation function in order to turn this into an almost instant analysis.


No nned to spend hours copying data back & forth! What a nause!


As long as each sheet is identially laid out, you can consolidate and analyse your team's worksheets almost instantly


Hope is helpful?


Happy data consolidating!

 

[pragnesh_50]

HI,


Thanks very much Cash Flow Pro.


Right now i am using following macro for consolidating data form various sheets but i do not know how to use consolidation function.


Sub Merge()

Dim ws As Worksheet

ActiveSheet.UsedRange.Offset(0).Clear

For Each ws In ActiveWorkbook.Worksheets

If ws.Name <> ActiveSheet.Name Then

ws.UsedRange.Copy

Range("A65536").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

End If

Next

End Sub


l would be pleased if you explain by example how & when to use Consolidation Function.


Regards,

Pragnesh