نسخ معادلات في صفوف بكود

[هاني بدر]

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

مرفق ملف والمطلوب هو نسخ معادلات بناء على وجود بينات في صفوف اخرى

وتقبلوا تحياتي

هاني بدر

Test Income.rar

[هاني بدر]

للرفع

[هاني بدر]

اعرف انه طلب بسيط وارجو المساعدة بعمل الكود المطلوب لانه مهم جدا عندي

[عبدالله المجرب]

السلام عليكم

جرب هذا الكود

Sub Macro1()

    Range("AL9:BK9").Copy

    Range("AL11:AL" & [A1000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas

    Application.CutCopyMode = False

End Sub

[هاني بدر]

بسم الله الرحمن الرحيم

عزيزي استاذ عبدالله بارك الله فيك هذا هو المطلوب بالفعل بارك الله فيك وذادك من علمه وفضله

اخوك هاني بدر

[هاني بدر]

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

تم اضافة سطر للكود لمسح البيانات قبل النسخ حيث ان البيانات متغيرة في الصفحة

Range("AL11:BK50000").ClearContents

Range("AL9:BK9").Copy

Range("AL11:AL" & [A50000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas

Application.CutCopyMode = False

تقبل كل الشكر والتحية لك ولك اساتذة وأعضاء المنتدى الكرام

اخوك هاني بدر