Soru Listbox Sayfadaki Verileri Aktarma

[sevincmert]

frmPersonelListesi adlı userfrom sayfasında kod yazdım ama Kart_Basmayan sayfasındaki verileri siliyor ve oradaki verileri bir türlük listbox aktarma işlemini başaramadım kodlarda hatam mutlaka vardır. Program çalışıyor hata vermiyor ama verilerde listbox gelmiyor ne yazık ki.

Çalışma Dosyası

 

[Tasarım]

Private Sub UserForm_Activate()
    Dim sonsat As Integer
    syflr
'    perlist.Range("A2:E10000").ClearContents
    sonsat = Sheets("Kart_Basmayan").Range("A10000").End(xlUp).Row
    If sonsat = 1 Then Exit Sub
    perlist.Range("A2:E" & sonsat).Copy perlist.Range("A2")
    lstPersonel.ColumnCount = 6
    lstPersonel.ColumnHeads = True
    lstPersonel.RowSource = "Kart_Basmayan!A2:F" & sonsat
    lstPersonel.TextAlign = fmTextAlignLeft
    lstPersonel.ColumnWidths = "128;128;128;150;210"
    lstPersonel.ListIndex = 0
End Sub

Bu şekilde deneyin.