AccessTr.neT

Birde böyle deneyin. sehirAd As String, cboSehir As MSForms.ComboBox bunları ekledim ve uyarladım abey.

Sub IlceAktar()

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

    Set cboSehir = Me.ComboBox_Sehir

    Me.ComboBox_Ilce.Clear

    If cboSehir = "" Then GoTo son

    With Sheets("TANIMLAR")

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

        If Not bul Is Nothing Then

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

            cboSehir.Value = sehirAd

            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: Set cboSehir = Nothing

End Sub

İşyerinden bir bilgisayar getirdim şimdi onda denedim Excel2013 de maalesef onda da hata veriyor.

Abey 31.mesajdakini deneyin olmazsa yapabileceğim bişey yok çünkü bende hertürlü çalışıyor kodlar.

Feraz Bey sizdeki dosyayı buraya yüklermisiniz onu indirip tekrardan deneyeceğim. Bendeki dosyaların hepsini sildim. Bakalım ne yapacak. Yine olmazsa herşeyi baştan 2013 excelde yazacağım bakalım ozaman ne olacak.

Tamam abey son eklediğim kod olanı yüklüyorum diğerleri zaten forumda var Gif te ekledim çalıştığına dair.

bendeki 2013 ve 2019 da ayrı ayrı sizden gelen dosyayı bendeki tüm dosyaları silip 2 bilgisayarda da denedim ama çalışmıyor.2 bilgisayarda yüklü 2 ayrı office sürümünde Excel in bozuk olma olasılığı nedir çok merak ediyorum.