مطابقة خلايا ببعضها

[ابو حمادة]

اريد كود لمطابقة الخلايه

مرفق ملف توضيح

اتمني ان اجد الحل بسرعه

مطابقة الخلايه.rar

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

أخي الكريم أبو حماده

جرب الكود التالي (رغم أن نقطة الخروج من الكود غير واضحة ..) يوضع الكود في حدث إغلاق المصنف

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

 

[ابو حمادة]

ارجو تحديد الورقه اخي ابو البراء مع الكود ولتكن ورقة1

 

والافضل اخي الفاضل

ان تعدل علي الملف المرفق

وانا مش شايف ان فيه امر غير اظهار مسج وانا مش عايز مسج انا عايز اذا اختلف الخليتان عن بعضهما يتم نسخ الخليه (d5 ) في الخليه ( d1)

والنسخ واللصق يكون للقيم الموجوده وليس التنسيق او المعادله الموجوده

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

أخي الكريم الرسالة مجرد سطر في حالة تحقق الشرط بأن الخليتان غير متساويتان ..يمكنك استبدال السطر بما تشاء من أسطر الكود

بالنسبة للنسخ الكود لا يقوم بنسخ التنسيق كما ذكرت ..إنما يتم نسخ القيمة فقط ..(لاحظ أنني لم أستخدم الأمر Copy) وبالتالي عند مساواة قيمة خلية بأخرى فإنه يتم نسخ القيمة فقط بدون تنسيقات أو معادلات أو خلافه ..

بالنسبة لتحديد الورقة المطلوب العمل عليها ضع اسم ورقة العمل قبل النطاق ..مثال

Sheets("Sheet1").Range ("D5")