Combobox ile seçilen sayfadan veri listeleme

[yilmazweb]

Merhaba.

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

Kodu ile combobox1'e aldığım sayfa isimlerinden, seçtiğim sayfanın A, B ve C sütunlarındaki verileri Listbox1'de listelemek istiyorum.
Teşekkür ederim.

 

[Orion1]

Aşaıdaki kodlarla işiniz olur.

Private Sub ComboBox1_Change()
ListBox1.RowSource = ComboBox1.Value & "!A2:C" & Sheets(ComboBox1.Value).Cells(Rows.Count, "A").End(xlUp).Row

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 3
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub