معادلة تحل محل الكود المرفق

[مرعى السيد]

المطلوب الأول : تعديل الكود ليكون كلمة "الأجمالي" بعد شهر ديسمبر مباشر اى بالخلية c15 وبدون تكرار فى حالة ضغط الزر مرتين

المطلوب الثانى : معادلة تحل محل الكود بالضبط ( مع العلم المعادلة افضل ) لان الكود سيضع كلمة الأجمالى بالخلية c15 وفى حالة تزويد الداتا بالبيانات سيحدث خطا فى صف c15

معادلة تحل محل هذا الكود المرفق.rar

[عبدالله باقشير]

السلام عليكم

ضع المعادلة ادناه في الخلية سي 3

واسحبها على باقي خلايا العمود سي

=IF($C2="ديسمبر";"الإجمالي";$M3)

ودمتم في حفظ الله

[مرعى السيد]

استاذنا / عبد الله

لو تمت أضافة فى الداتا لم تسمع فى التقرير

لو وضعت هذة المعادلة

وشكر جزيلا والمرفق للتوضيح اكثر

التوضيح بعد اضافة معادلة أ- عبد الله.rar

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

السلام عليكم

بالنسبة للكود يصبح هكذا

Sub marey()

x = Range("c10000").End(xlUp).Row + 1

	 For t = 3 To x

If Cells(t, 3) = "ديسمبر" Then Cells(t + 1, 3).Value = "الإجمالي"

Next

End Sub

[عبدالله باقشير]

استاذنا / عبد الله

لو تمت أضافة فى الداتا لم تسمع فى التقرير

لو وضعت هذة المعادلة

وشكر جزيلا والمرفق للتوضيح اكثر

جرب هذه

=IF(AND(LEN(TRIM($M3))=0;COUNTIF($C$2:C2;"الإجمالي")=0);"الإجمالي";$M3)

[مرعى السيد]

استاذنا / عبد الله باقشير

خضرتك اكثر من رائع

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

وشكر خاص جدا لآستاذنا / ابو حنين