listbox' un içerdiği alanı seçime bağlamak istiyorum.

[son üye]

Listbox ta gözüken alanı ayarlamak için, soldaki menüden rowsource kısmına

sayfa1!a1:d5

yazıyorum. Belirtiğim alan listbox ta gözüküyor. Ama bazen a1:d5 aralığını değiştirmek istiyorum kod sayfasında yapabilir miyim?

Yani, ben textbox1 e A2; textbox2'ye de D6 yazayım. Listbox'a bu aralık, yani sayfa1!A2 : D6 aralığı, gelsin. Olursa tabi. nasıl bir kod gerekir acaba. şimdiden teşekkürler..

 

[alpi]

Şu şekilde yapabilirsiniz

"sayfa1!" & textbox1.text & ":" & textbox2.text

 

[son üye]

Bu oldu, ama peki, cells(1,1) mantığıyla halledebilir miyim?

mesela A1 : D5 aralığını
range (cells(1,1),cells(5,4)) şeklinde göstermek mümkün müdür acaba? Çünkü bana asıl lazım olan şey bu. Ben denedim, pek beceremedim.

tekrar teşekkürler..

 

[alpi]

rowsource nin alabileceği değer metindir. Bu yüzden hücre adresi yazamazsınız.

Ancak şu şekildede yapabilirsiniz

dim başsatır as long
dim bitsatır as long
başsatır=2 
bitsatır =10
ListBox1.RowSource = "sayfa1!a" & başsatır & ":d" & bitsatır

Yada

 ListBox1.RowSource = "sayfa1!" & Range(Cells(1, 1), Cells(1, 4)).Address

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

"sayfa1!" & range(cells(1,1),cells(5,4)).address(false,false)