Multiple choice dropdown

Hello again,

Thank you for your always prompt responses. As your phrase says, I believe I wasn't clear in my question :) I'd like to send you an example, but I can't see how to include a file (sorry!!).

I don't have multiple sheets. In my sheet 1 (company), in column A, I enter the name of a company (this name does not come from a list) and in the following columns, I enter information for this company (e.g., contact details, sector, etc.). I have a column called "Available Jobs" and I would like to enter more than one job (because for the same company there can be jobs such as secretary, janitor, advisor, director, etc.) in the same cell. This list of jobs is in a tab named list and the list is called "Job"

I saw on a forum that you click on the cell and a dropdown list appears where you can check multiple choices separated by a line or a comma.

If you prefer that I send you an example, please just let me know how to attach a file.

Thank you very much.

Hello again Vaucluse,

Here is an example, this is not my real file, for confidentiality reasons. I want the multiple choice list in the yellow column.

I feel like I'm very close with what I've seen from the forums, but I'm missing a detail (and it’s a bit frustrating!), so if you have a VBA and the detail to adapt it...
Thank you very much, a lot!

Oops, here is the link:
https://www.cjoint.com/c/HBAuVLNWv1I

Hello,

Thank you for your response and for the link to cjoint.com, I will use it.

As for my drop-down list, thank you for the cascading drop-down list, but that’s not what I need.
For entering multiple choices in the same cell, it's not "impossible." It can be done with VBA (I didn’t say I didn’t want VBA, I think there’s an additional step that goes along with the VBA). I’ll share a link to show you where I saw it https://www.excel-downloads.com/threads/liste-selection-multiple.83182/ (see Sergio's reply file). What I’m unable to do is transpose it to my file; simply copying and pasting the VBA doesn’t work, I’m missing some information in the instructions... hence my request on this forum.
Thank you.

Yes, small oversight :), see post 7. Thanks.

Re

An example of a dropdown menu with multiple choices, in column D you can select as many jobs as you want, don't forget to enable macros for it to work

https://www.cjoint.com/c/HBAvZAfN7uj

Cheers

Hello,

Thank you, but unfortunately, I can't open your file, it says: "Cannot open the file because its format or extension is not valid." :(

Hello,

Another test....., at least it works for me
https://mon-partage.fr/f/VOhTbudr/

Regards

SUPER, I transposed it into my file and it works! Thank you very much.
I have a small additional question (can I take advantage of your knowledge? :)), just to go further.

In your example, I choose a profession and I have to return to the list of choices to make another selection. In an example I saw, there were checkboxes and when the list appeared, we could check multiple choices. Is this something to add in the VBA?

Thank you very much -to all- for your insights
Best regards

Ah, thank you! It's working.

Have a nice day.

Rehello The_boss_68. Thank you for your great patience with me :)

Your example with my file is exactly what I want. But I want to be able to transpose it into other files in the future. In your previous example, I copied-pasted your VBA, I modified the ranges and it worked.

In the current example, if I do the same thing, it doesn't work. But I found where I'm stuck (I'm making progress!), it's at the level of the ListBox.

So, if I copy-paste your VBA and make the modifications for my new file (range from line 2 to line 4), it doesn't work. Do I need to modify something else? Or do something in relation to the ListBox? Thanks again for your super patience with me!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D2:D23], Target) Is Nothing And Target.Count = 1 Then
Me.ListBox1.MultiSelect = fmMultiSelectMulti
Me.ListBox1.List = Sheets("Liste").Range("A2:A34").Value
a = Split(Target, " ")
If UBound(a) >= 0 Then
For i = 0 To Me.ListBox1.ListCount - 1
If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True
Next i
End If
Me.ListBox1.Height = 430
Me.ListBox1.Width = 120
Me.ListBox1.Top = Target.Top
Me.ListBox1.Left = Target.Left + Target.Width
Me.ListBox1.Visible = True
Else
Me.ListBox1.Visible = False
End If
End Sub
Private Sub ListBox1_Change()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & ", "
Next i
ActiveCell = Trim(temp)
End Sub