Filitre Uygulanmış Sayfayı ListView görüntüleme problemi?

[iaydin20]

Merhaba;

1- Arkadaşlar Sorudanda anlaşılacağı üzere textbox aracılığıile filitre uygunamış sayfayı Listview de görüntülerken filitre uygulanmış sayfayı aynen görmek istiyorum ancak ilk ve son satırlar sayfada gözükmemesine rağmen listview de gözüküyor.
2 - Listview güncellendikçe sütun sayısı artıyor buna nasıl bir çözüm bulabiliriz

sayfada filitre uygulanan kodlar ;

Private Sub TextBox1_Change()
On Error Resume Next
SONUC2 = TextBox1.Value
Set FC2 = Range("A2:g65000").Find(What:=SONUC2)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=3, Criteria1:="*" & TextBox1.Value & "*"
Call ListView1_guncelle
End Sub

ListViewe görüntü alınan kodlar;

Sub ListView1_guncelle()
Sheets("veri").Select
On Error Resume Next
Dim i As Integer
ListView1.View = lvwReport
ListView1.ListItems.Clear
'Kolanlara isim ver
'Kolanlara isim ver
With ListView1.ColumnHeaders
    .Add , , "  Tarih", 50
    .Add , , "  Evrak No", 53
    .Add , , "  Açıklama ", 155
    .Add , , "  Borç ", 46, lvwColumnRight
    .Add , , "  Alacak ", 46, lvwColumnRight
    End With
'Kolanlara verileri al
Dim ckBU As Workbook
Dim csSR As Worksheet
Set ckBU = ThisWorkbook: Set csSR = ckBU.Sheets("veri")
c = csSR.Cells(65536, 1).End(3).Row
With ListView1
.ListItems.Clear
    For i = 2 To c
    X = X + 1
            .ListItems.Add , , Cells(i + 1, 1)
            .ListItems(X).SubItems(1) = Cells(i + 1, 2)
            .ListItems(X).SubItems(2) = Cells(i + 1, 5)
            .ListItems(X).SubItems(3) = Cells(i + 1, 6)
            .ListItems(X).SubItems(3) = Format(ListView1.ListItems(X).SubItems(3), "#,##0.00")
            .ListItems(X).SubItems(4) = Cells(i + 1, 7)
            .ListItems(X).SubItems(4) = Format(ListView1.ListItems(X).SubItems(4), "#,##0.00")
  Next
End With
ListView1.Gridlines = True
ListView1.View = lvwReport
End Sub

Not: Dosya biraz yüklü olduğu için ekleyemedim.

Yardımcı olabilirseniz teşekkür ederim..

 

[iaydin20]

Arkadaşlar yardımcı olacak kimse yokmu