Combine data from 4 Sheets into one sheet

[Brentsa]

Good day,

I have 4 sheets in my workbook which represents the various departments. The headings are the same in all 4 sheets:

Date

Name of staff

Type of Incident

Negative/Positive

Result of Issue

Action Taken

Comments

We want to create a master sheet where we combine the data of the 4 sheets into 1. This is in order to track a staff member within all 4 departments also to have the dates in order.

So I'm not sure if a =Filter function can work across 4 sheets. So any advise assistance will be greatly appreciated.

 

[My Aswer Is This]

So I have written this script to copy the data from sheets 2 to 5 to sheet named Master.

See if this works for you.

Sub Copy_Sheets_To_Master()
'Modified  10/27/2020  5:40:43 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim ans As Long

For i = 2 To 5
With Sheets(i)
    ans = .Cells(Rows.Count, "A").End(xlUp).Row
    Lastrow = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Cells(2, 1).Resize(ans, 7).Copy Sheets("Master").Cells(Lastrow, 1)
End With
Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

I'm not sure what this means when forum says this post was marked. Are you saying my script worked

 

[Brentsa]

Yes, your script works. Not exactly what i had in mind but it works so thanks a million

 

[My Aswer Is This]

Yes, your script works. Not exactly what i had in mind but it works so thanks a million

And what did it not do that you wanted it to do?