Raaavine قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 السلام عليكم كنت محتاج مساعدة منكم لو سمحتوا دلوقتى انا عندى عمود أول فيه أكواد للأصناف اللى موجودة فى المخزن وقدام كل كود فيه أعمدة بالحروف تعتبر رموز للموديلات اللى شغال عليها كل صنف وكل كود صنف بيبقى شغال مع رمز معين بحط قدامه فى الصف علامة X عشان تبينلى انه شغال مع الموديل ده السؤال بقى هلى ينفع قدام كل كود صنف فى الأخر حاجة تجمعلى الموديلات اللى شغالة مع الصنف ده واللى انا حاطط X فى العمود بتاعها يعنى تبقى خلية تقولى الصنف ده شغال مع موديل كذا وكذا باعتبار الصف بيقول كده انا رفعت صورة فى المرفقات ولو حد عايز يستفسر يقولى وجزاكم الله كل الخير رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 منذ ساعه, Raaavine said: السلام عليكم كنت محتاج مساعدة منكم لو سمحتوا دلوقتى انا عندى عمود أول فيه أكواد للأصناف اللى موجودة فى المخزن وقدام كل كود فيه أعمدة بالحروف تعتبر رموز للموديلات اللى شغال عليها كل صنف وكل كود صنف بيبقى شغال مع رمز معين بحط قدامه فى الصف علامة X عشان تبينلى انه شغال مع الموديل ده السؤال بقى هلى ينفع قدام كل كود صنف فى الأخر حاجة تجمعلى الموديلات اللى شغالة مع الصنف ده واللى انا حاطط X فى العمود بتاعها يعنى تبقى خلية تقولى الصنف ده شغال مع موديل كذا وكذا باعتبار الصف بيقول كده انا رفعت صورة فى المرفقات ولو حد عايز يستفسر يقولى وجزاكم الله كل الخير ارقع الملف للعمل عليه رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 31, 2017 مشاركة قام بنشر يناير 31, 2017 جرب الكود التالي Sub Test() Dim arr As Variant Dim temp As Variant Dim i As Long Dim j As Long Dim str As String arr = Range("A1:P" & Cells(Rows.Count, 1).End(xlUp).Row).Value ReDim temp(1 To UBound(arr, 1) - 1, 1 To 2) For i = 2 To UBound(arr, 1) str = "" temp(i - 1, 1) = arr(i, 1) For j = 2 To UBound(arr, 2) If arr(i, j) = "X" Then str = str & ", " & arr(1, j) End If Next j temp(i - 1, 2) = Mid(str, 3, Len(str)) Next i Range("R1").Resize(1, 2).Value = Array("Code", "Items") Range("R2").Resize(UBound(temp, 1), 2).Value = temp End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان