rowsource da multiple range kullanmak

[selo1234]

merhabalar,
listbox a rowsource ile çoklu alandan data yüklemek isityorum, ama olmuyor.
aşağıdaki kodları deniyorum.

son = Sheets("SERVICE_CHARGE").Range("A65536").End(xlUp).Row
service.havayolu.RowSource = Sheets("SERVICE_CHARGE").Range("A5:a5", "a8:a" & son)

veya bunu da deniyorum.
Dim r1, r2, myMultipleRange As Range
Set r1 = Sheets("SERVICE_CHARGE").Range("A5:a5")
Set r2 = Sheets("SERVICE_CHARGE").Range("a8:a" & son)
Set myMultipleRange = Union(r1, r2)
service.havayolu.RowSource = Sheets("SERVICE_CHARGE").myMultipleRange

type dismatch mesajı alıyorum.
rowsource bu özelliği desteklemiyor mu acaba veya başka çözümü olanı varmıdır?
desteğinize şimdiden çok teşekkürler.

 

[Levent Menteşoğlu]

Bu şekilde kullanamazsınız. Yapacağınız ilgili verileri başka bir aralığa altalta listeletip sonrasında listboxa almaktır.

 

[selo1234]

teşekkür ederim.
aşağıdaki kod da hata vermiyor ama listbox ı da doldurmuyor.


son = Sheets("SERVICE_CHARGE").Range("A65536").End(xlUp).Row
service.havayolu.RowSource = "SERVICE_CHARGE!a5:a5,a8:a" & son

son çare olarak, önerinizi yapmak kalıyor.
iyi çalışmalar