ارجو المساعدة من الخبراء

[elsedik]

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

مرفق ملف

المدى .rar

[Ahmed Elbhiry]

تفضل اخى اما الشرط الثانى غير مفهوم

المدى1.rar

[elsedik]

الاستاذ احمد هذا هو المطلوب جزاك الله كل خير

هل ممكن الحل باستخدام الكود

ام بالنسبة للشرط الثانى فهو غير مطلوب

[رجب جاويش]

تفضل أخى

حل بالكود

المدى3.rar

[elsedik]

اخى الفاضل أ/ رجب

طيب انا لو عاوز اضيف قيمة فى اى خلية فى المدى رقم 2 وتكون الخلية المجاورة فى المدى رقم 1 تساوى صفر اعمل اية

وشكرا على الرد

[الـعيدروس]

السلام عليكم

بعد اذن الاستاذ الحبيب رجب جاويش

بيكون هكذا للحالة الأخيرة

Private Sub Worksheet_Change(ByVal T_A As Range)

On Error Resume Next

If Not Intersect(T_A, [C2:C100]) Is Nothing Then If T_A.Value > 1 Then _

T_A.Offset(0, -1) = 0 Else: T_A.Offset(0, -1) = Empty

End Sub

الحالة الأولى والثانية

Private Sub Worksheet_Change(ByVal T_A As Range)

On Error Resume Next

''============================================================================

'If Not Intersect(T_A, [B2:B100]) Is Nothing Then If T_A.Value > 1 Then _

' T_A.Offset(0, 1) = 0 Else: T_A.Offset(0, 1) = Empty

''============================================================================

If Not Intersect(T_A, [C2:C100]) Is Nothing Then If T_A.Value > 1 Then _

T_A.Offset(0, -1) = 0 Else: T_A.Offset(0, -1) = Empty

''============================================================================

End Sub

تم تعديل أبريل 3, 2012 بواسطه alidroos

[رجب جاويش]

االأخ الفاضل / العيدروس ( أبو نصار )

دايما سباق بالخير والعلم النافع

جزاك الله كل خير