Üç sütunlu Listbox

[senol1979]

Öncelikle herkeze selamlar. Forum içerisinde araştırıp örneklerini bulmama rağmen bir türlü kendi çalışmama uygulayamadım. Amacım Listbox 3 ve Listbox 4 e aldığım bilgileri listbox1 de sütunlar oluşturup buraya gelmesini sağlamak.
Mevcut kodlarım şu şekilde:

Private Sub ComboBox2_Change()
If ComboBox2.Value = "" Then Exit Sub
ListBox1.Clear
ListBox3.Clear
ListBox4.Clear
Application.ScreenUpdating = False
Sheets("Siparis_Liste").Visible = True
Sheets("Siparis_Liste").Select
Range("E1").Select
Dim sayi As Integer
Dim hucre As Range
sayi = Application.WorksheetFunction.CountA(Worksheets("Siparis_Liste").Range("A1:A65000"))
For Each hucre In Range("E1:E" & sayi)
If ComboBox2.Value = hucre.Value Then
ListBox1.AddItem (hucre.Offset(0, -4).Value)
ListBox3.AddItem (hucre.Offset(0, 5).Value)
ListBox4.AddItem (hucre.Offset(0, 10).Value)
End If
Next
Worksheets("Siparis_Liste").Visible = False
Worksheets("Siparis_Formu").Select
End Sub

Yardımlarınız için şimdiden teşekkürler.

 

[senol1979]

Herhalde sizlerde bulamadınız. Ben halen bir çözüm bulabilmiş değilim. :-(