AccessTr.neT

28/02/2021, 22:25 · 28/02/2021, 22:25

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 · 28/02/2021, 22:32

btn_KayitEkle_Click kodundaki ComboBox_Sehir.Value = "" satırının üstüne sayy = 1 ekleyin son yolladığım dosya için.
[Resim: do.php?img=10744]

28/02/2021, 22:47 · 28/02/2021, 22:47

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 · 28/02/2021, 22:57

Feraz hocam hata verdi maalesef. İyi Geceler dilerim.

[Resim: do.php?img=10745]

28/02/2021, 23:05 · 28/02/2021, 23:05

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 · 28/02/2021, 23:22

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.

AccessTr.neT

Excel User Form Invalid Property Array Index Hatası

Excel User Form Invalid Property Array Index Hatası

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri