VBA or Macro to merge two worksheets into one

[deek]

Good Afternoon,

I am trying to find a way to merge two worksheets into one, and sort on a particular column.

the work sheets that need to be merged are NottsUp, & NottsDN I am trying to put them into NOTTU&D, the column that I am trying to sort by is called Nottingham Dep, this will give me trains leaving Nottingham in time order from 0001 through to 2359. in both the up and down direction.

I have tried to use put one set of data below the other and use the sort function, but this doesn't work, as I get times in wrong columns, there is also a column on each sheet that aren't common to both sheets.

I appreciate that this is a big ask, and what seems to me almost imposable, but I am sure that it must be possible, and no doubt easy if you know how, this would be a big help if solution could be found.

I have attached the workbook in question - many thanks in anticipation.

regards

Deek

[AB33]

Deek,
You can add the unique headers from each sheet in to sheet NottU&D, then merge the data from both sheets. The sort bit of code I have does not work as the column is mixed with numbers and text so, I used a recorded macro.

[deek]

Good Morning AB33,

Thank you for your reply and the time you have taken to look at this problem, just a couple of questions, I had an error message when I tried to open the file captupe1, when I enabled content I had the message in capture 2, I also noticed that there was some code commented out, capture 3.

I deleted all the contents in "NottU&D" and rerun the macro, I get an error message capture 4, and capture 5, if I uncomment the code it seems to run (or at least thinks about running) but then comes up with the error message capture 6 & 7. I also noticed that in the spreadsheet that I down loaded the first column A1 from either sheet hadn't been merged.

I have also imported the module into another spread sheet, and with all code un-commented it does run, but pulls all the data into column A of the NottU&D sheet

Is there something that I have done wrong, or is it the good old Microsoft misbehaving. would you please be able to have another look at this - many thanks in anticipation.

DeeK

[AB33]

I can not test the code on a picture, please attach excel book.

[deek]

apologies, please find the excel book attached.

[AB33]

There are no headers on sheet NottU&D, hence the code does nothing. The code works by matching the unique columns on row-1 in sheet NottU&D with the headers on both sheets (As I did on post -2). The order of the headers does not make any difference as long as the names are exact match.

[deek]

got it. this is excellent many thanks.

this is just what I need

Deek