Hi.
the code below was created by: JoeMo
I'm trying to adapt, but I need to say which worksheet you were to NOT be copied
i try
Don' work
Thank for helpe me
the code below was created by: JoeMo
I'm trying to adapt, but I need to say which worksheet you were to NOT be copied
Code:
Sub MergeSheets()'Author: JoeMo
'http://www.mrexcel.com/forum/excel-questions/683803-copying-data-multiple-sheets-appending-master-sheet-reverse.html
Application.ScreenUpdating = False
Sheets("Orçamento").Activate
For i = Sheets.Count To 2 Step -1
Sheets(i).Range("A2:F500").Copy
Worksheets("Orçamento").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
Next i
End Sub
i try
Code:
Sub MergeSheets()
Dim wsheet As Worksheet
For Each wsheet In Worksheets
If wsheet.Name <> "Orçamento" Or wsheet.Name <> "Fornecedor" Or wsheet.Name <> "Mão de Obra" Then
Application.ScreenUpdating = False
Sheets("Orçamento").Activate
For i = Sheets.Count To 2 Step -1
Sheets(i).Range("A2:F500").Copy
Worksheets("Orçamento").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
Next i
Next wsheet
End Sub
Don' work
Thank for helpe me