ListView Sorunuma Yard1m Edin Lütfen

[efeksk]

Baskasi tarafindan yapilmis bir programi kendime gore yeniden duzenledim. Hersey gayet saglikli calisiyor ama bir sorunum sorunum var. sorunum ListView sorunu asagida resimle gosterdiim gibi.

Programa Ait Dosyayi ekde verdim. Lütfen yardim adin. Simdiden Tesekkur ederim.

Gecmis bayraminiz mubarek olsun hepinizin

 

[efeksk]

Abi kimse yardim etmicekmi bana yaaa

 

[exes]

Private Sub UserForm_Initialize()
Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
On Error Resume Next
ListView1.View = lvwReport
'Kolanlara isim ver
With ListView1.ColumnHeaders
    .Add , , "G.Tarihi", 60
    .Add , , "Dosya No", 60
    .Add , , "Ç.Tarihi ", 60
    .Add , , "Dosya No", 150
    .Add , , "Giriş ", 64, lvwColumnRight
    .Add , , "Çıkış ", 64, lvwColumnRight
    .Add , , "Kalan", 64, lvwColumnRight
    End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
Sheets("mezarlikrapor").Select
Dim MyRange As Range
Dim noA As Integer
noA = WorksheetFunction.CountA(Sheets("veri").Range("a:a"))
For Each MyRange In Sheets("veri").Range("a2:a" & noA)
If Left(LCase(MyRange), Len(ComboBox2)) = LCase(ComboBox2) Then ListBox1.AddItem (MyRange)
Call Listwiev_guncelle
Next
ListBox2.ColumnHeads = False
ListBox2.RowSource = "mezarlikrapor!g5"
ListBox3.RowSource = "mezarlikrapor!f5"
ListBox4.RowSource = "mezarlikrapor!e5"
ListBox6.RowSource = "mezarlikrapor!b4"
ListBox7.RowSource = "mezarlikrapor!b5"
End Sub
Sub Listwiev_guncelle()
    Dim s2 As Worksheet
    Dim i%, j%
Set s2 = Sheets("mezarlikrapor")
With ListView1
.View = lvwReport
.ListItems.Clear
    For i = 7 To s2.Cells(65536, 1).End(xlUp).Row
   .ListItems.Add , , Cells(i, 1)
   For j = 1 To 6
            .ListItems(.ListItems.Count).SubItems(j) = s2.Cells(i, j + 1)
              Next j
    Next i
End With
    Set s2 = Nothing
End Sub