Listeden Çoklu seçip kayıt etmek

[appiahluci]

Kolay gelsin herkese öncelikle,

Bir program yaptım siteden öğrendiğim kadarıyla ama tek bir şey kaldı, listboxlarda çoklu seçim olabileceği için kayıt yaptığımda kayıtta seçtiğim parametrelerin gözükmesini istiyorum bunu nasıl yapabilirim.

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

 

[appiahluci]

nasıl olacak

 

[Taruz]

nasıl olacak

Merhaba..

Hangi listeden çoklu seçim yapılacak ve hücreye nasıl kaydedilecek?.. Aralarında virgülle mi?

Detaylarla ilgili bilgi verirseniz sorunuzla ilgilenen illaki olacaktır..

 

[appiahluci]

Analiz parametreleri, geliş şekli ve uygulanan işlemlerde çoklu seçim yapılıp hücreye virgülle kaydedilecek.

 

[Taruz]

Listelerin özellikler pencerisinden MultiSelect özelliğini 1 olarak değiştiriniz ve sonrasında düğmenizdeki prosedüre (hücreye veri atadığınız tanımlamaların hemen altına) bunları yapıştırınız..:

Dim i   As Long
With ListBox2
    For i = 0 To .ListCount - 1
        If .Selected(i) = -1 Then
            trz = trz & "," & .List(i)
            .Selected(i) = 0
        End If
    Next
End With
Cells(Satır, "J") = Mid(trz, 2)
trz = ""
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) = -1 Then
            trz = trz & "," & .List(i)
            .Selected(i) = 0
        End If
    Next
End With
Cells(Satır, "H") = Mid(trz, 2)
trz = ""
With ListBox3
    For i = 0 To .ListCount - 1
        If .Selected(i) = -1 Then
            trz = trz & "," & .List(i)
            .Selected(i) = 0
        End If
    Next
End With
Cells(Satır, "K") = Mid(trz, 2)

 

[appiahluci]

süpersin hocam tek numarayla teşekkür ederim