On ListBox to be selected items from range

[Sahak]

Hi all,

I have a listBox on user form & It has RowSource = Range A1:A40, where there are following Items:
GGG
BBB
SSS
CCC
UUU
ZZZ
& more

When I activate Form, I would like on ListBox to be selected Items listed in range M1:M4, let say in range we have BBB & UUU , so on ListBox should be selected only BBB & UUU.

Thank you in advance

 

[My Aswer Is This]

Why do you say:

Range A1:A40

And then say

range M1:M4​

_{^{<strike>
</strike>}}​

 

[Trebor76]

Hi Sahak,

Make sure the MultiSelect property of your listbox is set to fmMultiSelectMulti and change the name of the listbox in the following to suit (if necessary):

Option Explicit
Private Sub UserForm_Activate()

    Dim intListBoxIndex As Integer
    Dim lngMatchRowNo   As Long
    
    With Me.ListBox1 '<- Change to the name of your listbox
        For intListBoxIndex = 0 To .ListCount - 1
            On Error Resume Next
                lngMatchRowNo = Evaluate("MATCH(""" & .List(intListBoxIndex) & """,$M$1:$M$4,0)")
                If lngMatchRowNo > 0 Then
                    .Selected(intListBoxIndex) = True
                End If
                lngMatchRowNo = 0
            On Error GoTo 0
        Next intListBoxIndex
    End With

End Sub

Regards,

Robert

 

[Sahak]

MultySelect ListBox's RowSource from Range A1:A40 (Item list comes from there) I would like to be selected (highlited) only items from range M1:Mk

 

[Sahak]

Awesome, thank you very much

 

[Trebor76]

You're welcome