ilgili kodu alttaki ile değiştirin abey.

Sub ListviewwTrue()

    Dim i As Byte, j As Long, syfArsiv As Worksheet

    

    Set syfArsiv = ThisWorkbook.Sheets(sayfa_ARÞiV)

    

        arr = Array(50, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, _

                100, 100, 100, 50, 100, 100, 100, 100, 100, 100, 40, 100)



    

    With Me.ListView1

        .View = lvwReport

        .FullRowSelect = True

        .ListItems.Clear

        .ColumnHeaders.Clear

        .Gridlines = True

    End With

    

 Application.ScreenUpdating = False

    With Me.ListView1.ColumnHeaders

      For i = 2 To listviewkolon

        .Add , , syfArsiv.Cells(2, i).Value, arr(i - 2)

      Next

    End With

        

  Call son_ArsivsayfaNo

  

    With Me.ListView1

        For i = 3 To sonArsivsatirNo

            If (syfArsiv.Cells(i, 3).Value & "|" & _

                syfArsiv.Cells(i, 4).Value & "|" & _

                syfArsiv.Cells(i, 5).Value & "|" & _

                syfArsiv.Cells(i, 6).Value) _

              = _

              ListBox1.Value & "|" & ListBox2.Value & "|" & ListBox3.Value & "|" & ListBox4.Value Then

              

                .ListItems.Add , , syfArsiv.Cells(i, 2).Value

                For j = 3 To listviewkolon

                    .ListItems(.ListItems.Count).SubItems(j - 2) = syfArsiv.Cells(i, j).Value

                Next

            End If

        Next

    End With

      

  Application.ScreenUpdating = True

      

    Erase arr: Set syfArsiv = Nothing

End Sub