الحلقات التكرارية المتداخلة

[gamalin2]

الاخوة الافاضل
لدي مجموعة من البيانات في شيت اريد البحث عنها في مجموعة اخرى وان لم توجد يضيفها اليها وان وجدت يتجاوزها 

في المثال المرفق 

اريد البحث عن الاصناف في شيت 1 في الموجودة في شيت 2 و يضيف الغير موجودة فقط 

علما بان اختلاف الشهر او المنتج او الماركة يعتبر جديد 

حلقات متداخلة.xlsx

[lionheart]

Sub Test()
    Dim a, v, w1 As Worksheet, w2 As Worksheet, dic As Object, s As String, i As Long, m As Long, cnt As Long
    Set w1 = Sheet1: Set w2 = Sheet2
    Set dic = CreateObject("Scripting.Dictionary")
    a = w1.Range("A4").CurrentRegion.Value
    For i = 2 To UBound(a)
        s = a(i, 1) & Chr(2) & a(i, 2) & Chr(2) & a(i, 3)
        dic(s) = Empty
    Next i
    With w2
        For i = 5 To .Cells(Rows.Count, 1).End(xlUp).Row
            s = Empty
            s = .Cells(i, 1) & Chr(2) & .Cells(i, 2) & Chr(2) & .Cells(i, 3)
            If Not dic.Exists(s) Then
                m = w1.Cells(Rows.Count, 1).End(xlUp).Row + 1
                v = Split(s, Chr(2))
                w1.Range("A" & m).Resize(1, 3).Value = v
                cnt = cnt + 1
            End If
        Next i
    End With
    If cnt > 0 Then MsgBox "New Items Added = " & cnt, 64 Else MsgBox "No New Items", vbExclamation
End Sub

 

[gamalin2]

اشكرك اخي الكريم الكود 

شغال وتمام لكنه معقد حبتين بالنسبة لي لفهمه للتعديل عليه وتطويعه 

عكست فقط في الكود w1  sheet 2    و    w2 sheet 1 فتم النقل  اشكرك اخي الكريم 

[gamalin2]

رائع استانا الفاضل 
تم التعديل على الكود السابق ليعطي الناتج كما بالملف المرفق فضلا لو ممكن تضطلع عليه 
ولكن 
هناك امر واحد وهو اذا كان هناك تكرارات في اول مرة يعني وشيت product فاضب لسة بيجيب المجموعة كاملة بتكرارتها ... وتم التغلم على ذلك بتظليل المدى كامل وحذف التكرارات والحمد لله 

بقي امر لم اتمكن من عمله لصعوبة الكود بالنسبة لي 

وايضا عمل حلقة لوضع قيمة الانتاج المحقق في العمود الخاص باليوم 

عفوا انا كنت فاكر الكود هيبقى اسهل وهقدر اتعلم منه واعمل مثلة لتوزيع الانتاج المحقق 

لو امكنك مساعدتي جزاك الله خيرا وان لم تسمح ظروفك فجزيل الشكر لهذه الخدمة العظيمة وسأستمر في المحاولة مستعينا بالكود بتاعك اشكرك بشده 

 

daily.xlsm

[gamalin2]

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

[gamalin2]

الاستاذ lionheart الكود السابق اكثر من رائع 

رائع استانا الفاضل 
تم التعديل على الكود السابق ليعطي الناتج كما بالملف المرفق فضلا لو ممكن تضطلع عليه 
ولكن 
هناك امر واحد وهو اذا كان هناك تكرارات في اول مرة يعني وشيت product فاضي لسة بيجيب المجموعة كاملة بتكرارتها ... وتم التغلم على ذلك بتظليل المدى كامل وحذف التكرارات والحمد لله 

بقي امر لم اتمكن من عمله لصعوبة الكود بالنسبة لي 

 عمل حلقة لوضع قيمة الانتاج المحقق في العمود الخاص باليوم ( من عمود k في شيت check الى اليوم المقابل امام الصنف الخاص به بنفس الشروط نفس الشهر والماركة واسم الصنف  ) رقم الايام مكتوب في الشيت الاخر product في سطر 4

عفوا انا كنت فاكر الكود هيبقى اسهل وهقدر اتعلم منه واعمل مثلة لتوزيع الانتاج المحقق 

لو امكنك مساعدتي جزاك الله خيرا وان لم تسمح ظروفك فجزيل الشكر لهذه الخدمة العظيمة وسأستمر في المحاولة مستعينا بالكود بتاعك اشكرك بشده 

 

daily.xlsm

[gamalin2]

الاستاذ lionheart الكود السابق اكثر من رائع 

رائع استانا الفاضل 
تم التعديل على الكود السابق ليعطي الناتج كما بالملف المرفق فضلا لو ممكن تضطلع عليه 
ولكن 
هناك امر واحد وهو اذا كان هناك تكرارات في اول مرة يعني وشيت product فاضي لسة بيجيب المجموعة كاملة بتكرارتها ... وتم التغلم على ذلك بتظليل المدى كامل وحذف التكرارات والحمد لله 

بقي امر لم اتمكن من عمله لصعوبة الكود بالنسبة لي 

 عمل حلقة لوضع قيمة الانتاج المحقق في العمود الخاص باليوم ( من عمود k في شيت check الى اليوم المقابل امام الصنف الخاص به بنفس الشروط نفس الشهر والماركة واسم الصنف  ) رقم الايام مكتوب في الشيت الاخر product في سطر 4

عفوا انا كنت فاكر الكود هيبقى اسهل وهقدر اتعلم منه واعمل مثلة لتوزيع الانتاج المحقق 

لو امكنك مساعدتي جزاك الله خيرا وان لم تسمح ظروفك فجزيل الشكر لهذه الخدمة العظيمة وسأستمر في المحاولة مستعينا بالكود بتاعك اشكرك بشده 

ممنوع تكرار نفس المشاركات .... والا ستحذف جميع المشاركات ,,, يكفيك كتابة للـــرفع

daily.xlsm

[gamalin2]

للرفع