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