Listbox un tamamını başka bir listbox a aktarma

[beza]

Merhaba,
Listbox3 içerisinde toplanan verilerin tamamını listbox5 içerisine aktarmak istiyorum.
Bu kodları yazamadım. Mümkün müdür?

 

[ÖmerFaruk]

Private Sub CommandButton1_Click()
    If Me.ListBox3.ListCount > 0 Then
        Me.ListBox5.Clear
        Me.ListBox5.List = Me.ListBox3.List
    End If
End Sub

 

[beza]

Ömer Faruk Bey Merhaba,
Verdiğiniz kod aynı userform üzerindeki iki listbox ta çalışıyor. Teşekkür ederim.
Birde farkli bir userform daki listbox a aktarmam gereken yer var.
Kodu aşağıdaki şekile getirdim ama hata veriyor?

If Me.ListBox1.ListCount > 0 Then
Me.SiparisMenu.ListBox2.Clear
Me.SiparisMenu.ListBox2.List = Me.ListBox1.List
End If

Ayırdığınız zaman ve emek için teşekkür ederim.

 

[ÖmerFaruk]

Birinci Listbox Userform1 üzerindeki Listbox1
İkinci Listbox Userform 2 üzerindeki Listbox1 olmak üzere

Userform1 içindeki Butona aşağıdaki kodu ekledim. (Siz farklı şekilde de Userform2 yi aktif edebilrisiniz)

Private Sub CommandButton1_Click()
    UserForm2.Show
End Sub

Userform2 initialize oalyına aşağıdaki kodu ekledim

Private Sub UserForm_Initialize()
    Me.ListBox1.List = UserForm1.ListBox1.List
End Sub

Not: Listboxların Kolon Sayısını aynı tutmalısınız.

 

[beza]

Tamamdır. Bu şekilde sorunsuz çalıştı. Çok teşekkür ederim.