اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

images.jpg.bea1688bcba062f7a87486ae07e8a

 

  • Like 2
رابط هذا التعليق
شارك

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

 

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

images.jpg.14e3a9e502d2712cc4d7b16f8e041

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information