combine number of worksheets with text into one master sheet

[sonyaw]

Hi

I have a number of worksheets that contain text, which I would like to combine into one master sheet within the same workbook.

The sheets that i want to include have the same number of rows and columns, but there are also sheets that I do not wish to include.

As the original spreadsheet is confidential, Ive included a very quick, simple workbook to work from.

Please note that sheet 3 isnt to be used in the consolidation.

Please can someone help me with a formula or macro that I can use and can automatically update if one cell changes (ie text)

Thank you for your help in advance, its been racking my brains!!!

[p24leclerc]

Please, can you give us an idea of what the Master sheet would look like?
From your attached workbook, it would be great to see what/how data from sheet1 and sheet2 are copied to the Master sheet.
Right now, you gave us too few instructions.
Also, it would be helpfull that sheet1 and sheet2 are not alike unless they are to be at some point.

[boddulus]

Sub Consolidate()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+Q
'

' Appends data from all the selected worksheets onto the end of the
' active worksheet.

Const NHR = 0 'Number of header rows to not copy from each MWS

Dim MWS As Worksheet 'Worksheet to be merged (appended)
Dim AWS As Worksheet 'Worksheet to which the data are transferred
Dim FAR As Long 'First available row on AWS
Dim LR As Long 'Last row on the MWS sheets

Set AWS = ActiveSheet

For Each MWS In ActiveWindow.SelectedSheets
If Not MWS Is AWS Then
FAR = AWS.UsedRange.Cells(AWS.UsedRange.Cells.Count).Row + 1
LR = MWS.UsedRange.Cells(MWS.UsedRange.Cells.Count).Row
MWS.Range(MWS.Rows(NHR + 1), MWS.Rows(LR)).Copy AWS.Rows(FAR)
End If
Next MWS

End Sub

I think this is what you want....
this macro will help you to combine all the data of selected sheets in to active sheet.
you just need to select all the sheets from which data has to be consolidated and press ctrl alt Q to run the macro.

DON'T FORGET, GIVE US SOME REP!
Click on the STAR "Add reputation" icon at the bottom.

[boddulus]

i am sorry you need to press ctrl shift Q to run the macro.