LİSTVİEW'e veri alırken hata

[kelti_2000]

Listview'e veri alırken hata

merhaba

farklı bir dosyada kullandığım makroyu ekteki dosyaya eklediğimde hata veriyor.
bu makronun amacı seçilen personelin eski kayıtlarını listviewde göstermesiydi.
giris "userform"un 'daki list viewde göstermek istiyorum. hata verdiği için kodları ayıklayıp ekledim listview göstermeden dosya istediğim gibi çalışıyor. aşağıdaki makroyu nasıl değiştirmem gerekir acaba?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long, j As Integer, sh As Worksheet
Dim lw As ListView, ad As String, x As Long
bul = Range("A:A").Find(ListBox1.Value).Row
'bul.EntireRow.Delete
Rows(bul).Select

'q = ListBox1.ListIndex
'ActiveSheet.Rows(q + 5).Select
ActiveCell.Select
persec.Hide
Unload giris
ActiveCell.Select
Set sh = Sheets("DOKUM")
Set lw = giris.ListView1
lw.View = lvwReport
For j = 1 To 15
lw.ColumnHeaders.Add , , sh.Cells(1, j).Value, sh.Cells(1, j).ColumnWidth * 6
Next
ad = ListBox1.Column(1) & " " & ListBox1.Column(2)
lw.ColumnHeaders.Item(2).Width = 0
lw.ColumnHeaders.Item(3).Width = 0

For i = 2 To sh.Cells(65536, "D").End(xlUp).Row
If UCase(Replace(Replace(ad, "ı", "I"), "i", "İ")) = _
UCase(Replace(Replace(sh.Cells(i, 4).Value, "ı", "I"), "i", "İ")) Then
lw.ListItems.Add , , sh.Cells(i, 1).Value
x = x + 1
For j = 2 To 15
lw.ListItems(x).SubItems(j - 1) = sh.Cells(i, j).Value
Next
End If
Next i
giris.Show
End Sub

 

[halit3]

ekli dosyanızı inceleyiniz.

 

[kelti_2000]

öncelikle teşekkürler
ama ufak bir sorun var. ben anlatırken iyi anlatamadım herhalde. dosya eklediğim haliyle çalışır durumdaydı. tek ekleyemediğim yeni bir izin girişi yapacağım kişinin DOKUM sayfasındaki (sadece o kişiye ait ) eski kayıtlarının userform üzerindeki listview'de göstermekti.

resim 1 eski dosyamın sayfasıdır.