اذهب الي المحتوي
أوفيسنا

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


gamalin2
إذهب إلى أفضل إجابة Solved by lionheart,

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

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

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

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

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

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

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

  • أفضل إجابة
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

 

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

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

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

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

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

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

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

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

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

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

 

daily.xlsm

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

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

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

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

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

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

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

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

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

 

daily.xlsm

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

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

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

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

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

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

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

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

daily.xlsm

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

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