Listbox Kullanımı

[mrwarrior]

Private Sub UserForm_Initialize()
    sat = Sheets("Arşiv Sınav Listesi").Range("D5000").End(xlUp).Row
    ListBox1.RowSource = Sheets("Arşiv Sınav Listesi").Range(Cells(sat + 1, 4), Cells(sat + 50, 4))
End Sub

Bu kodda hata var mı? Ne yaptımsa listbox1 e Rowsource tanımlayamadım.

Bir de
Kapalı bir dosyadaki sekme isimlerini kendi listbox'umda gösterebilir miyim? Yani Userform açılacak. Bir düğme ve Listbox olan. Bu düğmeye bastığımda adresi belli bir dosyadaki tüm sekmelerin isimlerini bana listbox a getirecek.
İlginiz için şimdiden teşekkürler.

 

[mrwarrior]

With ListBox1
For ekle = 4 To 9
.AddItem Sheets("Sınavlar").Cells(ekle, 4)
Next
End With

komutu ile 6 veri ekliyorum ancak benim istediğim listbox1 in 2 sütun olup 1. veri 1. sütuna 2. veri 2. sütuna eklensin. Bu şekilde yapmam mümkün mü?

 

[mrwarrior]

ListBox1.AddItem "foo" '1. Sütuna veri ekliyor.
ListBox1.List(ListBox1.ListCount - 1, 1) = "bar" '2. Sütuna veri ekliyor. Koyu ile yazılan sanırım sütun değişkeni.


sonunda 2. sütuna eklemeyi buldum

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    With ListBox1
        .ColumnCount = 2
        For sat = 2 To 5
            .AddItem
            .List(.ListCount - 1, 0) = Sheets("Sayfa1").Cells(sat, 1)
            .List(.ListCount - 1, 1) = Sheets("Sayfa1").Cells(sat, 2)
        Next
    End With
End Sub