Excel User Form Invalid Property Array Index Hatası

1 2 3 4 5 6 7
02/03/2021, 21:30

feraz

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
02/03/2021, 21:31

Oğuz Türkyılmaz

İşyerinden bir bilgisayar getirdim şimdi onda denedim Excel2013 de maalesef onda da hata veriyor.
02/03/2021, 21:34

feraz

Abey 31.mesajdakini deneyin olmazsa yapabileceğim bişey yok çünkü bende hertürlü çalışıyor kodlar.
02/03/2021, 21:57

Oğuz Türkyılmaz

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.
02/03/2021, 22:02

feraz

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


02/03/2021, 22:30

Oğuz Türkyılmaz

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.
1 2 3 4 5 6 7