Search Data using Combobox Textbox and Listbox

[Adrastia]

I won't lie, I've been racking my brains to get around this.

I would like this srchusrfrm.jpg userform to be used in this way;

Combo Boxes - List headings of column (so out of 12 you can have up to three choices)
Text Boxes - In conjunction with the above outlined criteria, to search defined column, with textbox value
Search - actually searches active worksheet
ListBox - Displays results
Select - once highlighting the results it opens another Userform to allow the data to editted
Cancel - Saves workbook and closes userform


All the code I've wrote, found, researched and used have not seemed to have worked. I have even tried to macro the Filter system, but there are still problems. Either it only works with the combo box or just the text or the text populates the list box... I just can't seem to get my head around it. >.<

Unfortunately I can not attach the file as it is too big, all help is appriciated, Thank you in advance.

[Adrastia]

I was tyring to think outside the box today and changed it up

Private Sub TextBox1_Change()
Range("C:C").AutoFilter field:=3, Criteria1:=TextBox1.Value
End Sub

Private Sub TextBox2_Change()
Range("D:D").AutoFilter field:=4, Criteria1:=TextBox2.Value
End Sub


Private Sub TextBox3_Change()
Range("E:E").AutoFilter field:=5, Criteria1:=TextBox3.Value
End Sub

Private Sub TextBox5_Change()
Range("a:A").AutoFilter field:=1, Criteria1:=TextBox5.Value
End Sub

This now finds automatically whilst typing into the search box but will only come up with one result;
for Example
Column C has peoples First Names; Scott, Frances, Ruth, Rohan, Frank, Rufus
If I type "Ru" into textbox1 it will filter and only Ruth will show instead of Ruth and Rufus

Any Idea how to address this issue?

Also, how can I get the List box to update with the information on the sheet after it is filtered?

[Adrastia]

In the end I have given up on the listbox, I just couldn't figure out how to update it with just the filteredcells.
If anyone was interested my finished code was:

Private Sub Userform_Initialize()
TextBox3.Text = Format(Text, "AA00 0AA")
End Sub
Private Sub CommandButton6_Click()
Unload Me
Course.Show
End Sub

Private Sub CommandButton4_Click()
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=11
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=10
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=9
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=8
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=7
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=6
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=5
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=4
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=3
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=2
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=1
    nextrow = Cells.Find(What:="*", searchdirection:=xlPrevious, searchorder:=xlByRows).Row + 1
Cells(nextrow, 1).Select
    Unload Me
End Sub
Private Sub CommandButton5_Click()
Range("A2:N2000").SpecialCells(xlCellTypeVisible).Select
editenrol.Show
End Sub

Private Sub CommandButton7_Click()
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox5.Value = ""
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=11
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=10
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=9
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=8
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=7
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=6
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=5
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=4
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=3
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=2
    ActiveSheet.Range("$A$1:$K$13").AutoFilter Field:=1
    nextrow = Cells.Find(What:="*", searchdirection:=xlPrevious, searchorder:=xlByRows).Row + 1
Cells(nextrow, 1).Select
End Sub

Private Sub ListBox1_Click()
End Sub

Private Sub TextBox1_Change()
Range("C:C").AutoFilter Field:=3, Criteria1:=TextBox1.Value
End Sub

Private Sub TextBox2_Change()
Range("D:D").AutoFilter Field:=4, Criteria1:=TextBox2.Value
End Sub


Private Sub TextBox3_Change()
Range("F:F").AutoFilter Field:=6, Criteria1:=TextBox3.Value
End Sub

Private Sub TextBox5_Change()
Range("a:A").AutoFilter Field:=1, Criteria1:=TextBox5.Value
End Sub