محتاج كود مطابقة بين قائمتين

[فراسكو]

السلام عليكم ارجو ان تساعدوني في كود يقوم بمطايبقة بين قائمتين من الارقام والشرح في المرفق

Book2.rar

[فراسكو]

بارك الله فيكم ارجو المساعدة واتمنى ان تساعدوني في هذا الموضوع وشكراً

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Sub alidroos_com()

For R = 2 To 18

If Application.WorksheetFunction.CountIf([D2:D18], Cells(R, 1)) = 0 Then

With Columns(6).Rows(65536).End(xlUp)

.Offset(1, 0) = Cells(R, 1)

.Offset(1, 1) = Cells(R, 4)

End With

End If

Next

End Sub

[رجب جاويش]

السلام عليكم

هذه معادلة تقوم بفحص القيم الموجودة فى القائمة الفرعية ( B ) واذا كانت القيم الموجودة بها موجودة فى القائمة الرئيسية ( A ) توضع القيم المكررة فى العمود الثالث

Book2.rar

[فراسكو]

السلام عليكم وبارك الله فيكم على مجهودكم الاكثر من رئع

بالنسبة للكود لا اعرف كيف اتعامل معه واين اضعه او اشغله على الاكسل ممكن مساعدة

وبالنسبة للمعادلة هي اكثر من رائعة لكن ممكن ان نظع لون معين لكل رقم مثلا الرقم 1 في القائمة A مثلا لون معين يكون اخضر مثلا وهناك الرقم 1 في b يكون لهه نفس لون لاخضر في القائمة a وفي القائمة c نفس لون القائمة aوb ايضا لون اخضر وهكذا لباقي الارقام لكل رقم لون وبارك الله فيكم .

وجزاكم ربي خير الجزاء .اخوكم فراس العراقي.

[الـعيدروس]

السلام عليكم

تفضل الملف وبه الكود

مع بعض الإضافات

ALI.rar

تم تعديل مارس 24, 2012 بواسطه alidroos

[فراسكو]

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