Listbox1 den listbox2 ye aktarma

[zfr10]

Hayırlı günler değerli arkadaşlar. Listbox1 deki verilerden birine tıklandığında listbox2 ye o verinin aktarılması konusunda yardımcı olabilir misiniz?

Örneğin;

Listbox1 de
AAA
BBB
CCC
DDD
EEE
FFF

Verilerinden misal olarak CCC ye tıkladığımda listbox2 ye sadece onun aktarılası gibi...

 

[Korhan Ayhan]

Merhaba,

Linkteki konular faydalı olabilir..

Arama Sonuçları

 

[zfr10]

Merhaba,

Linkteki konular faydalı olabilir..

Arama Sonuçları

Korhan Bey daha önce bu linkteki konulara baktım ama sonuç alamadım.

 

[Korhan Ayhan]

Örnek dosyanızı paylaşın ona göre uygun kod önerilir.

 

[zfr10]

Korhan Bey örnek dosyada listbox1 deki yıllardan birine tıklayınca o yıl listbox2 ye çıkmasını istiyorum.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ListBox1_Click()
    Dim X As Long
    On Error Resume Next
    For X = 0 To ListBox2.ListCount - 1
        ListBox2.RemoveItem X
    Next
    On Error GoTo 0
    ListBox2.AddItem ListBox1.Value
End Sub