Reverse Data Within Cell By Date

Greetings,

I have attached an Excel spreadsheet and I will apologize now if I lose you. This spreadsheet contains two entries:

"SwapIt" works great but will only reverse the most current date entry and list it first in the cell and the remaining date entries will remain in oldest to latest dates.

"ReverseDates" works great but errors out with <subscript out of range> when a manual date is entered in the notes (see system created format).

System created format; the entries within a cell will always be - MM/DD/YYYY_tt:tt:tt_AM(PM)_username (this varies) followed by the notes entered by user. So in a nutshell, the system will generate all the following but from oldest dates to latest dates toward the bottom of the cell. I would like to achieve the reverse order, latest entries to oldest entries.

Again my apologies for rambling.

Regards!!

Did you look at why your code was throwing the error?
When I tested it the problem was in cell H74.
As part of the note the text has the date,time,username. But then in the text of the note there is another partial date "implementaion 1/09".
It looks like your check

Please Login or Register  to view this content.

is improperly identifying this as a date and then hanging up on the

Please Login or Register  to view this content.

line.

Perhaps you could make the

Please Login or Register  to view this content.

more particular and have it check SplitCell(i) for the Date,time stamp that starts each new entry.

HTH

Thank you HTH. However, I kind of inherited this form and was looking for some expertise as I am new to vb...

I attempted adding your code and it still fails. I believe I am doing something wrong.

Thanks again!!

I didn't give you any code to add to your project.

I simply stepped through your code and identified where it was giving you the error. try using F8 and the debugger to identify where your code is giving you trouble.

My suggestion was to either eliminate any text that is identified as a date by the line.

Please Login or Register  to view this content.

Or to modify that line to discriminate between a real date and a date in the body of the text.

I can't help with your request but can maybe give you a direction as an old database guy. If you can strip the DTG and userName data from the cell and put them into their own cell on the record, you would have a lot more flexibility with data sort, filtering, etc. and it should be easier, too. ;-> FWIW.

Hello nobi,

I'll see if I can make the user name bold as well.

Sincerely,
Leith Ross

Thanks Leith!! If it helps any, the user name will always be uppercase. Then all notes are always entered as proper sentence case.

Hello nobi,

It looks like the user name also follows the time stamp with a space between them. I'm hoping the are no user names with spaces in them.

Sincerely,
Leith Ross

Hello nobi,

Got it to work. Here is the revised code which is already been added in the attached workbook.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

Hi Leith,

Need I say more... thank you for your great work and assistance.

It is appreciated!!!

Regards!!!!

Hi Leith,

I hope Im not pushing my luck, but do you know if I can restrict (delete) to only show 4 date/user entries. The work long is getting kind of long with all the notes entered, so I wanted to see the 4 most recent entries.

Thanks again!!

Hello nobi,

I have added an If...Then to limit the maximum entries to 4. This will of courser permanently change the data on the sheet. You will lose the other entries above 4 for that cell.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

Hi Leith,

Wow... thanks again!!!! All your help was/ is greatly appreciated!!!! I owe you lunch.

Regards!!!

Hi Leith,

I just wanted to mention one more thing if I may... the >4 is not saving the most recent entries. I moved the code and then it doesnt work?

Your assistance is requested one more time if I may.

Thanks!!!!!!!!!!!!!