Custom drop down with VBA

[Delta729]

I have a drop down list that allows you to select a selection from a drop down list, then reselect it, and it will add a soft return and then add the new selection choice after the soft return. All the while inserting every choice from the drop down after a bullet point.
The following is the code and it works great.

It also doesn't allow the same it to be repeated on the items from the list it creates. I need change this so that if an item is re-selected, it would change the text to say (Dismissed). Is that possible and does that make any sense?

[watersev]

hi there, try if it helps

Please Login or Register  to view this content.

[watersev]

result after selecting same option from the drop down listScreenshot_312.png

[Delta729]

I was just about to say "This is very close", then I read MY mistake from the original post. It meant to say "I need change this so that if an item is re-selected, it would change the text to say " (Dismissed)" at the end of the current selection. Like if a was selected from the drop down example "you graciously provided", after reselecting a it would say "a (Dismissed)".

[watersev]

I updated the code with the following logic:

a) if such item was previously selected - it adds " (Dismissed)" to the item
b) if such item was previously selected and has " (Dismissed)" it turns to normal (without "Dismiss")

That way you can reverse item status change

Please Login or Register  to view this content.

[Delta729]

All I have to say "Awesome"! I didn't even think about the option B, but that was perfect!!!

[watersev]

if you are happy with the solution provided please mark the thread as Solved. How to do that: https://www.excelforum.com/faq.php

[Delta729]

I personally love this, and think it's much easier to read. But the attorney's I work for would like this in a comma separated cell instead of a bullet point type list. Here again, I have this code that works great, but I need to change the code to add the word "Dismissed" if re-selected, and then if re-selected again to remove " (Dismissed)" . I tried to revise the prior code several times to make it work, but I always messed it all up. I have this code, could anyone show me how to revise the following code so it would do the same thing as the code edited a few days ago by watersev.

[Delta729]

Does my post not make any sense, did I word this incorrectly? Can anybody help me out revising this code?

[Delta729]

Okay, I think I might be getting close to what I trying to do. I have the attached file.

On the defendants column, if the choice is selected with a new selection, it will add the new data with a comma in between. However, if you choose the same selection again, it won't do anything. It should do something like "Defendant Corp 2" and add the text " (Dismissed)". If selected again, it should remove the text " (Dismissed)". I attached a sample file, so if anybody that is good with VBA could help me out, it would be greatly appreciated. I removed the "Solved" status from this thread, or at least I tried to.

If what I'm trying to do or my questions doesn't make any sense, please let me know. I could really use some help with this. I will post just the code in a follow up posting.

[Delta729]