كيف امنع تكرار الاسم فى اداة الكمبوبوكس

[A L M A I S T R O]

لدى ملف اكسيل مسجل بها اسماء الاشخاص واقوم بأستعراض الاسماء من خلال نموذج علية اداة Combobox

ما اريدة الا يتكرر الاسم فى الاداة

اتمنى اجد رد سريع

شكرا لكم جميع

[A L M A I S T R O]

up

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

السلام عليكم

تقصد قائمة (بدون تكرار)

تظهر في فورم معين

اذا كان كذلك ممكن تستخدم عدة طرق

منها مثلا الكود التالي:

Private Sub UserForm_Activate()

Dim LastRow As Integer, R As Integer

With ورقة1

    LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

    For Each A In .Range("B4:B" & LastRow)

        For R = 0 To ComboBox1.ListCount - 1

            If ComboBox1.ListCount <> 0 _

            And A.Value = ComboBox1.List(R) Then GoTo 1

        Next

        ComboBox1.AddItem A.Value

1   Next

End With

End Sub

تفضل المرفق

بقائمة بدون تكرار.rar

[A L M A I S T R O]

هذا ما اردت بالفعل

اخى خبور

جزاك الله خيرا وزادك من علمة

وتقبل الله منا ومنكم صالح الاعمال

الف الف شكر

تحياتى,,,

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

السلام عليكم

وهذا كود آخر:

Private Sub UserForm_Activate()

Dim LastRow As Integer, MyCel As Range

With ورقة1

    LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

    For Each MyCel In .Range("B4:B" & LastRow)

        If Application.WorksheetFunction.CountIf(.Range("B4:B" & MyCel.Row), MyCel.Value) = 1 Then

            ComboBox1.AddItem MyCel.Value

        End If

    Next

End With

End Sub

بقائمة بدون تكرار_2.rar

تم تعديل أغسطس 29, 2009 بواسطه خبور خير

[cat101]

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

مشكورمشكورمشكورمشكورمشكور