sayfada textbox ile listbox ı süzme

[bduru]

excel sayfasında listbox a aldırdığım verileri textbox userformsuz makro ile süzmek istiyorum. Forumda incelediğim örneklerde textbox la sayfadaki satır süzmeleri ile örnekler çok ama benim aradığım şekilde bir süzme işlemi bulamadım yardımcı olabilirmisiniz.

 

[Orion1]

Bir tane örnek dosya ekleyiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub TextBox1_Change()
Dim SUT, S As Integer
On Error Resume Next
ListBox1.ColumnCount = 2
ListBox1.Clear
For SUT = 1 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") Like TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "A")
ListBox1.List(S, 1) = Cells(SUT, "B")
S = S + 1
End If
Next
End Sub

 

[captan]

Örnek bir dosya eklerseniz size yardımcı olmaya çalışırıö

 

[bduru]

Sayın Orion2 eklediğim dosya başlangıç olarak yapmak istideğime yakın sayılır

Sayın captan sizin TEST1 dosyasını inceledim. Dosya açılırken ilgili liste otomatik olarak listbox a alamaz mı acaba ; textbox a bir değer yazıp silince tüm liste listbox ta listeleniyor. yani ben bu excel dosyasını ilk açtığımda da tüm liste listbox ta listenebilir mi

Tüm arkadaşlara ilgi ve alakalarından dolayı teşekkürler...

 

[bduru]

Sayın V.Basic For Applications pardon TEST1 dosyasını siz hazırlamışsınız..



TEST1 dosyasında ben bir kaç şey değiştirdim fakat değişikliklerimi iptak ettikten sonra 1 şey daha farkettim. Textbox a bir değer yazıp silince listbox a bütün listenin aktarıldığını zannetmiştim.Fakat datalardaki son satır var gibi ama görünmüyor listbox ta o satır yok.

 

[brcyns]

Eklediğiniz dosya çok işime yarayacak ben üzerinde değişiklik yaptım 2 hane değilde 5 hane olarak kullanmak istiyorum bunu yapabildim fakat ben kaydırma çubuğu yerine geniş textbox kullanıp kaydırma çubuğundan bağımsız çalıştırmak istiyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Diğer kodun altına ilave edip deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1 = "."
TextBox1 = ""
End Sub

 

[brcyns]

Kodu altına ekledim fakat olmadı hala boyut aynı ve kaydırma çubuğu duruyor.Birde merak ettiğim user forumda çalıştırabilir miyiz

Private Sub TextBox1_Change()
Dim SUT, S As Integer
On Error Resume Next
ListBox1.ColumnCount = 5
ListBox1.Clear
For SUT = 1 To Cells(65536, "A").End(3).Row
If Cells(SUT, "A") Like TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SUT, "A")
ListBox1.List(S, 1) = Cells(SUT, "B")
ListBox1.List(S, 2) = Cells(SUT, "C")
ListBox1.List(S, 3) = Cells(SUT, "D")
ListBox1.List(S, 4) = Cells(SUT, "E")
S = S + 1
End If
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1 = "."
TextBox1 = ""
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneği inceleyiniz.Not:Listboxun sağındaki kaydırma çubuğunu kaldırmak için Listboxu verilerin sutun sayıları kadar genişletmelisiniz.