listboxta arama yapma 2 sutunda ayrı ayrı

[akineton_1]

listebox ta arama yaparken ilk sutuna göre arama yapabiliyorum ama
ikinci stuna göre arama yapamıyorum.

birde listedeki adetler 5000 adedi aşınca liste 1 dakikada anca gleiyor.
bu konuda çok acil yarfım edebilecek üstadlar varmıdır.

ilginiz için şimdiden teşekkürler.

örnek dosya çalışmam ektedir.

 

[halit3]

listebox ta arama yaparken ilk sutuna göre arama yapabiliyorum ama
ikinci stuna göre arama yapamıyorum.

birde listedeki adetler 5000 adedi aşınca liste 1 dakikada anca gleiyor.
bu konuda çok acil yarfım edebilecek üstadlar varmıdır.

ilginiz için şimdiden teşekkürler.

örnek dosya çalışmam ektedir.

bu kodu denermisiniz.

Private Sub TextBox1_Change()
Dim sat, s As Integer
If TextBox1.Text = "" Then
Exit Sub
End If
s = 0
With ListBox1
.Clear
.ColumnCount = 9
.ColumnWidths = "160,140,105,80,80,300,1,1,1"
End With
deger = ActiveSheet.Name
Set d = Worksheets(deger).Cells.Find(TextBox1.Text, LookIn:=xlValues)
If Not d Is Nothing Then
firstAddress = d.Address
Do
sat = d.Row
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
ListBox1.List(s, 1) = Cells(sat, "B")
ListBox1.List(s, 2) = Cells(sat, "c")
ListBox1.List(s, 3) = Cells(sat, "D")
ListBox1.List(s, 4) = Cells(sat, "E")
ListBox1.List(s, 5) = Cells(sat, "F")
ListBox1.List(s, 6) = Format(Cells(sat, "G"), "#,##0.00 TL")
ListBox1.List(s, 7) = Format(Cells(sat, "H"), "#,##0.00 TL")
ListBox1.List(s, 8) = Format(Cells(sat, "I"), "#,##0.00 TL")
s = s + 1
Set d = Worksheets(deger).Cells.FindNext(d)
Loop While Not d Is Nothing And d.Address <> firstAddress
End If
End Sub

 

[akineton_1]

çok teşekkür ederim üstadım. yanlız aynı kodu listbox içerisinde biraz açık kalınca çoğaltarak gösteriyor.

 

[akineton_1]

halit bey arama süresi daha çok uzadı çünkü liste 5000 satır.
birde 3-4 ayrı liste farklı userformlarla çalışıyo ama listboxa son kaydedilen sayfadan veri çekiyor belirttiğim sayfadan çekmiyor. sayfa belirtilmemiş sanıyorsam.
ilginiz için teşekkürler.

 

[halit3]

halit bey arama süresi daha çok uzadı çünkü liste 5000 satır.
birde 3-4 ayrı liste farklı userformlarla çalışıyo ama listboxa son kaydedilen sayfadan veri çekiyor belirttiğim sayfadan çekmiyor. sayfa belirtilmemiş sanıyorsam.
ilginiz için teşekkürler.

ekli dosyaya bir bak aranan nesneyi texbox nesnesine yaz bul komut düğmesini tıkla

deger = ActiveSheet.Name


kırmızı yazılı yere kendi sayfa adını yazabilirsin