2 Listboxtaki verileri birleştirip tek Listboxa atmak

[edward norton]

Merhaba Arkadaşlar
Userformda 3 listboxım var.2 tane listbox taki verileri birleştirilmiş halde tek listboxa nasıl aldırabilirim.

Teşekkürler...
İyi Günler...

 

[veyselemre]

Private Sub CommandButton1_Click()
Dim a()
    ListBox5.Clear
    a = WorksheetFunction.Transpose(ListBox3.List)
    b = WorksheetFunction.Transpose(ListBox4.List)

    say = UBound(a)
    sayb = UBound(b)
    ReDim Preserve a(1 To say + sayb )

    For Each c In b
        say = say + 1
        a(say) = c
    Next c

    ListBox5.List = WorksheetFunction.Transpose(a)
    Erase a
    Erase b
End Sub

 

[veyselemre]

Kolay yöntemi atlamışım,

Private Sub CommandButton1_Click()
    ListBox5.Clear
    ListBox5.List = ListBox3.List
    For Each c In ListBox4.List
        ListBox5.AddItem c
    Next c
End Sub

 

[edward norton]

sn.veyselemre
çok tşk ederim..

Aynı konu ile alakalı bi sorum daha vardı listbox da seçili olan ismi nasıl kaldırabilirim.
Dosyayı ekledim açıklamaları yaptım yardımcı olursanız sevinirim.

İyi günler...

 

[asterix1234]

Kolay yöntemi atlamışım,

Private Sub CommandButton1_Click()
    ListBox5.Clear
    ListBox5.List = ListBox3.List
    For Each c In ListBox4.List
        ListBox5.AddItem c
    Next c
End Sub

Merhaba, aynı verileri ve sütunları içeren, listbox01 den başlayıp listbox026 kadar giden listboxları Tek bir listboxa toplayıp dolu satır sayısını label 12' ye nasıl bir buton yardımı ile aktarırız.

Ben for x = 01 to 026 gibi bir mantık düşündüm ama olmadı

 

[veyselemre]

Merhaba, aynı verileri ve sütunları içeren, listbox01 den başlayıp listbox026 kadar giden listboxları Tek bir listboxa toplayıp dolu satır sayısını label 12' ye nasıl bir buton yardımı ile aktarırız.

Ben for x = 01 to 026 gibi bir mantık düşündüm ama olmadı

Ekteki örneği inceleyin, tek sütunlu listboxları birleştiriyor.