add filtered items to combobox

[RAYLWARD102]

I'm aware of how to add items to a combobox with a specific range; but am not sure how this works with auto filtered items.

With iTe
    Selection.AutoFilter Field:=8, Criteria1:="=*" & ComboBox1.Text & "*", Operator:=xlAnd '8 may need to be adjusted
    ActiveWindow.SmallScroll Down:=-18
End With

I use the above to retrieve results but would like to add each line of result into a combobox so the user can select from it accordingly.
A second part to this is to make the "field:=8" into a variable. I have the column letter available but am not sure how I can turn it into a number (easily) and then use it in this above code as a var.

 

[Andrew Poulsom]

For your second question:

MsgBox Columns("H").Column

 

[RAYLWARD102]

that part was easy! You should see some of the examples i've come across. Thanks for that

 

[Domenic]

Maybe something like this... Let's assume that you'd like to add filtered items from the second column of your selection to your combo box, try...

[font=Verdana]    [color=darkblue]Dim[/color] VisibleRng [color=darkblue]As[/color] Range
    [color=darkblue]Dim[/color] Cell [color=darkblue]As[/color] Range
    
    [color=darkblue]With[/color] Selection
        .AutoFilter Field:=8, Criteria1:="=*" & ComboBox1.Text & "*"
        [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
        [color=darkblue]Set[/color] VisibleRng = .Columns(2).Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
        [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]GoTo[/color] 0
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    
    [color=darkblue]If[/color] [color=darkblue]Not[/color] VisibleRng [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
        [color=darkblue]With[/color] ComboBox2
            .Clear
            [color=darkblue]For[/color] [color=darkblue]Each[/color] Cell [color=darkblue]In[/color] VisibleRng
                .AddItem Cell
            [color=darkblue]Next[/color] Cell
        [color=darkblue]End[/color] [color=darkblue]With[/color]
    [color=darkblue]Else[/color]
        MsgBox "No records found...", vbExclamation
    [color=darkblue]End[/color] [color=darkblue]If[/color]
    [/font]

Change the desired column and name of the combo box, accordingly.