اختصار كود

[mhareek]

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

ولكن المطلوب ان احدد لة لو ان الخانة 6 فى العمود a = ؟ والخانة 6 فى العمود b =؟ فان الرسالة تكون ""

اى بدل ان احدد خانة خانة اريد ان عمود وعمود ومن داخلة الخانات

ارجو ان اكون وصلت ما اريد ..... وهذا هو كود

او بمعنى ادق هل يمكن اختصار كل تلك السطور فى سطر واحد

كود

Subfffff

If Range("E11") + Range("d11") > 0 And Range("b11") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E12") + Range("d12") > 0 And Range("b12") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E13") + Range("d13") > 0 And Range("b13") = 0 Then MsgBox "انتبة......؟م تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E14") + Range("d14") > 0 And Range("b14") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E15") + Range("d15") > 0 And Range("b15") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E16") + Range("d16") > 0 And Range("b16") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E17") + Range("d17") > 0 And Range("b17") = 0 Then MsgBox "انتبة......؟م تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E18") + Range("d18") > 0 And Range("b18") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E19") + Range("d19") > 0 And Range("b19") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E20") + Range("d20") > 0 And Range("b20") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E21") + Range("d21") > 0 And Range("b21") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E22") + Range("d22") > 0 And Range("b22") = 0 Then MsgBox "انتبة......؟م تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E23") + Range("d23") > 0 And Range("b23") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E24") + Range("d24") > 0 And Range("b24") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E25") + Range("d25") > 0 And Range("b25") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E26") + Range("d26") > 0 And Range("b26") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E27") + Range("d27") > 0 And Range("b27") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E28") + Range("d28") > 0 And Range("b28") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E29") + Range("d29") > 0 And Range("b29") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E30") + Range("d30") > 0 And Range("b30") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E31") + Range("d31") > 0 And Range("b31") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E32") + Range("d32") > 0 And Range("b32") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E33") + Range("d33") > 0 And Range("b33") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E34") + Range("d34") > 0 And Range("b34") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E35") + Range("d35") > 0 And Range("b35") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

If Range("E36") + Range("d36") > 0 And Range("b36") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1

1 End Sub

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

[ابو اسامة العينبوسي]

السلام عليكم

جهد المقل

4Help.rar

[mhareek]

الف شكر اخى الحبييب

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

هل بمعنى

ان R تعنى العمود وارقم يعنى الصف

لو تكرمت اخى الحبييب لو شرح موجز للكود

بارك الله فيك