combobox combobox ilişkisi kodda yardım

[uguristanbul]

degerli arkadaslarım
bir fatuar yazdırma calısması yapmaktayım
ornegin cobobox 1 den bir veri sectigimde diger combolarada veriler otomatik olarak gelmekte sorun ise ornegin ilk bastan 7 veriyi getiriyor ancak daha alttaki verilerde end debug 380 hatası veriyor kodları nasıl degiştirmem gerekli
saygılar sunuyorum

Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
ComboBox3.ListIndex = ComboBox1.ListIndex
ComboBox4.ListIndex = ComboBox1.ListIndex
ComboBox5.ListIndex = ComboBox1.ListIndex
ComboBox6.ListIndex = ComboBox1.ListIndex
End Sub

Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
ComboBox3.ListIndex = ComboBox2.ListIndex
ComboBox4.ListIndex = ComboBox2.ListIndex
ComboBox5.ListIndex = ComboBox2.ListIndex

End Sub

Private Sub ComboBox3_Change()
ComboBox1.ListIndex = ComboBox3.ListIndex
ComboBox2.ListIndex = ComboBox3.ListIndex
ComboBox4.ListIndex = ComboBox3.ListIndex
ComboBox5.ListIndex = ComboBox3.ListIndex
End Sub

Private Sub ComboBox4_Change()
ComboBox1.ListIndex = ComboBox4.ListIndex
ComboBox2.ListIndex = ComboBox4.ListIndex
ComboBox3.ListIndex = ComboBox4.ListIndex
ComboBox5.ListIndex = ComboBox4.ListIndex


End Sub

Private Sub ComboBox5_Change()
ComboBox1.ListIndex = ComboBox5.ListIndex
ComboBox2.ListIndex = ComboBox5.ListIndex
ComboBox3.ListIndex = ComboBox5.ListIndex
ComboBox4.ListIndex = ComboBox5.ListIndex


End Sub

Private Sub ComboBox6_Change()

End Sub

Private Sub UserForm_Activate()
ComboBox1.RowSource = "FİRMALAR!B2:B65536"
ComboBox1.RowSource = "FİRMALAR!B2:B" & [FİRMALAR!C65536].End(3).Row
ComboBox2.RowSource = "FİRMALAR!C2:C65536"
ComboBox2.RowSource = "FİRMALAR!C2:C" & [FİRMALAR!C65536].End(3).Row
ComboBox3.RowSource = "FİRMALAR!D265536"
ComboBox3.RowSource = "FİRMALAR!D2" & [FİRMALAR!D65536].End(3).Row
ComboBox4.RowSource = "FİRMALAR!e2:e65536"
ComboBox4.RowSource = "FİRMALAR!e2:e" & [FİRMALAR!E65536].End(3).Row
ComboBox5.RowSource = "FİRMALAR!f265536"
ComboBox5.RowSource = "FİRMALAR!f2:f" & [KODLAR!B65536].End(3).Row
ComboBox6.RowSource = "KODLAR!B2:B65536"
ComboBox6.RowSource = "KODLAR!B2:B" & [KODLAR!B65536].End(3).Row
End Sub

 

[Ferhat Pazarçevirdi]

Aldığınız mesaj, nesnenin bir özelliğine hatalı bir değer ataması yapmaya çalıştığınızı gösteriyor.

Kodlarınızdan anladığım kadarıyla, -sadece bir tahmin-, userform yüklendiğinde tüm combobox'larda aynı sayıda veri oluşmuyor. Siz Combobox1'de 5 nolu index'e sahip elemanı seçtiğinizde, Change olayıyla birlikte, diğer comboların da 5 nolu index'e sahip elemanları seçilmeye çalışılıyor. Ama herhangi birinde sadece "4" veri varsa (5'ten küçük), Listindex özelliği Invalid oluyor ve hata mesajı üretiyor.

Benim anladığım sorun bu ... Combo listlerini kontrol edin.

 

[uguristanbul]

hocam dosya ektedir

hocam
cvp icin tesekkur ederim
dosyayı ekliyorum eger ilgilenirseniz sevinirim.eger sorun oluyorsa 1 ve 2 nolu combolar haric coboların yerine textboxlarda konulabilir.
simdiden teskuur ederim
saygılarımla