Code to sort Identical Headings in Different Sheets

**hammer2** · 02-03-2016, 12:07 AM

Hi Folks

I have two sheets in the same Workbook that have identical Headings- but they are in differing Col order-

Is it possible to sort sheet 2 Cols to the same Col order as they appear in sheet 1 ?

Cheers
hammer

**hammer2** · 02-04-2016, 04:11 AM

Bumper

**jindon** · 02-04-2016, 05:01 AM

Try

Sub test()
    Dim rng As Range
    With Sheets("sheet2").Cells(1).CurrentRegion
        Set rng = .Offset(, .Columns.Count)
        Sheets("sheet1").Cells(1).CurrentRegion.Rows(1).Copy rng.Cells(1)
        .AdvancedFilter 2, rng, rng
        .EntireColumn.Delete
    End With
End Sub

**hammer2** · 02-04-2016, 05:19 AM

Brilliant!

Thank you for your time and expertise jindon!

Code to sort Identical Headings in Different Sheets

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Code to sort Identical Headings in Different Sheets

Re: Code to sort Identical Headings in Different Sheets

Re: Code to sort Identical Headings in Different Sheets

Re: Code to sort Identical Headings in Different Sheets

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Sorting data from a table with identical column headings

Data from Multiple columns with identical headings to be under the same heading

Use sort method to sort ranges based on their headings using vba

consolidate 75 workbooks - identical headings

Excel 2007 : Identical Headings-formatting as table/chart adds digit

why cant i get identical sort from identical code

Amend code to Sort Sheets by number

Bookmarks

Bookmarks

Posting Permissions