ع_ حسام قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 السلام عليكم خبراء الإكسل وعملاقة الأكواد بعد البحث في المنتدى على كود برمجي للمقارنة بين قائمتين لم أجد ه بالرغم من وجود كود لأستاذ علي سحيب لكن ليس بصيغة التي أطلبها ولذلك أريد كود برمجي يقارن بين قائمتين بين الوارد والمسجل لأن المعادلات تكون بطئ لكثرة العملاء وكذلك وجود عمليات أخرى ________.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر نوفمبر 30, 2015 مشاركة قام بنشر نوفمبر 30, 2015 السلام عليكم جرب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
ع_ حسام قام بنشر ديسمبر 1, 2015 الكاتب مشاركة قام بنشر ديسمبر 1, 2015 السلام عليكم أستاذ العيدروس أشكرك على الرد كثيرا الكود فيه خطأ أظنه يعمل بالعكس لااحظ الصورة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 1, 2015 مشاركة قام بنشر ديسمبر 1, 2015 يمكن جرب هذا التعديل 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 رابط هذا التعليق شارك More sharing options...
ع_ حسام قام بنشر ديسمبر 1, 2015 الكاتب مشاركة قام بنشر ديسمبر 1, 2015 بقية نفس المشكل رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 1, 2015 مشاركة قام بنشر ديسمبر 1, 2015 أخي الكريم يرجى في حالة أن النتائج غير متوقعة بالنسبة لك ..يرجى إرفاق شكل النتائج المتوقعة أو وضع المعادلات التي أدت الغرض بالنسبة لك جرب التعديل التالي وإذا لم يؤدي الغرض .. يرجى إرفاق شكل النتائج المتوقعة 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 رابط هذا التعليق شارك More sharing options...
ع_ حسام قام بنشر ديسمبر 1, 2015 الكاتب مشاركة قام بنشر ديسمبر 1, 2015 أخي ياسر بارك الله فيك نجحت الفكرة إلا أن الحلقة التكرارية تبدأ من 1 وليس 2 فقط تقبل تحياتي أنت وأبو نصار 1 رابط هذا التعليق شارك More sharing options...
ع_ حسام قام بنشر ديسمبر 2, 2015 الكاتب مشاركة قام بنشر ديسمبر 2, 2015 ما هو الكود بدل المعادلات التي تبطئ الملف في هذا المرفق المقارنة1.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 أخي الكريم هل الكود لا يعمل أم أنه لا يؤدي الغرض ؟؟ أم أن هناك مشكلة بالكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.