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.
btn_KayitEkle_Click kodundaki ComboBox_Sehir.Value = "" satırının üstüne sayy = 1 ekleyin son yolladığım dosya için.
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
Feraz hocam hata verdi maalesef. İyi Geceler dilerim.
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
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.