Can't Combine Data from Multiple Sheets into a Single Sheet Using VBA

[fahadferoz]

Hi All

I have a Workbook with three data Sheets that have the same headers (but different row numbers on each). I want to combine this data onto the “Import” sheet automatically once I update the three sheets (which has the exact same headers too) using VBA.

I have tried inserting codes for it. But can't figure out the problem. The workbook is attached herewith. Please help me solve this.

Fahad.

 

[jindon]

Is this how you wanted?

Sub test()
    Dim ws As Worksheet
    Sheets("import").Cells(1).CurrentRegion.Offset(1).Clear
    For Each ws In Worksheets
        If ws.Name <> "Import" Then
            With ws.Cells(1).CurrentRegion
                .AutoFilter 3, "<>"
                .Offset(1).Resize(.Rows.Count - 2).Copy _
                Sheets("import").Range("a" & Rows.Count).End(xlUp)(2)
                .AutoFilter
            End With
        End If
    Next
End Sub

 

[fahadferoz]

The data does not automatically get updated.
Also Is it possible to organize the date in date wise in the "Import" file?

Thanks for the effort.

 

[jindon]

If you upload your desired result, I can see how you exactly want it.

 

[fahadferoz]

Dear Jindon

Thanks for helping me. It is almost there. Please help me out.

 

[jindon]

To Import sheet code module

Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    Cells(1).CurrentRegion.Offset(1).Clear
    For Each ws In Worksheets
        If ws.Name <> "Import" Then
            With ws.Cells(1).CurrentRegion
                .AutoFilter 3, "<>"
                .Offset(1).Resize(.Rows.Count - 2).Copy Range("a" & Rows.Count).End(xlUp)(2)
                .AutoFilter
            End With
        End If
    Next
    Cells(1).CurrentRegion.Sort Cells(1, 2), , , , , , , True
    Application.ScreenUpdating = True
End Sub

 

[fahadferoz]

Thanks Again. But it did not do it. Please have a look at the picture where I showed the exact coding and the result.

Thanks a lot for your support though.

 

[jindon]

So you don't understand what I said...

 

[jindon]

Did you understand or what?

 

[fahadferoz]

Sorry. I did not understand.

 

[jindon]

I said

To Import sheet code module

So that it will update any time you select "Import" sheet.

 

[fahadferoz]

Thanks a lot now I understand.