Combobox ile seçilen sayfalardan listboxa veri alma

[NBATMAN]

İyi akşamlar arkadaşlar,

Aşağıdaki kodlar ile userform üzerindeki combobox ile seçilen sayfa gidiliyor. Fakat Seçim sonucu seçilen sayfa için istenilen aralıktaki range("A8:E") veriler listboxa alınamıyor.Bu konuda yardım edebilir misiniz?


Private Sub ComboBox1_Change()
On Error Resume Next
Dim sayfa As Variant
sayfa = ComboBox1.Value
Sheets(sayfa).Select
TextBox1.Text = sayfa
ListBox1.ColumnCount = 5
ListBox1.RowSource = Sheets(" sayfa & !a8:e")
ListBox1.ColumnWidths = "150;30;70;70;60"
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

son = Cells(65536, "a").End(xlUp).Row
ListBox1.RowSource = "a8:e" & son

 

[NBATMAN]

Sayın N.Ziya Hiçdurmaz İlginiz den dolayı teşekkürederim. Kandiliniz mübarek olsun. Allah ne dileğiniz varsa kabul etsin İnşallah. Verdiğiniz kod çözüm oldu,Hayırlı geceler.

 

[N.Ziya Hiçdurmaz]

Rica ederim.Sizinde Kandiliniz mübarek olsun.