Comboboxa sınıf isimlerini tekrarsız yüklemek için userforma aşağıdaki kodu yazın.
[vb:1:86bb8c322a]Private Sub UserForm_Initialize()
For a = 3 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("b3:b" & a), Cells(a, 2)) = 1 Then ComboBox1.AddItem Cells(a, 2)
Next
End Sub
[/vb:1:86bb8c322a]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.