تجميع بيانات من أسم الأعمدة

[Raaavine]

السلام عليكم

كنت محتاج مساعدة منكم لو سمحتوا

دلوقتى انا عندى عمود أول فيه أكواد للأصناف اللى موجودة فى المخزن

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

وكل كود صنف بيبقى شغال مع رمز معين بحط قدامه فى الصف علامة X عشان تبينلى انه شغال مع الموديل ده

 

السؤال بقى

هلى ينفع قدام كل كود صنف فى الأخر حاجة تجمعلى الموديلات اللى شغالة مع الصنف ده واللى انا حاطط X فى العمود بتاعها

يعنى تبقى خلية تقولى الصنف ده شغال مع موديل كذا وكذا باعتبار الصف بيقول كده

انا رفعت صورة فى المرفقات ولو حد عايز يستفسر يقولى

 

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

[سليم حاصبيا]

منذ ساعه, Raaavine said:

السلام عليكم

كنت محتاج مساعدة منكم لو سمحتوا

دلوقتى انا عندى عمود أول فيه أكواد للأصناف اللى موجودة فى المخزن

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

وكل كود صنف بيبقى شغال مع رمز معين بحط قدامه فى الصف علامة X عشان تبينلى انه شغال مع الموديل ده

 

السؤال بقى

هلى ينفع قدام كل كود صنف فى الأخر حاجة تجمعلى الموديلات اللى شغالة مع الصنف ده واللى انا حاطط X فى العمود بتاعها

يعنى تبقى خلية تقولى الصنف ده شغال مع موديل كذا وكذا باعتبار الصف بيقول كده

انا رفعت صورة فى المرفقات ولو حد عايز يستفسر يقولى

 

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

ارقع الملف للعمل عليه

[ياسر خليل أبو البراء]

جرب الكود التالي

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