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

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

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

تحيه طيبه وبعد

اريد كود يحل محل المعادله الموجوده فى العمود P

او كود يقوم بنفس العمل التى تقوم به المعادلهمعادله الى كود.rar

[الـعيدروس]

السلام عليكم

Sub Al_S()

Dim Rn As Range

For Each Rn In Range("M5:O" & Cells(Rows.Count, 2).End(xlUp).Row).Rows

If Application.Sum(Rn.Value) > 1 Then

Cells(Rn.Row, "P") = 1

ElseIf Application.Sum(Rn.Offset(0, -9).Value) <> "" Then

Cells(Rn.Row, "P") = 2

ElseIf Application.Sum(Rn.Value) > 0 Then

Cells(Rn.Row, "P") = ""

End If

Next

End Sub

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

الاخ عباد

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

مشكورا على المحاوله

ولكن من الواضح ان الكود

يعطى الرقم 2 بغض النظر عن وجود مبالغ فى العمود G

مع ان المعادله لاتعطى الرقم 2 الا اذا كان (G8<>"",2,

ارجو تعديل الكود

[الـعيدروس]

نتائج الكود تطابق نتائج المعادلة التي في العامود P

شاهد المرفقات

معادله الى كود.xlsx_A_1.rar

[يوسف عطا]

إبراهيم باشا

تقبل تحياتى

ياريت لو توضح فى المشاركة نفسها (بالإضافة للمرفق) المعادلة المطلوب العمل عليها و الهدف منها

وذلك لوجود مشاكل فى التحميل كما أن كثير من شبكات النت حالياً تستخدم نظام حدود الداونلوود

[يوسف عطا]

عباد ابو نصار بك

دمت بود

تقبل تحياتى وتقديرى