جروان قام بنشر فبراير 17, 2012 مشاركة قام بنشر فبراير 17, 2012 تحية مرفق ملف ماخود من المنتدى لاحد الاخوة مطلبو تعديل موضح بالمرفق و شكرا للتعاون المستمر من الجميعmas_unique_values.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 18, 2012 مشاركة قام بنشر فبراير 18, 2012 اخي هل جربت كود الاخ العيدروس على نفس مشاركة الملف السابق هذا هو Sub MKARNH_ALI() Application.ScreenUpdating = False Range("C2:D2,E2:F65536").ClearContents Q = [A15000].End(xlUp).Row For R = 2 To Q If Application.CountIf([B2:B5000], Cells(R, 1)) = 0 Then Cells([E15000].End(xlUp).Row + 1, 5) = Cells(R, 1) End If If Application.CountIf([A2:A5000], Cells(R, 2)) = 0 Then Cells([F15000].End(xlUp).Row + 1, 6) = Cells(R, 2) End If Next [C2].Value = [E15000].End(xlUp).Row - 1 [D2].Value = [F15000].End(xlUp).Row - 1 Application.ScreenUpdating = True MsgBox "الحمد لله", vbInformation, "تمت المقارنة" End Sub رابط هذا التعليق شارك More sharing options...
جروان قام بنشر فبراير 20, 2012 الكاتب مشاركة قام بنشر فبراير 20, 2012 تحية اخي عبدالله دائما سباق للخير و انت الدينمو المحرك مثل ما قيل عند احتاج تطبيق المعادلة في اكثر من عمود ولم استطيع التعامل مع الكود ليشتغل مع اكثر من عمود لو في حل بالمعادلات احسن رابط هذا التعليق شارك More sharing options...
جروان قام بنشر فبراير 21, 2012 الكاتب مشاركة قام بنشر فبراير 21, 2012 للرفع رابط هذا التعليق شارك More sharing options...
جروان قام بنشر فبراير 23, 2012 الكاتب مشاركة قام بنشر فبراير 23, 2012 للرفع رابط هذا التعليق شارك 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.