(تمت الاجابة) نسخ معادلات بالكود وفق شرط معين

[أبو أنس حاجب]

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

أساتذتي الأفاضل حفظكم الله

هنالك كود في الملف يقوم بنسخ المعادلات حسب اعمدة مختارة الى الأسفل حتى السطر عشرة الآف ثم ينسخها على شكل قيم ولان عمل الكود يكون بطئ جداً في حالة البيانات الكثيرة كعادة ملفاتي لذا أرجو التعديل في الكود بحيث ينسخ المعادلات ثم ينسخها على شكل قيم الى الاسطر اسفل وفق شرط مدى وجود بيانات في العمود A (أي عند آخر خلية غير فارغة في العمود المذكور بعدها لا يتم نسخ المعادلات ولا القيم في الأعمدة المقابلة لها)

الغرض من الكود السابق تخفيف عدد المعادلات إلى أقصى حد

واذا امكن الاستعاظة بكود شامل يقوم مقام المعادلات جميعها بشرط ان يكون سريع في حالة البيانات الكثيرة فخير ونعمة

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

أبو أنس

Orders Original 10000 New.rar

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

السلام عليكم

استبدل كودك بهذا

Sub Copy()

    [S9].Select

    Selection.Copy

    Call Abu_Ahmed_Copy

'------------------

    [z9:ab9].Select

    Selection.Copy

    Call Abu_Ahmed_Copy

'-----------------

    [ae9].Select

    Selection.Copy

    Call Abu_Ahmed_Copy

'------------------

    [ah9:aq9].Select

    Selection.Copy

    Call Abu_Ahmed_Copy

Application.CutCopyMode = False

End Sub

Sub Abu_Ahmed_Copy()

    Selection.Offset(1, 0).Resize(Cells(10000, 1).End(xlUp).Row - 9, 1).PasteSpecial Paste:=xlPasteFormulas

    Selection.Copy

	 Selection.PasteSpecial Paste:=xlPasteValues

End Sub

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل عبد الله المجرب ( أبا أحمد ) حفظكم الله

أشكر تفضلك وتكرمك بالرد جزأك الله كل خير

الكود يعمل بشكل ممتاز

أكرم الله مدخلك في الدارين ورضي عنك

أبو أنس