AccessTr.neT

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

Feraz Hocam kafayı sıyırttıracak bu hata. Siz gifte göstermişsiniz doğru çalışıyor ama ben dosyayı indirdim bende hata veriyor. Acaba yanlış dosya mı yüklendi.

Hatadaki .value kısmını silin bir.
Çok garip durum bende sorunsuz çalışıyor.

Olmadı maalesef Feraz hocam. Excel bizi sınıyor.

Üç varyasyonu da value , text, ve Sheets("TANIMLAR") olarak değiştirip denedim aynı hatayı vermeye devam ediyor.

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