ليست بوكس بدون تكرار

[محمدعبدالعزيز]

السلام عليكم محتاج كود عرض بيانات في الليست بوكس بدون تكرار اي اعرض اصناف المخزن دون تكرار عمود الصنف... نرجو منكم الافاده... 

الاساتذة الافاضل اعتزر لحضرتكم لكبر حجم الملف والمطلوب اعرض اصناف المخزن دون تكرار الصنف مرتين في العرض اي اعرض الاصناف دون تكرار 

اريد عرض البيانات دون تكرار اي بالليست بوكس عمود الصنف ميكررش الصنف 

 

[مهند محسن]

وعليكم السلام-لا يمكن العمل على التخمين ونبهنا كثيراً ان لا تنجح اى مشاركة بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع النتائج المرجوة وذلك تجنباً لعدم اهدار وقت الأساتذة

ووقت كل من يطلع على هذه المشاركة دون جدوى او اهمية

[عبدالفتاح في بي اكسيل]

اخ محمد  ماذا  تقصد  بعدم  التكرار  هل  تريد  مج  البيانات المكررة مع بعضها  ام  تريد  تجاهل  المكرر نهائيا 

[عبدالفتاح في بي اكسيل]

لماذا  لم تجيبني  على سؤالي ؟؟؟؟

[محمدعبدالعزيز]

عفوا استاذ عبدالفتاح نعم اريد عرض البيانات بدون تكرارها اي احذف المكرر او  عرض البيانات بدون تكرار اي مثلا  صنف ١ لا يتكرر في الليست بوكس 

 

[الرائد77]

تفضل أخي

listbox unique.xlsm

[محمدعبدالعزيز]

المطلوب عند اختيار مخزن يعرض الاصناف الموجوده بالمخزن  دون تكرار اسم الصنف  اي استخلاص الاصناف دون تكرار

من فضلك لا تكرر نفس المشاركة والا ستحذف جميع المشاركات

ليست.xlsm

[الرائد77]

تفضل أخي

Set myRange = ws.Range("c2", ws.Range("c2").End(xlDown))
Set myList = New Collection
On Error Resume Next
Me.ListBox1.Clear
For Each myCell In myRange.Cells
If myCell = ComboBox1.Value Then
myList.Add myCell.Offset(0, -1).Value, CStr(myCell.Offset(0, -1).Value)
End If
Next myCell
On Error GoTo 0
For Each myVal In myList
Me.ListBox1.AddItem myVal
Next myVal
End Sub
'-----------------------------------------

Private Sub UserForm_Initialize()
Dim myList As Collection
Dim myRange As Range
Dim ws As Worksheet
Dim myVal As Variant
Set ws = ThisWorkbook.Sheets("stock")
Set myRange = ws.Range("c2", ws.Range("c2").End(xlDown))
Set myList = New Collection
On Error Resume Next
Me.ComboBox1.Clear
For Each myCell In myRange.Cells
myList.Add myCell.Value, CStr(myCell.Value)
Next myCell
On Error GoTo 0
For Each myVal In myList
Me.ComboBox1.AddItem myVal
Next myVal
End Sub

المصنف2.xlsm

[محمدعبدالعزيز]

أستاذ الرائد اتقدم بالشكر لحضرتك انا محتاج اعرض كل الاصناف اللي بالمخزن مثلا مخزن ١ به اصناف ١و٢و٣ لايكرر اي منهم بنفس المخزن 

كذلك مخزن ٢ به اصناف ١و٢و٣ اي  يكون نفس الصنف في كلا المخزنين دون ان يكرر الصنف بالمخزن نفسه مرتين 

أستاذ الرائد للتوضيح انا محتاجها لكي اجمع الاصناف من المشتريات بحيث اعرض كل الاصناف اللي بالمخزن من غير ما اكررها لانها بتكون مكرره في المشتريات وطبعا الصنف ممكن يكون في اتنين مخزن في نفس الوقت لكن لما اختار مشتريات مخزن ما يجبليش الاصناف مكرره اي يختار الصنف مره واحده ولو الصنف في مخزن اخر يعرضه لما اختار اسمه اتمني اكون وصلت الفكره (ببساطه بمثابه تلخيص الأصناف حسب المخزن) 

[الرائد77]

وماذا ترى أنت في البرنامج؟ الاكواد تقوم بنفس ماتطلب حرفيا

[محمدعبدالعزيز]

تسلم يا استاذ الرائد الكود شغال تمام