Loop through multiple listbox to save values to an array

[WaqasTariq]

I have 6 listbox'es that are named "lb_RU_#" where # is the number of listbox. each listbox has 6 options. I want to find which items are selected in each listbox and save the value to an array.

This is how I can do one list box at a time:

Public i_SelectionCount1 As Integer
Public l_ForLoop1 As Long
Public s_Array_ReactorUnits() As String

ReDim s_Array_ReactorUnits(1 To 6, 1 To 6)

    i_SelectionCount1 = 0
    For l_ForLoop1 = 0 To WkS_Config.lb_RU_1.ListCount - 1
        If WkS_Config.lb_RU_1.Selected(l_ForLoop1) = True Then
            i_SelectionCount1 = i_SelectionCount1 + 1
            s_Array_ReactorUnits(1, i_SelectionCount1) = WkS_Config.lb_RU_1.List(l_ForLoop1)
        End If
    Next

How can I use two loops and be able to save the values for all 6 list boxes. I tried creating "Public lb_Test1 As ListBox" but I am not sure how to save to lb_Test1.

 

[Sektor]

You didn't mention whether ListBox is Forms or ActiveX control.

Forms:

Sub IterateOverListBoxesForms()
    Dim x%, lb As ListBox
    For x = 1 To 6
        Set lb = ActiveSheet.ListBoxes("lb_RU_" & x)
        '// Do something with list box
    Next
End Sub

ActiveX:

Sub IterateOverListBoxesActiveX()
    Dim x%, lb As Object '//MSForms.ListBox
    For x = 1 To 6
        Set lb = ActiveSheet.OLEObjects("lb_RU_" & x).Object
        '// Do something with list box
    Next
End Sub

 

[WaqasTariq]

ActiveX:

Sub IterateOverListBoxesActiveX()
    Dim x%, lb As Object '//MSForms.ListBox
    For x = 1 To 6
        Set lb = ActiveSheet.OLEObjects("lb_RU_" & x).Object
        '// Do something with list box
    Next
End Sub

Thank you.

So I keep getting "Method or data member not found" error. Can you please take a look?

Link to the Excel file: IFD.xlsm

 

[Sektor]

Remove WkS_Config before ob_Test1, because ob_Test1 is not a member of WkS_Config worksheet.

 

[WaqasTariq]

Remove WkS_Config before ob_Test1, because ob_Test1 is not a member of WkS_Config worksheet.

Thank you sir, you are a life saver!

 

[Sektor]

You're welcome!