ماهو كود vba للتحويل للأرقام لأدمجه في هذا الملف 456

[سعد الإبراهيمي]

السلام عليكم

إضغط هنا موجودة في الورقة 1 من ملف 456.xlsm

من فضلكم

رغم أني قمت بتحويل الأرقام في تسجيل الماكرو  إلا أنه لا ينجح 

ماهو كود vba للتحويل للأرقام لتخرج الإحصائيات سليمة في المجمل في ملف 456.xlsm

الكود يدخل في ملف 456.xlsm 

في كل شيتات  ملف 456.xlsm باستثناء المجمل من: J11  إلى   U111

أما الملف M فيجب أن لايغير فيه شيء وغلقه في نهاية الكود المدمج في اضغط هنا دون حفظ التغييرات في ملف M

ملخص عمل الملف:

برمجت الملف 456 لكي يفتح مع ملفات مختلفة لها نفس المواد مع ضرورة تسميتها M ويقوم بنسخ الشيتات عنده وعند نهاية العمل يقفل M دون حفظ التغييرات وفي ملف 456 نحصل على إحصاء للمعدلات

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

1.rar

[بن علية حاجي]

السلام عليكم

القيم التي تقوم بنسخها من الملف M ولصقها في الملف ST456 هي من تنسيق نص لذا قمت بالتعديل على معادلات جداول النتائج بضرب القيم النصية لأعمدة المواد في 1 لتبديلها بقيم عددية في العملية الحسابية... تم أيضا التعديل على معادلات أقل من 5 حتى لا يحسب الفراغات... أرجو أن تفي هذه التعديلات المطلوب...

بن علية حاجي

2.rar

[بن علية حاجي]

السلام عليكم

أقترح عليك تغيير كود نسخ/لصق العلامات Macro3 (الطويل نوعا ما) بالكود التالي (مختصر قليلا):

Sub Macro3()
Application.EnableEvents = False
Application.ScreenUpdating = False
For I = 1 To 3
    Windows("M.xls").Activate
    Sheets("Sheet" & I).Columns("A:Z").Copy
    Windows("ST456.xlsm").Activate
    Sheets("Sheet" & I).Select
    Columns("A:Z").Select
    Range("A1").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A2").Select
Next
Windows("M.xls").Activate
ActiveWindow.Close
Sheets("Sheet1").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

بن علية حاجي

[سعد الإبراهيمي]

الأستاذ الفاضل

بن علية حاجي

جزاك الله خيرا وأحسن إليك.