Combobox ile satırdan seçilen veri dikey sıralansın

[xagox]

Merhabalar
Değerli forum Üyeleri..

Forumda bulduğum kodlarla Ek'li dosya üzerinde bir şeyler denedim. Ancak yapmak istediğimin tam tersi oldu.
Ben combobox ile seçtiğim veri satırının içindeki B, C ,D sütünlarındaki verilerin
listbox ta sıralanmasını yapmaya çalışıyorum dosya içinde de açıklama yapmaya çalıştım..

Yardım edenlere şimdiden çok teşekkürler...

 

[Orion1]

Dosyanız ektedir.:cool.

Private Sub ComboBox1_Change()
Label1 = ComboBox1.Value
Set s1 = Sheets("sayfa1")
ListBox1.Clear
sat = ComboBox1.ListIndex + 2
For i = 3 To 6
    If s1.Cells(sat, i) <> "" Then ListBox1.AddItem s1.Cells(sat, i)
Next
End Sub
Private Sub UserForm_Initialize()
Set s1 = Sheets("sayfa1")
For a = 2 To s1.Cells(Rows.Count, "B").End(xlUp).Row
ComboBox1.AddItem s1.Cells(a, "B")
Next
End Sub

 

[xagox]

Sayın Orion1
Çok teşekkür ederim ellerinize sağlık emeğinize sağlık..

 

[Orion1]

Sayın Orion1
Çok teşekkür ederim ellerinize sağlık emeğinize sağlık..

Rica ederim.
İyi çalışmalar.