ارجو المساعده بكود ادخال بيانات

[إبراهيم ابوليله]

الاخوه الافاضل

اريد كود يقوم بادخال

الرقم1و2

فى العمود الثالث

بناء على المعطيات فى العمود الاول والثانى كما هو موضح

فى لاششيت المرفقكود ادخال.rar

[أبو حنــــين]

أخي ابراهيم ضع هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Target.Column = 1 And Target.Row > 1 Then

If Target = "" Then Target.Offset(0, 2) = ""

If Target <> "" Then Target.Offset(0, 2).Value = 1

End If

If Target.Column = 2 And Target.Row > 1 Then

If Target = "" Then Target.Offset(0, 1) = ""

If Target <> "" Then Target.Offset(0, 1).Value = 2

End If

End Sub

[إبراهيم ابوليله]

الاخ ابو حنين

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

ولكن ماذا لو اردنا كتابة الرقم صفر

فى العمود الثالث فى حالة اذا كانت

الخليه فى العمود الاول اكبر من اى شئ

وكذلك الخليه المقابله لها فى العمود الثانى

بمعنى مثلا

لو الخليه

A3 و B3

تم كتابة اى شئ فيهما يتم كتابة الرقم 0

فى الخليه C3

[إبراهيم ابوليله]

للر فع

[إبراهيم ابوليله]

للرفع

الاخوه الافاضل

هل يمكن تنفيذ طلبى فى المشاركه رقم3

كمار اريد تنفيذ ذلك عن طريق الزر

وتنفيذ الكود الذى يوجد فى المشاركه 2

عن طريق الزر ايضا

[إبراهيم ابوليله]

للرفع