Listview satır sayısı

[endexci]

Merhabalar arkadaşlar

Userformda listview var ayrıca texboxlardan arama yapılabiliyor her şey çalışıyor fakat texboxlardan herhangi bir arama yaptığım zaman listviewda satır sayısı 19 tane gösteriyor tüm verileri göstermiyor neden olabilir acaba yardımcı olabilir misiniz

Private Sub UserForm_Initialize()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayAlerts = True
ListView1.ColumnHeaders.Clear
With ListView1.ColumnHeaders
.Add , , "NO", 20, 0
.Add , , "BÖLGE", 50, 0
.Add , , "ADI SOYADI", 75, 0
.Add , , "TELEFON", 55, 0
.Add , , "PLN GRB", 30, 0
.Add , , "SOR İŞYERİ", 40, 0
.Add , , "TEKNİK BİRİM", 50, 0
End With
ListView1.ListItems.Clear
On Error Resume Next
For i = 2 To [a65536].End(3).Row
Set Liste = ListView1.ListItems.Add(, , (Sheets("Parametre").Cells(i, 1).Value))
Liste.SubItems(1) = (Sheets("Parametre").Cells(i, 3).Value)
Liste.SubItems(2) = (Sheets("Parametre").Cells(i, 4).Value)
Liste.SubItems(3) = (Sheets("Parametre").Cells(i, 5).Value)
Liste.SubItems(4) = (Sheets("Parametre").Cells(i, 6).Value)
Next i
End Sub
Private Sub ARAMA_Change() 'bölgeye göre arama
ListView1.ListItems.Clear
On Error Resume Next
FD = UCase(Replace(Replace(ARAMA, "?", "I"), "i", "I."))
For i = 2 To [a65536].End(3).Row
If UCase(Replace(Replace(Sheets("Parametre").Cells(i, 3).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Then
Set Liste = ListView1.ListItems.Add(, , (Sheets("Parametre").Cells(i, 1).Value))
Liste.SubItems(1) = (Sheets("Parametre").Cells(i, 3).Value)
Liste.SubItems(2) = (Sheets("Parametre").Cells(i, 4).Value)
Liste.SubItems(3) = (Sheets("Parametre").Cells(i, 5).Value)
Liste.SubItems(4) = (Sheets("Parametre").Cells(i, 6).Value)

End If
Next i
End Sub
Private Sub ARAMA2_Change() 'ad soyada göre arama
ListView1.ListItems.Clear
On Error Resume Next
FD = UCase(Replace(Replace(ARAMA2, "?", "I"), "i", "I."))
For i = 2 To [a65536].End(3).Row
If UCase(Replace(Replace(Sheets("Parametre").Cells(i, 4).Value, "?", "I"), "i", "I.")) _
Like "*" & FD & "*" Then
Set Liste = ListView1.ListItems.Add(, , (Sheets("Parametre").Cells(i, 1).Value))
Liste.SubItems(1) = (Sheets("Parametre").Cells(i, 3).Value)
Liste.SubItems(2) = (Sheets("Parametre").Cells(i, 4).Value)
Liste.SubItems(3) = (Sheets("Parametre").Cells(i, 5).Value)
Liste.SubItems(4) = (Sheets("Parametre").Cells(i, 6).Value)

End If
Next i
End Sub

 

[endexci]

Arkadaşlar sorunu çözdüm teşekkürler ilginize çözümüm aşağıdaki sayfa tanımını yapmamışım

Sheets("Parametre").Activate