اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by الرائد77,

الردود الموصى بها

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

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

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

 

رابط هذا التعليق
شارك

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

  • Thanks 1
رابط هذا التعليق
شارك

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

 

رابط هذا التعليق
شارك

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

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

ليست.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل أخي

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

image.png.66f5d2b25b3236506b9f1984f885febd.pngimage.png.3f383e0dd84054dcf6de10040bff9211.png

المصنف2.xlsm

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information