Listview penceresine kayıt aktarma...

[krediborcumvar]

Değerli hocalarım, ekli dosyamda bazı sıkıntılar yaşamaktayım.
Listbox'da görüntülenen verilerin, listview penceresinde görünmesini ve
'Hızlı Aramayı' Listview penceresinde görmek istiyorum.

Şayet dosyayı inceleyip, yardımcı olursanız, sizlere minnettar kalacağım.

 

[Orion1]

Dosyanız ektedir.

Sub lvwlist(ByRef deg As Variant, ByRef sut As Integer)
Dim x As Long, sh As Worksheet, sat As Long, renk, sat2 As Long, deg2
Set sh = Sheets("VERİ")
sat = sh.Cells(65536, "C").End(xlUp).Row - 1
ListView1.ListItems.Clear
If sat < 2 Then Exit Sub
deg2 = UCase(Replace(Replace(Replace(deg, "ı", "I"), "i", "İ"), "'", ""))
If deg = "" Then sut = 8
For x = 1 To sat
    If deg = "" Then deg2 = UCase(Replace(Replace(Replace(sh.Cells(x + 1, sut).Value, "ı", "I"), "i", "İ"), "'", ""))
    If UCase(Replace(Replace(Replace(sh.Cells(x + 1, sut).Value, "ı", "I"), "i", "İ"), "'", "")) = deg2 Then
        sat2 = sat2 + 1
        If sat2 Mod 2 = 0 Then
            renk = vbRed
            Else
            renk = vbBlue
        End If
        ListView1.ListItems.Add , , sh.Cells(x + 1, 3).Value
        For k = 1 To 9
            ListView1.ListItems(sat2).SubItems(k) = sh.Cells(x + 1, k + 3).Value
            ListView1.ListItems(sat2).ListSubItems(k).ForeColor = renk
        Next k
    End If
Next x
Set sh = Nothing
End Sub

 

[krediborcumvar]

hocam çok teşekkür ederim, saolun
hızlı arama ile ilgili de yardımlarınızı bekliyorum