PDA

View Full Version : Search and Fill Listbox



GhostofDoom
12-21-2019, 05:05 AM
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
12-22-2019, 07:01 PM
"outdata" is undefined

snb
12-24-2019, 04:06 AM
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