listviewe veri çekmek

[kelti_2000]

merhaba

ekte bulunan dosyada personellerin senelik izin formlarını hazırlamak ve kul.izinlerin takibini yapmak için hazırlamıştım.

dosya ilk açıldığında userform otomatik geliyor. buradaki listeden herhangi birine çift tıkladığımızda başka bir user form geliyor ve personel bilgilerini yeni forma çekiyor. bu 2. userforma bir takvim ve birde listview ekledim. bu userform açıldığında tekxboxtaki adı ve soyadına göre "DOKUM" sayfasından sadece o kişinin hareketlerini listview'e göstermek istiyorum. bazı kodlar denemiştim ama olmadı. bu konuda yardımcı olursanız sevinirim.

 

[Orion1]

Dosyanız ekte.

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 merkez
ActiveCell.Select
Set sh = Sheets("DOKUM")
Set lw = merkez.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 14
            lw.ListItems(x).SubItems(j - 1) = sh.Cells(i, j).Value
        Next
    End If
Next i
   merkez.Show

 

[kelti_2000]

Evren hocam
çok teşekkür ederim.

 

[Orion1]

Evren hocam
çok teşekkür ederim.

Rica ederim.
iyi çalışmalar.