Nette izlediğim videolarda buna benzer fakat ayrı ayrı sayfalarda yapılıyordu ben tek sayfada yaptım. Son gönderdiğim dosyadan da anlayabileceğiniz gibi maalesef hata veriyor.

5.mesajdaki dosyaya 8.mesajdaki boyalı yeri wkleyip denedinizmi pekii.
Bende neden her ikiside hata vermedi.

---

(28/02/2021, 22:57)Oğuz Türkyılmaz yazdı: Feraz hocam hata verdi maalesef. İyi Geceler dilerim.

Birde hatalı satırın üstüne on error resume next ekleyin ne olacak.

Feraz hocam 8.mesajınızda yazdığınız kodu anlamadığım ve sizde bu daha kısa kod bunu deneyin dediğiniz için onu denemedim bu son yapmamı söylediğiniz eklemeyi de yaptım ama aynı hatayı veriyor. Bir şey değişmedi. Konuyu açtığım da gönderdiğim dosyada userformda il seçip o ile ait ilçeleri combobox a alabiliyordum burda hata vermiyordu. Kaydet dediğimde resimdeki hatayı veriyor fakat kaydı gerçekleştiriyordu sadece şehrin plaka kodunu alana yazıyordu ismini değil. Ben ismini yazdırmayı becerememiştim. Userformda alanlarda il ve ilçe seçerken hata almıyordum. Son attığım dosyada yorum şekline aldığım kodlarda bu dosyadaki haliydi zaten altına sadece sizin kodlarınızı ekledim fakat bu seferde userformda ilçe seçerken hata veriyor.

(01/03/2021, 00:43)Oğuz Türkyılmaz yazdı: sadece şehrin plaka kodunu alana yazıyordu ismini değil

Abey dediğim gibi bende hata vermedi eklediğim dosyalar.Plaka kodu yazıyorsa comboboxun list kodundaki 0 yerine 1 ile değiştirip kaydettirin.Yada mesela il seçince adana için 2 çıkıyor şehircomboda.2 yi find koduyla aratın hangi sütunda ise şehir karşılığı o şehir ismini kaydettirin.Daha öncede dediğim gibi hata sebebi comboboxun change koduna yazıldığı için sayfaya kaydedince şehir combobox temizleniyor ve change kodu yine çalışıyor tabii şehircomboboxu clear oluyor ve listindex hata veriyor.

Abey açtım pc yi ve dosyayı hazırladım.Resimdeki gibi bul kodunu ekledim diğerinin yerine
Şehir seçince rakam çıkıyor heralde sorun olmuyor demiştiniz galiba.

Sub IlceAktar()



ComboBox_Ilce.Clear



Dim x, y As Integer



y = Sheets("TANIMLAR").Range("A1000").End(xlUp).Row

On Error GoTo son

For x = 2 To y



    If Sheets("TANIMLAR").Range("A" & x).Value = ComboBox_Sehir.List(ComboBox_Sehir.ListIndex, 0) Then

    ComboBox_Ilce.AddItem (Sheets("TANIMLAR").Range("D" & x).Value)

    End If



    Next

son:

End Sub

(01/03/2021, 01:29)feraz yazdı: On Error GoTo son

Don eklediğim dosyadaki yukardaki kodu silip alttaki gibi yapın daha iyi olur.Tabii deneyemedim aklıma geldi mobilden yazdım.Birde en sondaki son:  yeride silin abey.Kaç kere mesajda boşsa hata veriyor yazdım ama aklıma gelmedi alttaki gibi
Bugün şehir için plaka yerine normal göstermeyide halledrim akşam nasipse.

if ComboBox_Sehir.value = "" then exit sub