Excel User Form Invalid Property Array Index Hatası

1 2 3 4 5 6 7
28/02/2021, 22:25

feraz

Abey eklediğiniz dosyada il seçince ilçe comboya rakamlar geliyordu onun yerine isimleri getirtmiştim.
Dosyanın son halini yükleyip neye tıklanınca hata olyor yada sayfaya kaydedincemi hata oluyor onu açıklarmısınız.
28/02/2021, 22:32

feraz

btn_KayitEkle_Click kodundaki ComboBox_Sehir.Value = "" satırının üstüne sayy = 1 ekleyin son yolladığım dosya için.


28/02/2021, 22:47

feraz

Abey eklediğim dosyaya biraz gereksiz kodlar eklemişim ama çalışıyor.
ilk eklediğinz dosyadaki sadece IlceAktar kodunu alttaki gibi değiştirirseniz daha kısa olur.
Benden bu kadar bugünlük.Hayırlı geceler.

Sub IlceAktar()
    Dim x, y As Integer
    With ComboBox_Sehir
        If Not IsNumeric(.Value) Then Exit Sub
        ComboBox_Ilce.Clear
        y = Sheets("TANIMLAR").Range("A1000").End(xlUp).Row
        For x = 2 To y
            If Sheets("TANIMLAR").Range("A" & x).Value = .List(.ListIndex, 0) Then _
            ComboBox_Ilce.AddItem (Sheets("TANIMLAR").Range("D" & x).Value)
        Next
        .Value = .List(.ListIndex, 1)
    End With
End Sub
28/02/2021, 22:57

Oğuz Türkyılmaz

Feraz hocam hata verdi maalesef. İyi Geceler dilerim.




28/02/2021, 23:05

feraz

Abey bilgisayarı kapattığım için deneyemedim.Ben sadece il ve ilçeleri seçip sayfaya aktartmıştım hata vermemişti.
Birde siz böyle deneyin hata verecek mi?
Aslında tanımlamalar sayfasındaki il ve ilçeleri sayılar yerine mesela il yazıp karşısına ilçe yazıp böyle devam etseydini comboların sütun sayısını 2 yapmak zorunda kalmazdınız ve hiç hata olmazdı.

Yani Alttaki gibi A ve B sütunlarına

Adana  Adana ilçe
Adana  Adana ilçe2
Aksaray  Aksaray ilçe
Aksaray  Aksaray ilçe2
28/02/2021, 23:22

feraz

Bence ilk mesajınızdaki hata sebebi şu.
Şehir ve ilçe combolarını doldurup sayfaya aktarınca şehir comboboxunun change kodu içinde olduğu için ve sayfaya aktarma kodundada şehir comboxunu temizlediğiniz için listindex -1 olarak olduğu için hata veriyor.-1 demek seçim yapılmadığı için olur combonun ilkini seçince listindex 0 olur.
Mobilden bu kadar anlatabildim abey.
1 2 3 4 5 6 7