أرجوا المساعدة.....عدم تكرار العناصر في Combobox

[احمد زعل]

أرجو المساعدة

لدي فورم في VBA و يحتوي الفورم على combobox

ويعمل Combobox على أخذ البيانات حقل A الموجودة في sheet1

و المشكلة هي أن الحقل A يحتوي على بيانات متكررة و انا لا أريد تكرارها في Combobox

أرجوا لمن لديه حل أن ينفعني

وجزاكم الله خيرا

 

[أبو عبد الملك السوفي]

السلام عليكم

 لو أرفقت الملف لكان الحل أسهل

[احمد زعل]

يا أخواني لا يوجد أحد لديه الحل

[عبدالله باقشير]

السلام عليكم

 

شاهد المرفق 2003

 

اضافة بيانات بدون تكرار الى قائمة في فورم.rar

[احمد زعل]

أخي عبدالله باقشير أنت أكثر من رائع شكرا لك

وجزاك الله خيرا

[الـعيدروس]

السلام عليكم

 

جزاك الله كل خير استاذ عبدالله

 

ولإثراء الموضوع

هذه طريقة اخرى

الكود في حدث الفورم

Private Sub UserForm_Activate()
Dim Nm As Variant
Dim Nm_Cl As New Collection
Dim Tr_Nm As Variant
    Nm = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Value
On Error Resume Next
For Each Tr_Nm In Nm
     Nm_Cl.Add Tr_Nm, Tr_Nm
Next Tr_Nm
On Error GoTo 0
For Tr_Nm = 1 To Nm_Cl.Count
     ComboBox1.AddItem Nm_Cl(Tr_Nm)
Next Tr_Nm
End Sub