هاني بدر قام بنشر أبريل 14, 2012 قام بنشر أبريل 14, 2012 السلام عليكم ورحمة الله وبركاته مرفق ملف والمطلوب هو نسخ معادلات بناء على وجود بينات في صفوف اخرى وتقبلوا تحياتي هاني بدر Test Income.rar
هاني بدر قام بنشر أبريل 14, 2012 الكاتب قام بنشر أبريل 14, 2012 اعرف انه طلب بسيط وارجو المساعدة بعمل الكود المطلوب لانه مهم جدا عندي
عبدالله المجرب قام بنشر أبريل 14, 2012 قام بنشر أبريل 14, 2012 السلام عليكم جرب هذا الكود Sub Macro1() Range("AL9:BK9").Copy Range("AL11:AL" & [A1000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas Application.CutCopyMode = False End Sub
هاني بدر قام بنشر أبريل 15, 2012 الكاتب قام بنشر أبريل 15, 2012 بسم الله الرحمن الرحيم عزيزي استاذ عبدالله بارك الله فيك هذا هو المطلوب بالفعل بارك الله فيك وذادك من علمه وفضله اخوك هاني بدر
هاني بدر قام بنشر أبريل 15, 2012 الكاتب قام بنشر أبريل 15, 2012 السلام عليكم ورحمة الله وبركاته تم اضافة سطر للكود لمسح البيانات قبل النسخ حيث ان البيانات متغيرة في الصفحة Range("AL11:BK50000").ClearContents Range("AL9:BK9").Copy Range("AL11:AL" & [A50000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas Application.CutCopyMode = False تقبل كل الشكر والتحية لك ولك اساتذة وأعضاء المنتدى الكرام اخوك هاني بدر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.