Listedeki seçili isimleri Listboxta çoklu listeleme

[harziyan]

Merhabalar;
"Seyyah" isimli çalışmamda sayenizde epey bir yol aldım. Ve yine yardımınıza ihtiyacım var.

Ekteki dosyada userform2 üzerindeki "rapor" isimli listboxta satır seçildiğinde, seçili satırdaki görevli personellerin (yapılabilirse gidilen yerlerin de) "görevli personel" listboxında seçili hale gelmesini istiyorum.

"Rapor" listboxuna veriler "liste" sayfasından çekiliyor.

Yardımlarınız için şimdiden teşekkürler.

 

[Ömer BARAN]

Merhabalar.

UserForm kodlama işiyle ilgili çok bilgim yok ama ListBox8'in kodlarını aşağıdaki şekilde değiştirince
sanırım istediğiniz şey (en azından kişi isimlerinin seçili hale gelmesi) oluyor.

Ustalar daha pratik çözümler iletecektir mutlaka ama şimdilik işi görecektir.

Ayrıca userform üzerinde bir işlem yapıldığında sayfanızda sürekli hesaplamalar yapılıyor,
çok gerekli değilse (belgenizi ve form kodlarını çok incelemedim) hesaplama seçeneğini
"Elle" haline getirmekte yarar var.
Sanırım bu yüzden UserForm çok yavaş tepki veriyor.
.

Private Sub ListBox8_Click()
TextBox1.Value = ListBox8.Column(0)
ListBox1.ListIndex = -1
For seç = 0 To 16
    If Sheets("Liste").Cells(ListBox8.ListIndex + 2, seç + 7) = "X" Then
        ListBox1.Selected(seç) = True
    Else
        ListBox1.Selected(seç) = False
    End If
Next
End Sub