Listindex olayına gerek kalmadan alttaki kodlar iş görür.

Sub IlceAktar()

    Dim x As Integer, bul As Range

    ComboBox_Ilce.Clear

    If ComboBox_Sehir = "" Then GoTo son

    Set bul = Sheets("TANIMLAR").Range("B:B").Find(ComboBox_Sehir.Value, , , 1)

    If Not bul Is Nothing Then

        ComboBox_Sehir.Value = bul.Offset(0, 1).Value

        For x = 2 To Sheets("TANIMLAR").Range("A1000").End(xlUp).Row

            If Sheets("TANIMLAR").Range("A" & x).Value = bul.Value Then _

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

        Next

    End If

son:

    Set bul = Nothing

End Sub