Listbox item selection based on another Listbox

L

Lenna

Active Member
Joined
Jun 25, 2014
Messages
269
Hello,

There two (ActiveX) listboxes on sheet (Monthlist & Yearlist). Each is populated with unique values from columns H(months) and I(years) (see code below). The user will select month(s) available in Monthlist. I would like the available items in ‘Yearlist’ to reflect the selection in ‘Monthlist’. For example, if there is data on sheet for May, 2015 and June, 2016, and the user selects ‘May’ from Monthlist, ‘2015’ should only be available on ‘Yearlist’ for selection. (‘2016’ should be grayed out or not present).
Please suggest how to accomplish this? Thank you very much.


Code: 
<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;">[COLOR=#00008B]Sub[/COLOR][COLOR=black] UniqueMonthsAndYears[/COLOR][COLOR=black]([/COLOR][COLOR=#00008B]ByVal[/COLOR][COLOR=black] ws [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Object[/COLOR][COLOR=black])[/COLOR][COLOR=black]

    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] LastRow[/COLOR][COLOR=black],[/COLOR][COLOR=black] i[/COLOR][COLOR=black],[/COLOR][COLOR=black] j[/COLOR][COLOR=black],[/COLOR][COLOR=black] k [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Long[/COLOR][COLOR=black]
    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] c [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] Range
    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] MyArUniqVal[/COLOR][COLOR=black]()[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Variant[/COLOR][COLOR=black]

    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] i2[/COLOR][COLOR=black],[/COLOR][COLOR=black] j2[/COLOR][COLOR=black],[/COLOR][COLOR=black] k2 [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Long[/COLOR][COLOR=black]
    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] c2 [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] Range
    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] MyArUniqVal2[/COLOR][COLOR=black]()[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Variant[/COLOR][COLOR=black]

    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] MonthList [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] MSForms[/COLOR][COLOR=black].[/COLOR][COLOR=black]ListBox
    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] YearList [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] MSForms[/COLOR][COLOR=black].[/COLOR][COLOR=black]ListBox

    [/COLOR][COLOR=#00008B]ReDim[/COLOR][COLOR=black] MyArUniqVal[/COLOR][COLOR=black]([/COLOR][COLOR=maroon]0[/COLOR][COLOR=black])[/COLOR][COLOR=black]
    [/COLOR][COLOR=#00008B]ReDim[/COLOR][COLOR=black] MyArUniqVal2[/COLOR][COLOR=black]([/COLOR][COLOR=maroon]0[/COLOR][COLOR=black])[/COLOR][COLOR=black]


    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] rng [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] Range
    [/COLOR][COLOR=#00008B]Dim[/COLOR][COLOR=black] cl [/COLOR][COLOR=#00008B]As[/COLOR][COLOR=black] Range


        LastRow [/COLOR][COLOR=black]=[/COLOR][COLOR=black] ActiveSheet[/COLOR][COLOR=black].[/COLOR][COLOR=black]Range[/COLOR][COLOR=black]([/COLOR][COLOR=maroon]"H"[/COLOR][COLOR=black] [/COLOR][COLOR=black]&[/COLOR][COLOR=black] Rows[/COLOR][COLOR=black].[/COLOR][COLOR=black]Count[/COLOR][COLOR=black]).[/COLOR][COLOR=#00008B]End[/COLOR][COLOR=black]([/COLOR][COLOR=black]xlUp[/COLOR][COLOR=black]).[/COLOR][COLOR=black]Row

         [/COLOR][COLOR=#00008B]Set[/COLOR][COLOR=black] rng [/COLOR][COLOR=black]=[/COLOR][COLOR=black] Range[/COLOR][COLOR=black]([/COLOR][COLOR=maroon]"H9:H"[/COLOR][COLOR=black] [/COLOR][COLOR=black]&[/COLOR][COLOR=black] LastRow[/COLOR][COLOR=black])[/COLOR][COLOR=black]

    [/COLOR][COLOR=#00008B]With[/COLOR][COLOR=black] ThisWorkbook[/COLOR][COLOR=black].[/COLOR][COLOR=black]ActiveSheet

        [/COLOR][COLOR=#00008B]For[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Each[/COLOR][COLOR=black] cl [/COLOR][COLOR=#00008B]In[/COLOR][COLOR=black] rng
            [/COLOR][COLOR=#00008B]If[/COLOR][COLOR=black] cl[/COLOR][COLOR=black].[/COLOR][COLOR=black]EntireRow[/COLOR][COLOR=black].[/COLOR][COLOR=black]Hidden [/COLOR][COLOR=black]=[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]False[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Then[/COLOR][COLOR=black] [/COLOR][COLOR=gray]'//Use Hidden property to check if filtered or not[/COLOR][COLOR=black]
                  Debug[/COLOR][COLOR=black].[/COLOR][COLOR=black]Print cl
                [/COLOR][COLOR=#00008B]If[/COLOR][COLOR=black] cl[/COLOR][COLOR=black].[/COLOR][COLOR=black]Value [/COLOR][COLOR=black]<>[/COLOR][COLOR=black] cl[/COLOR][COLOR=black].[/COLOR][COLOR=black]Offset[/COLOR][COLOR=black]([/COLOR][COLOR=maroon]1[/COLOR][COLOR=black],[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]0[/COLOR][COLOR=black]).[/COLOR][COLOR=black]Value [/COLOR][COLOR=#00008B]Then[/COLOR][COLOR=black] [/COLOR][COLOR=gray]'~~~~~MonthArray[/COLOR][COLOR=black]

                    MyArUniqVal[/COLOR][COLOR=black]([/COLOR][COLOR=black]UBound[/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal[/COLOR][COLOR=black]))[/COLOR][COLOR=black] [/COLOR][COLOR=black]=[/COLOR][COLOR=black] cl[/COLOR][COLOR=black].[/COLOR][COLOR=black]Value
                    [/COLOR][COLOR=#00008B]ReDim[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Preserve[/COLOR][COLOR=black] MyArUniqVal[/COLOR][COLOR=black]([/COLOR][COLOR=black]UBound[/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal[/COLOR][COLOR=black])[/COLOR][COLOR=black] [/COLOR][COLOR=black]+[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]1[/COLOR][COLOR=black])[/COLOR][COLOR=black]
                [/COLOR][COLOR=#00008B]End[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]If[/COLOR][COLOR=black]

                [/COLOR][COLOR=#00008B]If[/COLOR][COLOR=black] cl[/COLOR][COLOR=black].[/COLOR][COLOR=black]Offset[/COLOR][COLOR=black]([/COLOR][COLOR=maroon]0[/COLOR][COLOR=black],[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]1[/COLOR][COLOR=black]).[/COLOR][COLOR=black]Value [/COLOR][COLOR=black]<>[/COLOR][COLOR=black] cl[/COLOR][COLOR=black].[/COLOR][COLOR=black]Offset[/COLOR][COLOR=black]([/COLOR][COLOR=maroon]1[/COLOR][COLOR=black],[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]1[/COLOR][COLOR=black]).[/COLOR][COLOR=black]Value [/COLOR][COLOR=#00008B]Then[/COLOR][COLOR=black] [/COLOR][COLOR=gray]'Year Array[/COLOR][COLOR=black]
                    MyArUniqVal2[/COLOR][COLOR=black]([/COLOR][COLOR=black]UBound[/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal2[/COLOR][COLOR=black]))[/COLOR][COLOR=black] [/COLOR][COLOR=black]=[/COLOR][COLOR=black] cl[/COLOR][COLOR=black].[/COLOR][COLOR=black]Offset[/COLOR][COLOR=black]([/COLOR][COLOR=maroon]0[/COLOR][COLOR=black],[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]1[/COLOR][COLOR=black]).[/COLOR][COLOR=black]Value
                    [/COLOR][COLOR=#00008B]ReDim[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Preserve[/COLOR][COLOR=black] MyArUniqVal2[/COLOR][COLOR=black]([/COLOR][COLOR=black]UBound[/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal2[/COLOR][COLOR=black])[/COLOR][COLOR=black] [/COLOR][COLOR=black]+[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]1[/COLOR][COLOR=black])[/COLOR][COLOR=black]
                [/COLOR][COLOR=#00008B]End[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]If[/COLOR][COLOR=black]

           [/COLOR][COLOR=#00008B]End[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]If[/COLOR][COLOR=black]
        [/COLOR][COLOR=#00008B]Next[/COLOR][COLOR=black] cl

        [/COLOR][COLOR=#00008B]ReDim[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Preserve[/COLOR][COLOR=black] MyArUniqVal[/COLOR][COLOR=black]([/COLOR][COLOR=black]UBound[/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal[/COLOR][COLOR=black])[/COLOR][COLOR=black] [/COLOR][COLOR=black]-[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]1[/COLOR][COLOR=black])[/COLOR][COLOR=black]
        [/COLOR][COLOR=#00008B]ReDim[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Preserve[/COLOR][COLOR=black] MyArUniqVal2[/COLOR][COLOR=black]([/COLOR][COLOR=black]UBound[/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal2[/COLOR][COLOR=black])[/COLOR][COLOR=black] [/COLOR][COLOR=black]-[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]1[/COLOR][COLOR=black])[/COLOR][COLOR=black]

    [/COLOR][COLOR=#00008B]End[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]With[/COLOR][COLOR=black]

[/COLOR][COLOR=gray]'Fill the listbox[/COLOR][COLOR=black]
 ws[/COLOR][COLOR=black].[/COLOR][COLOR=black]YearList[/COLOR][COLOR=black].[/COLOR][COLOR=black]Clear

[/COLOR][COLOR=#00008B]For[/COLOR][COLOR=black] k2 [/COLOR][COLOR=black]=[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]0[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]To[/COLOR][COLOR=black] UBound[/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal2[/COLOR][COLOR=black])[/COLOR][COLOR=black]

    ws[/COLOR][COLOR=black].[/COLOR][COLOR=black]YearList[/COLOR][COLOR=black].[/COLOR][COLOR=black]AddItem [/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal2[/COLOR][COLOR=black]([/COLOR][COLOR=black]k2[/COLOR][COLOR=black]))[/COLOR][COLOR=black]

[/COLOR][COLOR=#00008B]Next[/COLOR][COLOR=black] k2

ws[/COLOR][COLOR=black].[/COLOR][COLOR=black]MonthList[/COLOR][COLOR=black].[/COLOR][COLOR=black]Clear

[/COLOR][COLOR=#00008B]For[/COLOR][COLOR=black] k [/COLOR][COLOR=black]=[/COLOR][COLOR=black] [/COLOR][COLOR=maroon]0[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]To[/COLOR][COLOR=black] UBound[/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal[/COLOR][COLOR=black])[/COLOR][COLOR=black]

    ws[/COLOR][COLOR=black].[/COLOR][COLOR=black]MonthList[/COLOR][COLOR=black].[/COLOR][COLOR=black]AddItem [/COLOR][COLOR=black]([/COLOR][COLOR=black]MyArUniqVal[/COLOR][COLOR=black]([/COLOR][COLOR=black]k[/COLOR][COLOR=black]))[/COLOR][COLOR=black]

[/COLOR][COLOR=#00008B]Next[/COLOR][COLOR=black] k

[/COLOR][COLOR=#00008B]End[/COLOR][COLOR=black] [/COLOR][COLOR=#00008B]Sub[/COLOR]</code>
 

Excel Facts

Return population for a City
If you have a list of cities in A2:A100, use Data, Geography. Then =A2.Population and copy down.
Sort by date Sort by votes
Load only the month listbox with this sub. Use the listbox click event of the month listbox to load the year list. Of course U will have to assess what the selection is in the month listbox and then code to load the year listbox based on that selection. Good luck. Dave
 
Upvote 0
Hi Dave,

I would have to fill the year listbox each time an item is selected in the month list, right? So if they select 5 items in the month list, I would have to reload yearlist five times. How would you get the corresponding years for the year listbox? Thansk, Lenna
 
Upvote 0
For each click in the month listbox, U would clear the year listbox and then loop through the month listbox to see what months are selected. For each month selected, U would add the year to the year list (if not already present). So loop "H" to match the month selection(s) and then add the corresponding "I" (year) to the year listbox (if not already there). HTH.Dave
 
Upvote 0
You must log in or register to reply here.

Similar threads

S
  • Question
VBA Help - Need listbox to scroll to top when opened
Replies
1
Views
340
rlv01
R
S
  • Solved
Error executing vba code
Replies
2
Views
96
sofas
S
S
  • Solved
Copy hyperlinks from one table column to another. The columns are identical
Replies
2
Views
95
sspatriots
S
S
  • Solved
Display data of Specific Sheets on Listbox Userform
2
Replies
11
Views
884
Akuini
Akuini
A
  • Question
combining two procedures by selected last item in listbox or based on last highlighted cell
Replies
0
Views
428
abdelfattah
A

Forum statistics

Threads
1,215,452
Messages
6,124,914
Members
449,195
Latest member
Stevenciu

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top