مساعدة بكود ترحيل بشرط

[فتحى ابوالفضل]

السادة أعضاء المنتدي الكرام

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

الرجاء المساعدة

احتاج في المرفق الى كودين

الأول كود ترحيل العمود F  و هو باسم بدل السفر من صفحة حساب  الى صفحة خصم كقيمة بدون المعادلة  في العمود c  مع خصم قيمته بعد الترحيل من جملة الاستحقاقات في صفحة حساب

و الثاني استعادته مرة ثانية من صفحة خصم الى صفحة حساب بنفس الخلية بشرط ان تعمل  المعادلة الخاصة به مع اضافته الى جملة الاستحقاقات

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

المصنف3.xlsb

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

بالنسبة للمطلوب الأول

يمكنك استعمال هذا الإجراء

Sub tar7eel()
For n = 3 To 51
Sheets("خصم").Range("c" & n - 2).Value = Sheets("حساب").Range("f" & n).Value
Next n
MsgBox "Done"
End Sub

وبالنسبة للمطلوب الثاني

في صفحة حساب يوجد في العمود f معادلة وإذا تم الترحيل من صفحة خصم إليها سيتم حذف المعادلة