إدراج معادلة أوتو فل

[Akram Galal]

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

أحبتي في الله

أريد عمل زر يقوم بإدارج المعادلة =A1+B1 في الخلية C1

وعند الضغط علية مرة أخرى يقوم بكتابة المعادلة =A2+B2 في الخلية C2

وهكذا ...

ملاحظة:

أريد إدراج المعادلة وليس الناتج.

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

[احمد عبد الناصر]

السلام عليكم

 

جرب هذه 

    Cells(Range("c" & Rows.Count).End(xlUp).Row + IIf(IsEmpty(Cells(1, 3)), 0, 1), "c").FormulaR1C1 = "=RC[-1]+RC[-2]"

تحياتي

[Akram Galal]

أخي الفاضل جزاك الله خيرا

وزادك من فضلة

[طارق محمود]

السلام عليكم

بالإضافة للكود الرائع لأخي الغالي / أحمد عبد الناصر

يوجد إختصار في الإكسل لهذه الحالة وهو Ctrl-d

جرب تقف أسفل الخلية التي بها المعادلة وتضغط Ctrl-d أو طبعا Ctrl-D

وحتي لو لوحة المفاتيح في مود اللغة العربية

[خالد القدس]

السلام عليكم

أكوادك ملهاش حل استاذ احمد

زادك الله من نعيمه