Select Multiple Items on multiple choice list-box depending on a cell value.

[Alvis]

Hi Guys,

Hope you are well

I hope you would be able to help me.

Is there a way for multiple selection listbox to be able to select the items in that listbox automatically, depending on a cell value when the button is pressed ?

For example: I have a multiple choice listbox with eBay, Google, Linked In, Website, etc. on it

And then I would have a value like Google, eBay (separated by comma) in a cell W2.

Is there any chance for UserForm listbox to select Google and eBay from the list automatically ?

Reason for this is to update existing info (delete or add anything else)

Thanks
Alvis

 

[MickG]

Try this:-

Private [COLOR="Navy"]Sub[/COLOR] CommandButton1_Click()
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] sp [COLOR="Navy"]As[/COLOR] Variant, S [COLOR="Navy"]As[/COLOR] Variant
sp = Split(Range("W2"), ", ")
[COLOR="Navy"]With[/COLOR] ListBox1
 .MultiSelect = fmMultiSelectMulti
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] S [COLOR="Navy"]In[/COLOR] sp
       [COLOR="Navy"]For[/COLOR] n = 1 To .ListCount - 1
                [COLOR="Navy"]If[/COLOR] .List(n) = S [COLOR="Navy"]Then[/COLOR]
                    .Selected(n) = True
                [COLOR="Navy"]End[/COLOR] If
        [COLOR="Navy"]Next[/COLOR] n
     [COLOR="Navy"]Next[/COLOR] S
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[Alvis]

Hi Mick,

Apologies for the delay coming back to you.

I just checked the code and it works perfectly !

Many thanks for this !

Have a nice weekend

 

[MickG]

You're welcome

 

[Alvis]

Hi MickG (or anyone else),

I'm sorry if I shouldn't be posting on this thread anymore.. But I just came across to a situation that selection it works great UNTIL if the selected item first from the top in the list.. So for example if my name is on top of the list when userform loaded it doesn't tick my name for some reason ? It is only for the first value in the list.. Any suggestions please ?

Also sorry if I should create a new thread for this but because it is carry on going to above I thought it would be logical to carry on conversation on here

Thank you
Alvis

 

[Alvis]

I think I've sorted. I've changed the following: For ACCn = 0 and it looks it is working ! Thank you anyway !