Filtered list in Combo Box

[jyokom]

I have two combo boxes in a user form. the first filters a list of information. How do I get the second combo box to only list the filtered list? my code is as follows:

Private Sub DTP_LoadDate_Change()
  Dim Msn As Range
    With Sheets("Saved")
    Range("A1").AutoFilter Field:=1, Criteria1:=DTP_LoadDate.Value
    End With
    For Each Msn In Worksheets("Saved").Range("B3:B25")
    Cbo_CallSign.AddItem Msn.Text
    Next Msn

End Sub

 

[Leith Ross]

Hello jyokom,

You need to use the SpecialCells property to get only the filtered items.

Private Sub DTP_LoadDate_Change()
  Dim Msn As Range
    With Sheets("Saved")
      .Range("A1").AutoFilter Field:=1, Criteria1:=DTP_LoadDate.Value
    End With
    For Each Msn In Worksheets("Saved").Range("B3:B25").SpecialCells(xlCellTypeVisible)
      Cbo_CallSign.AddItem Msn.Text
    Next Msn

End Sub

End Sub

 

[jyokom]

Thank you, exactly what I was looking for.