Simple Database Build

Hi,

I need some help building a simple database for a flight project I'm working on. The file is attached. Tab 1 (Updated Flight list) is pulling information for a website that lists all flight times (starts on row 92). The second tab, "Selection" is a filter I've created based on a drop down menu of all airlines.

I need help filtering the data. For example, when I select " American Airlines" from the dropdown, only American airlines information should show up on the selection tab.

Any ideas how this can be done?

Thanks very much for the help!

-Andrew

Try this:-
Place code in "Combobox1_Change" Event Code module.

Private Sub ComboBox1_Change()
Dim Rng As Range
Dim Dn As Range
With Sheets("Updated Flight list")
    Set Rng = .Range(.Range("A92"), .Range("A" & Rows.Count).End(xlUp))
End With

With CreateObject("scripting.dictionary")
    .CompareMode = vbTextCompare
        For Each Dn In Rng
            If Not .Exists(Dn.Value) Then
                .Add Dn.Value, Dn
            Else
                Set .Item(Dn.Value) = Union(.Item(Dn.Value), Dn)
            End If
        Next

Sheets("Selection").Range("B8").Resize(200, 7).ClearContents
Sheets("Selection").Range("B8").Resize(.Item(ComboBox1.Value).Count, 7).Value = .Item(ComboBox1.Value).Resize(, 7).Value
End With

End Sub

Regards Mick