Listwiew Arama

[mf.murat]

Arkadaşlar aşağıdaki kodlar ile listwievde arama yapamıyorum ekran boş geliyor.Lütfen yardımcı olurmusunuz.

Dim x As Integer
Dim Liste As ListItem ' Öncelikle list item için bir değişken tanımlayalım

ListView1.ListItems.Clear 'Daha önceden ListView nesnemizde veri olabileceği için bu nesnenin için temizleyelim.

For i = 2 To [a65536].End(3).Row

'Şimdi verileri almak için bir Döngü kuralım . Bu döngü bizim için 2 den başlayarak son dolu olan satır kaçıncı satırsa o kadar saysın.
    If Cells(i, 8).Value = Me.ComboBox18.Value Then
    
        x = x + 1 'Satırlarımızı numaralandırmak için değer atayalım. Döngümüz her döndüğünde değer 1 artacaktır. Burda neden i kullanmayıp ta farklı bir değer kullandığımızı daha sonraki derslerimizde çok iyi anlayacaksınız ..
        Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value) ' Artık verilerimizi almaya başladık. Birinci sütuna birinci satırdaki veriler sırasıyla alınmaya başlıyor.
        Liste.SubItems(1) = Cells(i, 2).Value 'İkinci sütuna 2. sütun. Burda başta 1 yazıyor çünkü ListViewın ilk kolunu 1 değil 0. Burayı karıştırmamak gerekiyor.
        Liste.SubItems(2) = Cells(i, 3).Value 'Üçüncü sütuna 3. sütun
        Liste.SubItems(3) = Cells(i, 4).Value ' 4. sutuna 5 satırı aldık
        Liste.SubItems(4) = Cells(i, 5).Value
        Liste.SubItems(5) = Cells(i, 6).Value
        Liste.SubItems(6) = Cells(i, 7).Value
        Liste.SubItems(7) = Cells(i, 8).Value
        Liste.SubItems(8) = Cells(i, 9).Value
        Liste.SubItems(9) = Cells(i, 10).Value
        Liste.SubItems(10) = Cells(i, 11).Value
        Liste.SubItems(11) = Cells(i, 12).Value
        Liste.SubItems(12) = Cells(i, 13).Value
        Liste.SubItems(13) = Cells(i, 14).Value
        Liste.SubItems(14) = Cells(i, 15).Value
        Liste.SubItems(15) = Cells(i, 16).Value
        Liste.SubItems(16) = Cells(i, 17).Value
        Liste.SubItems(17) = Cells(i, 18).Value
        Liste.SubItems(18) = Cells(i, 19).Value
        Liste.SubItems(19) = Cells(i, 20).Value
        Liste.SubItems(20) = Cells(i, 21).Value
        Liste.SubItems(21) = Cells(i, 22).Value
        Liste.SubItems(22) = Cells(i, 23).Value
        Liste.SubItems(23) = Cells(i, 24).Value
        Liste.SubItems(24) = Cells(i, 25).Value
    
    End If
    
Next i

Set Liste = Nothing

 

[mf.murat]

Arkadaşlar konu hakkında fikri olan var mı?

 

[Zeki Gürsoy]

Merhaba,

Kod yapısında sorun yok gibi, örnek dosyanız var mı?

** Başlıkta vereceğiniz kodları

 [ /code] tagları içine alın. Okunması anlaşılması kolay olur.

 

[Husgvarna]

Ek dosyayı inceleyin.

 

[halit3]

alternatif olarak bir örnek dosyada ben ekliyorum.