YARDIM EDER MİSİNİZ..?????

[sanal33]

Arkadaşlar comboboxtan seçtiğim sınıf/şube listboxtan listeleniyor.Ama listeden seçtiğim zaman ise hata veriyor.Bu konuda yardım edermisiniz?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0) 'ListBox'a tıkladığımızda değerleri textbox'lara alıyoruz.
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
TextBox5 = ListBox1.List(ListBox1.ListIndex, 4)
TextBox6 = ListBox1.List(ListBox1.ListIndex, 5)
TextBox7 = ListBox1.List(ListBox1.ListIndex, 6)
TextBox8 = ListBox1.List(ListBox1.ListIndex, 7)
TextBox9 = ListBox1.List(ListBox1.ListIndex, 8)
TextBox10 = ListBox1.List(ListBox1.ListIndex, 9)
TextBox11 = ListBox1.List(ListBox1.ListIndex, 10) burada sorun çıkıyor.
TextBox12 = ListBox1.List(ListBox1.ListIndex, 11)
TextBox13 = ListBox1.List(ListBox1.ListIndex, 12)
TextBox14 = ListBox1.List(ListBox1.ListIndex, 13)
TextBox15 = ListBox1.List(ListBox1.ListIndex, 14)
TextBox16 = ListBox1.List(ListBox1.ListIndex, 15)
TextBox17 = ListBox1.List(ListBox1.ListIndex, 16)
TextBox18 = ListBox1.List(ListBox1.ListIndex, 17)
TextBox19 = ListBox1.List(ListBox1.ListIndex, 18)
TextBox20 = ListBox1.List(ListBox1.ListIndex, 19)
TextBox21 = ListBox1.List(ListBox1.ListIndex, 20)
TextBox22 = ListBox1.List(ListBox1.ListIndex, 21)
TextBox23 = ListBox1.List(ListBox1.ListIndex, 22)
TextBox24 = ListBox1.List(ListBox1.ListIndex, 23)
TextBox25 = ListBox1.List(ListBox1.ListIndex, 24)
TextBox26 = ListBox1.List(ListBox1.ListIndex, 25)
TextBox27 = ListBox1.List(ListBox1.ListIndex, 26)
TextBox28 = ListBox1.List(ListBox1.ListIndex, 27)
TextBox29 = ListBox1.List(ListBox1.ListIndex, 28)
TextBox30 = ListBox1.List(ListBox1.ListIndex, 29)
TextBox31 = ListBox1.List(ListBox1.ListIndex, 30)
TextBox32 = ListBox1.List(ListBox1.ListIndex, 31)
TextBox33 = ListBox1.List(ListBox1.ListIndex, 32)
TextBox34 = ListBox1.List(ListBox1.ListIndex, 33)
TextBox35 = ListBox1.List(ListBox1.ListIndex, 34)
End Sub
Private Sub UserForm_Initialize()
With UserForm.ComboBox1
.AddItem "10/G1"
.AddItem "10/G2"
.AddItem "10/G3"
.AddItem "11/G1"
.AddItem "11/G2"
.AddItem "11/G3"
.AddItem "12/G1"
.AddItem "12/G2"
.AddItem "12/G3"
.AddItem "Mezun"
End With
End Sub

 

[ceyhanII]

1. Hangi VB sürümünü kullanıyorsun. VB.net değil sanırım.
2. Daha fazla bilgi gerekli.
3. Gördüğüm kadari ile combobox' nın 10 elemanı var (=Item). Senin sorunun da 11' inci elemanda başlıyor. Yani değerin olmadığı ilk Listbox' ta.
4. Kurmak istediğn yapıyı farlı şekillerde kurmaya çalış.