listbox değişken liste

[greatkeops]

Merhabalar,
Listbox la ilgili bir sorum olacaktı:
Listbox1 deki listem a1 hücresindeki değere göre değişmektedir. Şöyle ki:
A1 hücresindeki değer sütun sayısını vermekte, a1 de 5 yazıyorsa 5. sütundaki veriler listboxta görülecek. Yani e sütunu. (e3:e52 arası) a1 de 2 yazıyorsa 2. sütundaki veriler yan, B sütunundaki veriler (b3:b52 arası)
Userform aktif olduğunda bunu nasıl sağlayabilirim. Teşekkürler…

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub UserForm_Initialize()
    ListBox1.RowSource = Cells(2, Range("A1")).Resize(51, 1).Address
End Sub