Listbox.Rowsource olayına cells tanıtmak

[exam77]

Mrb. Arkadaşlar,

Listbox.Rowsource olayına sütun aralığını cells olarak tanıtma yolu varmıdır acaba?

Açıklamak gerekirse;

Listbox1.Rowsource="A5:A25"

yerine,

Listbox1.Rowsource=Cells(5,1&":"&25,1) gibi....

 

[Orion1]

....

ListBox1.RowSource = Range("A5:A25").Address

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki gibide kullanabilirsiniz.

Listbox1.Rowsource = Cells(5, 1).Address & ":" & Cells(25, 1).Address

 

[Orion1]

alternatif;

ListBox1.RowSource = Range(Cells(5, 1), Cells(25, 1)).Address

 

[exam77]

Listbox.Rowsource Olayı

Çok teşekkür ederim arkadaşlar.
Gerçekten işimi çok rahatlatan bir kod oldu.

Ne amaçla istediğimi gösteren küçük bir çalışma hazırladım. Örnek olur ümidiyle ekliyorum.

Hazır yeri gelmişken bir soru daha yönelteyim.
Şu Listbox'lardaki scrollbarların kaybolmasını nasıl sağlayabiliriz acaba?