Listview de arama

[udentr2002]

Merhaba arkadaşlar,

combobox un change özelliğine aşağıdaki kodlar yardımı ile listview de arama süzme yaptırıyorum. Kodlar doğru çalışıyor. Ancak benim istediğim aramayı yaparken combobox a yazdığım veriyi ararken o harf ile başlayan verileri süzüyor kelimenin içerisinde araması yani kelimenin başında değilde kelime içinde arasında geçenlerin hepsini süzmesi . Aşağıdaki kodlarla arama yaparken sadece o harfle başlayan verileri süzüyor.

If OptionButton1 = True Then
 ListView1.ListItems.Clear
 ComboBox1.RowSource = "Etken!a3:a" & Sheets("Etken").Range("a65536").End(3).Row
 





For i = 1 To Sheets("Etken").Cells(60000, "A").End(xlUp).Row
If Sheets("Etken").Cells(i, "a").Value = Me.ComboBox1 Then
Y = Y + 1
ListView1.ListItems.Add , , i
'ListView1.ListItems.Add , , Sheets("Etken").Cells(i, 1)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 1)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 2)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 3)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 4)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 5)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 6)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 7)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 8)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 9)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 10)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 11)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 12)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 13)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 14)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 15)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 16)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 17)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 18)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 19)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 20)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 21)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 22)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("Etken").Cells(i, 23)

ListView1.ListItems(Y).SubItems(17) = Format(Sheets("Etken").Cells(i, "q"), "#,##0.00")
ListView1.ListItems(Y).SubItems(18) = Format(Sheets("Etken").Cells(i, "r"), "#,##0.00")
ListView1.ListItems(Y).SubItems(19) = Format(Sheets("Etken").Cells(i, "s"), "#,##0.00")


End If

Next i

Yardımcı olursanız sevinirim.

 

[acolkesen1]

Merhaba,
Örnek bir çalışma ekleseniz daha kesin sonuç alırsınız.Aşağıdaki kod ile sözcük içinde geçen harflere göre filtre yaptırabilirsiniz. A sütununda a1 den başlayarak arar.

Private Sub TextBox1_Change()
With Worksheets("etken")
strLetter = Me.TextBox1.Text
Me.ListBox1.Clear
If .FilterMode Then .ShowAllData
vList = Range("a1", Cells(Rows.Count, 1).End(xlUp)).Value
vList = Application.Transpose(vList)
vList = Filter(SourceArray:=vList, _
Match:=strLetter, _
Include:=True, _
Compare:=vbTextCompare)
Me.ListBox1.List = vList
End With
End Sub

 

[udentr2002]

Çalışmada Listview kullanıyorum listbox değil 2. olarakta comboboxun change özelliğinde kodlar çalışıyor demiştim textbox değil yinede baktığın için teşekkürler ama sorunumu çözmedi

 

[Husgvarna]

Aşağıdaki örnek işinize yarayabilir.

 

[udentr2002]

Öncelikle ilgilendiğiniz ve zaman ayırdığınız için gerçekten teşekkür ederim. Haftasonu cevap veremedim mailinize.

Göndermiş olduğunuz örnek tam istediğim şekilde ama kendi dosyama neden uyarlayamadım anlayamadım çok uğraştım ama olmadı bu yüzden dosyamın bir örneğini gönderiyorum size tekrar bakabilrmisiniz rica etsem.

 

[udentr2002]

Bu konu hakkında yardım edecek bir arkadaşım yokmu acaba projem tıkandı açıkcası ilerleyemiyorum.

 

[udentr2002]

Bu konu hakkında yardımlarınızı beklemekteyim.

 

[udentr2002]

Böyle bir şey yapabilmenin imkanı yokmu acaba olmuyorsada söyleyin lütfen.

Ekli dosyada comboboxa yazılan veriyi Etken sayfasında A stünunda arayacak listviewe süzecek yardımcı olursanız sevinirim.

Saygılarımla.

 

[Husgvarna]

Böyle bir şey yapabilmenin imkanı yokmu acaba olmuyorsada söyleyin lütfen.

Ekli dosyada comboboxa yazılan veriyi Etken sayfasında A stünunda arayacak listviewe süzecek yardımcı olursanız sevinirim.

Sanırım yardım etmek isteyenlere engel; eklediğiniz dosyanızın ağırlaşması olabilir,
dosyanıza göre "Etken sayfasında A stünunda arayacak listviewe süzecek" eki inceleyiniz.