Comboboxda yazan sayfaya gitmesi ve o sayfada a5 den k ya kadar olan verileri listbox1 de göstermek

[udentr2002]

Merhaba;
Aslında neden sürekli hata aldım anlamıyorum bir çok örneği denedim kendimde yazdım ama nerde hata veriyor çözemedim.
Kodlar aşağıdaki gibi. Yani combobox 1 e sayfa adları yükleniyor.
Combobox1 change özelliğinede combobox1 de yazan sayfayı a5 den K ya kadar olan aralığı listbox1 de görünmesini istiyorum ama yapamadım

Private Sub ComboBox1_Change()
Worksheets(ComboBox1.Text).Select
TextBox1 = Worksheets(ComboBox1.Text).Range("b2")

ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 7
ListBox1.RowSource = Worksheets(ComboBox1.Text).Range("b3:x") & Sheets(ComboBox1.Text).Range("b65536").End(3).Row
ListBox1.ColumnWidths = "50;220;50;60;50;50;50"

End Sub



Private Sub UserForm_Initialize()
Dim Sayfa As Worksheet

For Each Sayfa In Worksheets
ComboBox1.AddItem Sayfa.Name
Next
End Sub

 

[veyselemre]

b:x arasında 23 sutun var. Sutun sayısı olarak 7 yazmışsınız kodlarda.

Private Sub UserForm_Initialize()
    Dim Sayfa As Worksheet
    For Each Sayfa In Worksheets
        ComboBox1.AddItem Sayfa.Name
    Next
End Sub

Private Sub ComboBox1_Change()
    Worksheets(ComboBox1.Text).Select
    TextBox1.Text = Worksheets(ComboBox1.Text).Range("b2")

    ListBox1.ColumnHeads = True
    ListBox1.ColumnCount = 7
    ListBox1.RowSource = Range("b3:x" & Range("b65536").End(3).Row).Address
    ListBox1.ColumnWidths = "50;220;50;60;50;50;50"
End Sub

 

[udentr2002]

Hocam teşekkür ederim.