Neyse abey ben yatar.Alttaki gibi deneyin birde.Bende alttaki gibide çalıştı.

Sub IlceAktar()

    Dim x As Integer, bul As Range

    Me.ComboBox_Ilce.Clear

    If Me.ComboBox_Sehir = "" Then GoTo son

    With Sheets("TANIMLAR")

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

        If Not bul Is Nothing Then

            Me.ComboBox_Sehir.Value = .Cells(bul.Row, 3).Value

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

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

                         Me.ComboBox_Ilce.AddItem (.Range("D" & x).Value)

            Next

        End If

    End With

son:

    Set bul = Nothing

End Sub