Etkileşimli listbox yapılabilir mi?

[burake]

Bu iki listede öğretmen adları yazılı ve ilk listeden ayırtmanlar, ikincisinden de gözetmenler seçiliyor. İlk listbox'ta seçilen ikincisinde seçilmesin. (bu yüzden de ilkinde seçilenin ikincisinden silinmesini istiyorum) İnşallah anlaşılır olmuştur. Bu arada iki listede yüklenirken aynı kaynağı kullanıyor, yani ikisinde de isimler ve sıralamaları aynı. Sonunda ise gönder butonuna bastığımda liste sıfırlanacak, yani bütün isimler tekrar gelecek. İnşallah imkansızı istemiyorumdur. Şimdiden teşekkürler

[/URL][/IMG]

 

[Orion1]

Listbox1'in double_click olayına aşağıdaki kodları yazınız.
Çift tıklama ile listbox2deki karşılığını siler.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long
If ListBox1.ListCount = 0 Then Exit Sub
    For i = ListBox2.ListCount - 1 To 0 Step -1
        If ListBox2.List(i, 0) = ListBox1.Column(0) Then
            ListBox2.RemoveItem (i)
        End If
    Next i
End Sub

-------------------------------------------------------
Aşağıdaki kodları ise listboxlara verileri almak için kullanınız.
A sütunundan alıyor.

Dim i As Long
ListBox1.Clear: ListBox2.Clear
For i = 1 To Cells(65536, "A").End(xlUp).Row
    ListBox1.AddItem Cells(i, "A").Value
    ListBox2.AddItem Cells(i, "A").Value
Next i

 

[burake]

teşekkür ederim hemen deniyorum

 

[burake]

hocam 1. penceredeki If ListBox2.List(i, 0) = ListBox1.Column(0) Then
ifadesinde hata verdi

 

[Orion1]

hocam 1. penceredeki If ListBox2.List(i, 0) = ListBox1.Column(0) Then
ifadesinde hata verdi

Allah,Allah,nedense bu kodlar hep sizde hata yapıyorda bizde hiç yapmıyor.
Ekli dosyaya bakın.

 

[Mx@Raid]

Sn. Evren hocam bazan olabiliyor. Cuma günü çalışma formumu sorunsuz çalıştırdı. Bugün sabah değişiklikler yapmak için açtığımda ilk başta değer üzerinden hata verdi, arkasından dll dosyası hatası verdi ofisi yeniden güncellediğimde sorun gitti.

 

[burake]

evet hocam şimdi çalıştı eline klavyene sağlık. çok teşekkür ederim. Ama bir sorum daha olacak, listbox1 ve listbox2 multiselect yani çoklu seçim olarak ayarlanmış. listbox1 de seçilenler listbox2 de siliniyor buraya kadar tamam. listbox1 de seçimi kaldırılmış olanlar tekrar listbox2'ye nasıl getirilir.

 

[Mx@Raid]

Sn. burake Verial butonuna tıklarsanız liste yenileniyor.