Listboxtan Listboxa veri aktarma hatası

[beza]

Merhaba,
Useform üzerinde bulunan Listbox1 de sipariş ürünler listeleniyor. (Listbox1 de 4 adet sütun var. Sipariş numarası 4. sütunda)
Örneğin, sipariş 1121 e ait listbox1 içerisinde 3 adet satır var. (Satır sayısı siparişe göre değişiyor) Bu satırlardan herhangi birini seçtiğimde sadece 1121 nolu siparişe
ait satırlar listbox2 ye aktarılsın.
Sürekli hata alıyorum. Ben yazamadım. Bu işlem mümkün müdür?

 

[Korhan Ayhan]

Merhaba,

Sorularınızı örnek dosya ile desteklerseniz daha hızlı yanıt alabilirsiniz.

 

[beza]

Merhaba,

Private Sub UserForm_Initialize()
Dim Bekle As Variant
ListBox1.Clear
Bekle = WorksheetFunction.CountA(Worksheets("SipY").Range("A:A"))
For i = 2 To Bekle
ListBox1.AddItem Worksheets("SipY").Range("A" & i)
ListBox1.List(ListBox1.ListCount - 1, 1) = Worksheets("SipY").Range("B" & i)
ListBox1.List(ListBox1.ListCount - 1, 2) = Worksheets("SipY").Range("D" & i)
ListBox1.List(ListBox1.ListCount - 1, 3) = Worksheets("SipY").Range("F" & i)
Next i
ListBox1.ListIndex = 0
End Sub

Bu satırlar ile listbox1 içerisinde siparişler listeleniyor.
buradan sadece seçilen sipariş numarasına ait satırları listbox2 de listeleyemedim.
Sürekli hata veriyor. Doğru yazamadım.

 

[beza]

Bu işlem halledildi. Teşekkür ederim.