çoklu seçim liste kutusuna kod ataması yapamadım.

[ilhaan]

Sayın arkadaşlar örnek dosyada listbox tan seçim yaptığımızda doğru yapılmadığında ise yanlış uyarısı verilmesi gerekiyor. Bunun kodu nasıl olmalı? Şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmına aşağıdaki kodu kopyalayın.

Private Sub ListBox1_Change()
    Dim Bak As Long
    For Bak = 0 To ListBox1.ListCount - 1
        Cells(Bak + 3, "B") = ListBox1.Selected(Bak) 
    Next
End Sub

 

[hamitcan]

Böyle dener misiniz ?

Private Sub ListBox1_Change()
    x = Sayfa1.ListBox1.ListIndex + 3
    Sayfa1.Cells(x, 4) = Sayfa1.ListBox1.Selected(Sayfa1.ListBox1.ListIndex)
End Sub

 

[ilhaan]

Çok teşekkür ederim.