Fill userform, combobox and frame based on data from multiple worksheets

NoSparks · #1 04-23-2018, 02:20 PM

Had no idea how to alpha sort the dictionary keys.
My buddy 'Google' lead me to this which seems to do the trick.

Replace

Code:

'populate combobox
cboFYList.List = Application.Transpose(dic.keys)

with

Code:

  ' Sort The Unique Values
    Uniques = dic.keys
    With CreateObject("System.Collections.ArrayList")
        For X = LBound(Uniques) To UBound(Uniques)
            .Add Uniques(X)
        Next
        .Sort
        Sorted = .ToArray
    End With
  
  ' Populate Combo with Sorted Uniques
  cboFYList.List = Sorted

You'll also need to declare the additional variables near the beginning along with the other Dim statements

Code:

Dim X As Integer, Uniques As Variant, Sorted As Variant

Divinedar · #2 04-24-2018, 05:28 AM

OMG Thank you so much that works perfectly.

Now my next endeavor is to populate the text boxes on the userform. They have to populate from each worksheet to each frame based on the year and be able to update each worksheet with new input.

Thank you so much for your help. I'm learning more and more everyday.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Summing data from multiple worksheets in a workbook and placing into another worksheet	safrac	Excel	17	10-04-2022 12:21 PM
Merging 2 different cells containing IF formula & change in cell values based on multiple time frame	jay_excel	Excel	0	07-29-2017 11:04 PM
Excel to Word data import based on UserForm entry	jhancock1994	Word VBA	8	05-16-2017 04:41 PM
Using combobox to pass data from an Excel spread sheet to text boxes on userform	Stewie840	Word VBA	14	12-17-2015 10:13 PM
Conditional color fill based on presence of data	avanderh	Excel	11	07-28-2011 09:10 AM