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