Hocam resmi ekledim.
Userform_ınitialize Sorunu
Dahada yapamazsanız
Bu kodu ekleyin userform1e.Attaki gibide değiştirin initializeyi.
Alttaki yeri yaptım sadece initalizede.
Bu kodu ekleyin userform1e.Attaki gibide değiştirin initializeyi.
Alttaki yeri yaptım sadece initalizede.
Kod:
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
For i = 7 To [d65536].End(3).Row
dic(CStr(Cells(i, 4))) = dic(CStr(Cells(i, 4)))
Next
ComboBox3.Clear
If dic.Count > 0 Then
For Each Key In dic.keys
ComboBox3.AddItem Key
Next
Call bubble_sort(Me.ComboBox3)
End If
Set dic = Nothing
Hocam resimdeki kod satırı hata veriyor.
Eklememişsiniz önceden dediğimi resime bakın abey.
Haklısınız Hocam ilk kodu ekleyince sorun çözüldü.
Bu yönetemi her yerde kullanabilirsiniz.
Normalde arraylist olanda hata vermiyor lakin sizde nasıl oldu hayret.
Normalde arraylist olanda hata vermiyor lakin sizde nasıl oldu hayret.
Konuyu Okuyanlar: 1 Ziyaretçi