Bir Listboxta Filtrelenen Verileri Başka Bir Listboxa Atmak

[mervebrlk]

İyi akşamlar. Bir firmada geçmiş yıllarda yapılan siparişleri, ürünler bazında filtreleyen bir kod yazdım. Listboxı kullanarak hangi ürün kimlere yapılmış bunu filtreliyorum. Bu filtrelenmiş verileri de başka bir userformdaki listboxa aktarmak istiyorum. Select komutuyla tek tek aktarabiliyorum ama ben butona tıkladığımda filtrelenen veriler direk gitsin istiyorum.
Özetle listboxtan başka bir listboxa verileri direk aktaracak bir kod gerekiyor. Yardımcı olabilir misiniz?

 

[Orion1]

Ekli dosyayı inceleyiniz.

DOSYAYI İNDİR

Private Sub CommandButton1_Click()
'UserForm2.ListBox1.List = Me.ListBox1.List
UserForm2.ListBox1.RowSource = Me.ListBox1.RowSource
Unload Me
UserForm2.Show
End Sub

 

[mervebrlk]

teşekkür ederim.