ListView1 veri alma

[oydemir]

ListBox filtre yapmak istedim fakat tabloda aranacak kolon sayısı fazla olunca (ListBox 10 kolondan sonra hata verdi) beceremedim.

formda bulduğum dosyayı kendime uyarlamak istedim fakat TextBox1 aranacak veri yazdığımda a sütununu getiriyor yardımcı olurumsunuz .

formdaki kotları aynısını kopyaladım ama olmadı
Private Sub TextBox1_Change()

ListView1.ListItems.Clear
On Error Resume Next

FD = UCase(Replace(Replace(TextBox1.Text, "?", "I"), "i", "I."))

For i = 2 To [a65536].End(3).Row
If UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 2).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Or UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 3).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Or UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 4).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Or UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 5).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Or UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 6).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Or UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 7).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Or UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 8).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Or UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 9).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Or UCase(Replace(Replace(Sheets("Sayfa2").Cells(i, 10).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Then 'Harflerin Büyük veya Küçük ayrım yapılmaksızın _
aranması için burada UCase ile harfler büyütülüyor

Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
Liste.SubItems(1) = Cells(i, 2).Value
Liste.SubItems(2) = Cells(i, 3).Value
Liste.SubItems(3) = Cells(i, 4).Value
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
End If
Next i
End Sub

Private Sub UserForm_Initialize()
With Me.ListView1
.ColumnHeaders.Add , , "ID", 1
.ColumnHeaders.Add , , "Adı", 100
.ColumnHeaders.Add , , "Marka Adı", 100
.ColumnHeaders.Add , , "Aktif Madde", 5
.ColumnHeaders.Add , , "Kullanım Yeri", 150
.ColumnHeaders.Add , , "Tür", 150
.ColumnHeaders.Add , , "Link", 100
.ColumnHeaders.Add , , "Etki Alanı", 150
.ColumnHeaders.Add , , "Kullanım Şekli", 150
.ColumnHeaders.Add , , "Kayıt Tarihi", 1



End With
End Sub