هل يمكن تغير معادلة الصفيف لجلب البيانات بكود

[أسامة عطاالله]

السلام عليكم

كل عام وانتم بخير

فى الملف المرفق يوجدشيتين الاول كشف خزنة 1 والثانى كشف خزنة

اريد جلب بيانات من كشف خزنة 1 الى الشيت الثانى استخدمت معادلة الصفيف بس للاسف حجم الملف كبر ونوجد صعوبة فى فتحة لانهم 13 كشف

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

هل يمكن تغير المعادلة الى كود لتصغير حجم الملف وسرعة فتح الملف وغلقة

شكرا لمجهودكم

واسف للاطالة

 

اكتوبر خزينة.rar

[أسامة عطاالله]

للرفع

[أبوعيد]

أرجو أن يكون هذا هو المطلوب

تفضل

اكتوبر خزينة#1.rar

[أسامة عطاالله]

اخى واستاذى / أبوعيد

شكرا لمجهودك والكود الرائع

واطمع فى سعة صدرك واريد شرح للكود

معادلة الصفيف موجودة كل اول كشف والكود يطبق الباقى ارجوا توضيح عمل الكود لو تكرمت

وهل من الممكن تطبيق الكود بدون ازرار للتشغيل ( تشغيل اتوماتيك )

شكرا جزيلا على تعب حضرتك

تم تعديل أكتوبر 10, 2014 بواسطه أسامة عطاالله

[أبوعيد]

السلام عليكم

نعم يمكن تطبيق الكود بدون إزرار وذلك بوضعه في حدث تفعيل الصفحة ACTIVATE 

كما هو مرفق بالملف

شرح السطر الأول من الكود :

اختر النطاق Range("A9:CD9") ثم قم بنسخ كل المعادلات الموجودة في الصف A9:CD9 إلى النطاق A9:CD33 

 (الكود لا يعرف ما هي المعادلات ولكنه سيقوم بنسخها فقط أيا كانت )

Range("A9:CD9").AutoFill Destination:=Range("A9:CD33"), Type:=xlFillDefault

شرح السطر الثاني من الكود :

بعد ذلك قم بإزالة المعادلات من النطاق A10:CD33 واحتفظ بالقيم فقط

 Range("A10:CD33") = Range("A10:CD33").Value

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

 

 

لاحظ معي الأرقام الحمراء :عندما أزلنا المعادلات من النطاق  A10:CD33 فهذا يعني أن النطاق A9:CD9  لا زال يه معادلات وقد احتفظنا بها في هذا السطر حتى يتم تطبيق الكود مرات عديدة 

 

بمعنى أننا إن أزلنا المعادلات من النطاق A9:CD33  لن يستطيع الكود نسخها

 

 

 

تحياتي

اكتوبر خزينة#2.rar

[أسامة عطاالله]

استاذى الفاضل /أبوعيد

لا توجد كلمات لكى اشكرك بها على شرحك ومجهودك اخى الكريم

جعله الله فى ميزان حسناتك

شكرا جزيلا

تقبل تحياتى