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()
    ListBox2.Clear
    ListBox2.AddItem ListBox1.Value
    ListBox2.Enabled = True
    ListBox2.Selected(0) = True
End Sub

 

[zfr10]

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

Korhan Bey ellerinize sağlık çok teşekkür ederim. Fakat birşey daha sorsam yanlış olur mu? Listbox ın otomatik güncellenmesi nasıl yapılır? Misal Listbox2 ye veri geldiğinde listbox2 deki kodlar aktif hale gelmesi nasıl olur?

 

[zfr10]

If ListBox1.Selected = True Then
ListBox2.Selected = True

Korhan Bey buna benzer birşey yapmaya çalışıyorum ama bu işten sizin gibi anlamadığım için çözemedim.

 

[Korhan Ayhan]

Tam olarak ne yapmaya çalışıyorsunuz açıklarsanız mantıklı bir cevap verebilirim..

 

[zfr10]

Tam olarak ne yapmaya çalışıyorsunuz açıklarsanız mantıklı bir cevap verebilirim..

Korhan Bey Listbox1 e tıklanılıp veri seçildiğinde listbox2 de de aynı seçim olması gibi. Misal listbox1 seçilince üzerinde mavi bir seçim oluyor ya listbox2 de de aynısının olması gibi.

 

[Korhan Ayhan]

Üstte önerdiğim kodu revize ettim. Son halini deneyiniz.