udentr2002
Altın Üye
- Katılım
- 5 Kasım 2006
- Mesajlar
- 1,478
- Excel Vers. ve Dili
-
iş yerinde Office 365
evde Office 365
- Altın Üyelik Bitiş Tarihi
- 07-11-2024
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
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