ListBox'ı, Arama Textbox'ı ile süzmek.

[sukruyilmaz1]

Merhabalar Sayın Uzmanlarım, Üstadlarım.

Ekli örnekteki Userform içerisinde (Şantiyeye Göre Arama, Firmaya Göre Arama ve Malzemeye Göre Arama = Textbox9,10 ve 11 ile arama yapmak ve gelen verileri listboxda görmek istiyorum.
Şimdiden çok teşekkür ederim.

Yardımlarınızı bekliyorum.

 

[sukruyilmaz1]

Bu konu ile alakalı forumda çok örnek var ama benim sisteme bir türlü uyarlayamadım. sürekli hatalar veriyor.

 

[Orion1]

Ben şantiye için yaptım.Diğer 2 şıkı size bırakıyorum.
Dosyanız ektedir.

Private Sub TextBox9_Change()
Dim sh As Worksheet, sonsat As Long
Set sh = Sheets("suz")
sh.Cells.ClearContents
Range("A1:J" & Rows.Count).AutoFilter
Range("A1:J" & Rows.Count).AutoFilter field:=2, Criteria1:=TextBox9.Value & "*"
Range("A1:J" & Rows.Count).CurrentRegion.Copy sh.Range("A1")
Range("A1").AutoFilter
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
ListBox1.RowSource = "suz!A2:J" & sonsat

End Sub

 

[halit3]

Alternatif olarak dosyanızda birazcık oynamalar yaptım
kahverengi nesnelere aradığınız değeri yazın bu nesneler sütun bazında listeleme yapıyor.

 

[sukruyilmaz1]

Ben şantiye için yaptım.Diğer 2 şıkı size bırakıyorum.
Dosyanız ektedir.

Private Sub TextBox9_Change()
Dim sh As Worksheet, sonsat As Long
Set sh = Sheets("suz")
sh.Cells.ClearContents
Range("A1:J" & Rows.Count).AutoFilter
Range("A1:J" & Rows.Count).AutoFilter field:=2, Criteria1:=TextBox9.Value & "*"
Range("A1:J" & Rows.Count).CurrentRegion.Copy sh.Range("A1")
Range("A1").AutoFilter
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
ListBox1.RowSource = "suz!A2:J" & sonsat

End Sub

Sayın Orion1 Emeğinize sağlık. teşekkür ederim.

 

[sukruyilmaz1]

Alternatif olarak dosyanızda birazcık oynamalar yaptım
kahverengi nesnelere aradığınız değeri yazın bu nesneler sütun bazında listeleme yapıyor.

Sayın Halit3. Tasarımınız ve eklemeniz için teşekkür ederim. Emeğinize sağlık.