Alttaki gibi kod değiştirildi.ve IlceAktar 3 '3 sebebi C sütununda aramak icin olarak değiştirildi IlceAktar yerine arama kodunda.

Bu sayede arama yapıncada il secince ilçeler gelir.

Private Sub ComboBox_Sehir_Change()



IlceAktar 2 '2 sebebi B sütununda aramak icin



End Sub

Sub IlceAktar(kacinci As Byte)



    Dim x As Integer, bul As Range, cboSehir As MSForms.ComboBox, sehirAd As String, alan As String



    If kacinci = 2 Then alan = "B:B"

    If kacinci = 3 Then alan = "C:C"



    Set cboSehir = Me.ComboBox_Sehir

    Me.ComboBox_Ilce.Clear

    If cboSehir.Text = "" Then GoTo son

    With Sheets("TANIMLAR")

        Set bul = .Range(alan).Find(cboSehir.Text, , , 1)

        If Not bul Is Nothing Then

            sehirAd = .Cells(bul.Row, 3).Value

            cboSehir.Text = sehirAd

            

            

            If kacinci = 2 Then 'B sütunda aramal icin

                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

            

            If kacinci = 3 Then 'C sütunda aramal icin

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

                    If .Range("A" & x).Value = bul.Offset(0, -1).Value Then _

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

                Next

            End If

            

        End If

    End With

son:

    Set bul = Nothing: Set cboSehir = Nothing

    

End Sub