Search and Fill Listbox

[GhostofDoom]

Hello,

i was wondering how i can fill my listbox with 2 search criterias

for example i like to search on 'In progress, Running'

how can i do that?

i use this code for searching

Dim DataSH As Worksheet
On Error GoTo errHandler:
Me.ListBox1.RowSource = ""
  Set DataSH = Sheet10
   
DataSH.Range("T9").Value = txtSearch.Text
DataSH.Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=DataSH.Range("T8:T9") _
, CopyToRange:=DataSH.Range("V8:AM8")


ListBox1.RowSource = DataSH.Range("outdata").Address(external:=True)

Thank you

[SamT]

"outdata" is undefined

[snb]

Avoid rowsource.

With sheet10
   .Range("T9")= txtSearch.Text
   .Range("B8").CurrentRegion.AdvancedFilter 2, .Range("T8:T9"), .Range("V8")
   ListBox1.List= .Range("V8).currentregion.value
end with