مسح الكتابة من خلية اذا كتبة نفس الكتابة بخلية اخر في عامود ثاني

[وليد زين العايدن]

السلام عليكم ورحمة الله وبركاته

الاساتذه الاعزاء في المنتدى

 

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

في الملف شرح وافي لهذا الطلب 

 

ارجو المساعدة ولكم الشكر  

مسح الخلية.rar

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

وعليكم السلام

أخي الكريم وليد

ضع الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("E2:H7")) Is Nothing Then
        If Target.Value = Target.Offset(, -4).Value Then Target.Offset(, -4).ClearContents
    End If
End Sub

بالنسبة لطلبك الثاني الخاص بنسبة الإنجاز لم توضح كيفية وآلية حساب النسبة؟

 

[وليد زين العايدن]

السلام عليكم ورحمة الله وبركاته 

 

اخي ياسر شكرا لك على المساعدو

 

لكن قمت بوضع الكود في حدث الورقة ولم يعمل معي لا اعلم بما اخطأت هل يمكن المساعدة في وضعه بالملف المرفق

اما بالنسبة للانجاز هي نسبة البنود المنتهية الى البنود المتوقعه يعني كل خلية تعتبر 1 

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

لكي يعمل الكود يجب إدخال بيانات في النطاق الهدف E2:H7 جرب تدخل بياانات في هذا النطاق لترى النتيجة بنفسك

بالنسبة لنسبة الإنجاز ممكن توضيح ببعض النتائج المتوقعة ..بمعنى اضرب مثال للتوضيح ..