Excel User Form Invalid Property Array Index Hatası

Excel User Form Invalid Property Array Index Hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel User Form Invalid Property Array Index Hatası (/konu-excel-user-form-invalid-property-array-index-hatasi.html)

Sayfalar: 1 2 3 4 5 6 7

Re: Excel User Form Invalid Property Array Index Hatası - feraz - 01/03/2021

Listindex olayına gerek kalmadan alttaki kodlar iş görür.

[Resim: do.php?img=10750]

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

Re: Excel User Form Invalid Property Array Index Hatası - Oğuz Türkyılmaz - 01/03/2021

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.

[Resim: do.php?img=10757]

RE: Excel User Form Invalid Property Array Index Hatası - feraz - 01/03/2021

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

RE: Excel User Form Invalid Property Array Index Hatası - Oğuz Türkyılmaz - 01/03/2021

Olmadı maalesef Feraz hocam. Excel bizi sınıyor. Img-cray

RE: Excel User Form Invalid Property Array Index Hatası - Oğuz Türkyılmaz - 01/03/2021

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

[Resim: do.php?img=10760]

RE: Excel User Form Invalid Property Array Index Hatası - feraz - 01/03/2021

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