تجاوز عدد الاعمدة

[Alttear]

السلام عليكم

ملف ال vba لدي يقوم بعملية اضافة للاعمدة ( عند شرط معين ) و عندما يتجاوز الحد المسموح به في عدد الاعمدة لملف الاكسل يتوقف عن العمل.

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

شكرا

[ياسر خليل أبو البراء]

هل البيانات لديك ستتعدى عدد الأعمدة في ورقة العمل الواحدة؟

ارفق نموذج مبسط وما هي طريقة إضافة الأعمدة؟ هل عن طريق كود أو بشكل يدوي أم كيف تتم بالضبط؟

[Alttear]

نعم استاذي .. في الورقة الواحدة تتجاوز العدد المسموح به

طريقة الاضافة تتم عن طريق الكود التالي :
 

ActiveSheet.Cells(1, clmresult + 1).EntireColumn.Insert

القضية هي اضافة عامود فارغ عند تحقيق شرط ما ليصبح العمود ذاته يحوي بيانات وفق المعادلة

المشكلة ان الصفحة عندما تملأ بالاعمدة لا استطيع اضافة اي عامود 
و المطلوب : تتمة عمل ال VBA في صفحة اخرى  ( SHEET 1.1 ) دون ان يفقد اي من العمليات الحسابية التي يقوم بها .
او طريقة بديلة ..

[ياسر خليل أبو البراء]

ليس لدي فكرة في الواقع .. ربما لو أرفقت ملف نقوم ببعض المحاولات بحيث يكون الملف معبر عن الملف الأصلي

وما هي تلك العمليات الحسابية التي تتم في أكثر من 16 ألف عمود ..أول مرة تقابلني حالة بهذا الشكل