المقارنة بين قائمتين

[ع_ حسام]

السلام عليكم خبراء الإكسل وعملاقة الأكواد

بعد البحث في المنتدى على كود برمجي للمقارنة بين قائمتين لم أجد ه بالرغم من وجود كود لأستاذ علي سحيب لكن ليس بصيغة التي أطلبها

ولذلك أريد كود برمجي يقارن بين قائمتين بين الوارد والمسجل لأن المعادلات تكون بطئ لكثرة العملاء وكذلك وجود عمليات أخرى 

________.rar

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Public Sub Ali_C()
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If IsDate(Cells(r, 3)) And IsDate(Cells(r, 1)) Then
    If Application.CountIf(Range("C2:C" & r), Cells(r, 1)) = 0 Then
       Cells(Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row, 5) = CDate(Cells(r, 3))
    End If
  End If
Next r
End Sub

 

[ع_ حسام]

السلام عليكم أستاذ العيدروس 

أشكرك على الرد كثيرا 

الكود فيه خطأ أظنه يعمل بالعكس لااحظ الصورة 

[الـعيدروس]

يمكن جرب هذا التعديل

Public Sub Ali_C()
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If IsDate(Cells(r, 3)) And IsDate(Cells(r, 1)) Then
    If Application.CountIf(Range("a2:a" & r), Cells(r, 3)) = 0 Then
       Cells(Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row, 5) = CDate(Cells(r, 3))
    End If
  End If
Next r
End Sub

 

[ع_ حسام]

بقية نفس المشكل

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

أخي الكريم

يرجى في حالة أن النتائج غير متوقعة بالنسبة لك ..يرجى إرفاق شكل النتائج المتوقعة أو وضع المعادلات التي أدت الغرض بالنسبة لك

جرب التعديل التالي وإذا لم يؤدي الغرض .. يرجى إرفاق شكل النتائج المتوقعة

Sub Ali_C()
    Dim R As Long
    For R = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If IsDate(Cells(R, 3)) Then
            If Application.CountIf(Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row), Cells(R, 3)) > 0 Then
                Cells(Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row, 5) = CDate(Cells(R, 3))
            End If
        End If
    Next R
End Sub

 

 

[ع_ حسام]

أخي ياسر بارك الله فيك  نجحت الفكرة 

إلا أن الحلقة التكرارية تبدأ من 1 وليس 2 فقط 

تقبل تحياتي أنت وأبو نصار

[ع_ حسام]

ما هو الكود بدل المعادلات التي تبطئ الملف  في هذا المرفق

 

المقارنة1.rar

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

أخي الكريم

هل الكود لا يعمل أم أنه لا يؤدي الغرض ؟؟

أم أن هناك مشكلة بالكود