Filter userform combobox based on specific criteria

[jprlimey]

Any suggestions on how i can filter the data loaded into combobox on userform to specific value/text as shown below. The userform does load but the data is not filtered. Any help would be appreciated

Thanks

With Me.cbxPlanning
        .ColumnCount = 6
        .ColumnWidths = "65;70;0;0;0;12"  'hide the second column
        .Clear
        Set Sourcewb = Workbooks.Open("Z:\Test\Log.xlsm", False, True)
        
        With Sourcewb.Worksheets(1)
            Set myRng = .Range("A2:CD" & .Cells(.Rows.count, "A").End(xlUp).Row)
            With myRng
                .AutoFilter
                .AutoFilter field:=2, Criteria1:="Standard"
            End With
            
            Set aCell = Range("F2")
            myRng.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlYes
            
        End With
        .List = myRng.Value
         Sourcewb.Close False

    End With

[Norie]

myRng is still the same after the filter.

If you only want to show the results of the filter you'll need to extract the visible cells from myRng and then add them one by one using AddItem.

[jprlimey]

Norie,

Thanks for your response.

would the following extract the visible cells?

.List myRng.SpecialCells(xlCellTypeVisible)

I'm not sure on what needs to be done with AddItem?

[jprlimey]

It would appear that i have posted the same question twice yesterday. After posting the first question yesterday i couldn't see my post, hence shortly after i re-posted the same question albeit with a slightly different title, my apologies to all. Below is the link.

[jprlimey]

I can now filter the range with the specified criteria. However i now get a run-time error 381 (Could not get the List property. Invalid property array index) when i select a record to load in to the main user form. any thoughts?

With Me.cbxPlanning
        .ColumnCount = 6
        .ColumnWidths = "65;70;0;0;0;12"  'hide the second column
        .Clear
        Set Sourcewb = Workbooks.Open("Z:Test\Log.xlsm", False, True)
       With Sourcewb.Worksheets(1)
            Set myRng = .Range("A2:CD" & .Cells(.Rows.count, "A").End(xlUp).Row)    ' new 7/3/07 was A3:DR
            
            myRng.AutoFilter
            myRng.AutoFilter Field:=2, Criteria1:="Flycut Standard"
            
            Set aCell = Range("A2")
            myRng.Sort key1:=aCell, order1:=xlAscending, Header:=xlYes
            
        End With
        .List = myRng.SpecialCells(xlCellTypeVisible).Value
        Sourcewb.Close False
    End With

[Norie]

If the result of the filter is a non-contiguous range you can't use List like that, you need to use AddItem as I suggested.

For Each rw In  myRng.SpecialCells(xlCellTypeVisible).Rows
    With Me.cbxPlanning
        .AddItem rw.Columns(1).Value
    ' code to add other columns, for example
        .List(.ListCount-1, 1) = rw.Columns(2).Value
    End With
Next cl