كود نسخ عدد ناتج عن حساب عدد الاسطر في ملف اكسل

[seddiki_adz]

السلام عليكم

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

تــــم تعديل رفع الملف بصيغة XLSM

Classeur6.xlsm

[أ / محمد صالح]

المطلوب غير واضح لي

ولكن

ربما تقصد أن تكتب في الخلية J2

=E2

ليظهر نفس الرقم الموجود في E2

[seddiki_adz]

نعم J2

E2=J6  ادا كانت القيمة ثابتة لكن القيمة غير ثابتة

[أ / محمد صالح]

رغم أنه أي تحديث في الخلية E2 سيتم تغييره في الخلية J2

ما زال المطلوب غير واضح لي

[seddiki_adz]

القيمة الموجودة في الخلية  E2  ناتجة بحساب عدد الاسطر وتتعير بتغير القيمة الموجود في E2 

[أ / محمد صالح]

الفيمة الموجودة قي E2 ناتجة عن حساب أكبر قيمة في المدى من A3:A1000 وهي 18 حاليا

=MAX(A3:A1000)

وإذا كنبنا في J2 هذه المعادلة

=E2

فسيظهر نفس الرقم 18

هذا شرح بالتفصيل لما قمت أنا  بعمله حاليا

ما المطلوب بالتفصيل ؟

[seddiki_adz]

نسخ القيمة المحصل عليها ولصقها  لكن عندما تتعير القيمة E2  تمسح لذا يلزم كود خاص لنسخ القيمة دون ان تمسح

[أ / محمد صالح]

حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي

وربطه بزر أو شكل أو صورة

Sub tar7eel()
Range("j2").Value = Range("e2").Value
End Sub

ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء

[seddiki_adz]

الكود يعمل بصفة جيدة 

لكن القيمة الناتجة تتغير و تلصق في الخلية المقابلة لها  في العمود j

Classeur111.xlsx

[أ / محمد صالح]

تفضل هذا مطلوبك الثاني

Sub tar7eel()
For n = 2 To Cells(Rows.Count, 9).End(xlUp).Row
If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value
Next n
End Sub

بالتوفيق

[seddiki_adz]

السلام عليكم

مادا لو غيرنا الرقم 9 بالرقم 17

Sub tar7eel()
For n = 2 To Cells(Rows.Count, 17).End(xlUp).Row
If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value
Next n
End Sub

Classeur6666.xls

[أ / محمد صالح]

لن تحصل على شيء لأن العمود Q فارغ 

للعلم الدالة cells تستعمل في التعامل مع النطاقات مثلها مثل range

ولكن الفرق أن range نقدم لها اسم النطاق مثلا 

range("c5").value = "Mas"

هذا الكود يقوم بكتابة Mas في الخلية C5

ويمكن استعمال cells لنفس الغرض

cells(5, 3).value = "Mas"

حيث أن 5 هو رقم الصف و3 هو رقم العمود

فعند كتابتك رقم 17 في خانة العمود فأنت تقصد العمود Q

بالتوفيق

[seddiki_adz]

بارك الله فيك وجعل هذا العمل الله في ميزان حسناتك