ابو حمادة قام بنشر يناير 8, 2016 مشاركة قام بنشر يناير 8, 2016 اريد كود لمطابقة الخلايه مرفق ملف توضيح اتمني ان اجد الحل بسرعه مطابقة الخلايه.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 8, 2016 مشاركة قام بنشر يناير 8, 2016 أخي الكريم أبو حماده جرب الكود التالي (رغم أن نقطة الخروج من الكود غير واضحة ..) يوضع الكود في حدث إغلاق المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("B1").Value = Range("B2").Value Then MsgBox "الخليتان متشابهتان", 64: Exit Sub Else Range("D1").Value = Range("D5").Value End If End Sub 2 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر يناير 8, 2016 الكاتب مشاركة قام بنشر يناير 8, 2016 ارجو تحديد الورقه اخي ابو البراء مع الكود ولتكن ورقة1 والافضل اخي الفاضل ان تعدل علي الملف المرفق وانا مش شايف ان فيه امر غير اظهار مسج وانا مش عايز مسج انا عايز اذا اختلف الخليتان عن بعضهما يتم نسخ الخليه (d5 ) في الخليه ( d1) والنسخ واللصق يكون للقيم الموجوده وليس التنسيق او المعادله الموجوده رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 8, 2016 مشاركة قام بنشر يناير 8, 2016 أخي الكريم الرسالة مجرد سطر في حالة تحقق الشرط بأن الخليتان غير متساويتان ..يمكنك استبدال السطر بما تشاء من أسطر الكود بالنسبة للنسخ الكود لا يقوم بنسخ التنسيق كما ذكرت ..إنما يتم نسخ القيمة فقط ..(لاحظ أنني لم أستخدم الأمر Copy) وبالتالي عند مساواة قيمة خلية بأخرى فإنه يتم نسخ القيمة فقط بدون تنسيقات أو معادلات أو خلافه .. بالنسبة لتحديد الورقة المطلوب العمل عليها ضع اسم ورقة العمل قبل النطاق ..مثال Sheets("Sheet1").Range ("D5") رابط هذا التعليق شارك 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.