Combobox'a benzersiz veri alma

[seddur]

Merhabalar.Userform'daki Combobox1'e "Kayıt" sayfası "A" sutununda bulunan benzersiz verileri alfabetik olarak sıralamak istiyorum.Aşağıdaki kodu buldum ama hem hata verdi hemde çalıştıramadım.Yardımlarınızı bekliyorum.
Private Sub UserForm_Activate()
Set s = Sheets("Kayıt")
ComboBox1.Clear' Hata veriyor
For x = 2 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("a2:a" & x), Cells(x, 1)) = 1 Then
ComboBox1.AddItem Cells(x, 1).Value
End If
Next

 

[Mdemir63]

Selamlar
Aşağıdaki gibi deneyiniz.

Private Sub UserForm_Initialize()
Set s = Sheets("Kayıt")
Me.ComboBox1.Clear ' Hata veriyor
For x = 2 To Sheets("Kayıt").Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("a2:a" & x), Cells(x, 1)) = 1 Then
ComboBox1.AddItem Cells(x, 1).Value
End If
Next
End Sub

 

[Korhan Ayhan]

Bu kod eğer ilgili sayfada veriler alfabetik sıralı degilse istediğiniz sonucu vermez.

Hata veren kısımda eğer nesneye RowSource metodu ile veri yüklemişseniz oluşabilir.

Linki inceleyiniz.

https://www.excel.web.tr/threads/userform-combobox-uezerinde-arama-teknikleri.194748/