listbox'ta rowsource ayarlama sorunu

[siyahyedili]

Herkese selamlar,

Userformum üzerindeki bir listboxta rowsource ayarlamak istiyorum. Userformun her başlangıçta excel sayfasındaki belli bir aralığı rowsource olarak almasını istiyorum.
kodu aşağıdaki gibi ayarladım fakat hata veriyor.Acaba bi mantık hatası mı yapıyorum..
Ya da başka bir çözümü var mıdır bu durumun?

yardımlarınız için şimdiden teşekkürler..

Private Sub UserForm_Initialize()

Dim cl As Range

son_sat = Sheets("veri").Range("a1000").End(xlUp).Row

cl = "a" & son_sat

UserForm1.ListBox1.RowSource = ("sayfa1!a1:cl")

End Sub

 

[halit3]

Böyle denermisiniz.

UserForm1.ListBox1.RowSource = ("sayfa1!a1:" & cl)

 

[siyahyedili]

sayın halit3

dediğiniz gibi yaptım..sorun çözüldü.

çok teşekkür ederim..

 

[halit3]

sayın halit3

dediğiniz gibi yaptım..sorun çözüldü.

çok teşekkür ederim..

iyi çalışmalar