[عنوان معدل] وضع معادلة فى ملف بدون تعارضها مع الأكواد

[أبو صاصا]

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

 

=IF(B7="";"";SUM(C7;E6)-D7)=IF(B7="";"";SUM(C7;E6)-D7)

 

 

اوتحويل هذا الكود لمعادلة حتي يتم حل المشكلة ال من اسبوع ولم تحل

 

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

     If Not Intersect(Target, Range("c7:c10000")) Is Nothing Then

      VBA.Calendar = vbCalGreg

      If IsEmpty(Target) Then

         Target(1, 2).ClearContents

    Else

         With Target(1, 4)

               .Value = Date

               .EntireColumn.AutoFit

           End With

       End If

End If

If Not Intersect(Target, Range("d:d")) Is Nothing Then

     If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then

         Cells(Target.Row, 6) = Date

     End If

End If

End Sub

 

 

   الاساتذة الافاضل  ارجو المساعدة ضروري

 

واشكر لكم سعة صدركم وصبركم عليي

 

 

 

 

 

 

 

 

الدائنون.rar

[رجب جاويش]

أخى الفاضل / فتحى

يجب الإهتمام بقواعد المشاركة فى المنتدى

ومنها

وضع عنوان مناسب لمحتوى الموضوع

حتى لا يكون موضوعك مخالف

 

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

[رجب جاويش]

أخى الفاضل

سوف يتم تغيير العنوان ليناسب محتوى الطلب

ولكن أرجو الإهتمام بهذه النقطة فى المرات القادمة

[أبو صاصا]

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

[رجب جاويش]

أخى الفاضل

شكرا جزيلا على سعة صدرك

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