بيانات مستجلبه

[ناصر سعيد]

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

ليس بهم بيانات مستجلبه

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

 

استدعااء.rar

[خالد الرشيدى]

السلام عليكم

اخى الكريم - فى ذهني فكرتان - الاول 

في السطر الخاص ب (   ارقام الاعمده المطلوب نقلها ) ستلاحظ ان هناك 5و5و5   يمكنك ان تستبدل الاولى والثانيه برقم عمود لا يحوي بيانات وليكن 104 مثلاً -- هذه فكره 

 

- الثانية  -وهى قابله للتطوير - لا احبذ ان تعمل بها بهذا الملف - ولكن  - سأطرحها لربما شارك اساتذتى بالمنتدي بطريقة افضل منها وعندها ستمثل لى إضافة - وهى تقسيم مصفوفة النتائج الى جزئين - الجزء الاول يعبأ بالنطاق  a:O  , الجزء الثاني R:AZ

وذلك بإستبدل الكود الخاص بتعبئة المصفوفة 

 .Range("A11").Resize(j - 1, UBound(temp, 1)).Value = temp

بهذين الكودين ( مع حذف الخمسة الاولى والثانية الموجوده بارقام الاعمده المطلوب نقلها )

.Range("A11").Resize(j - 1, 15).Value = Application.Index(temp, [row(1:7000)], Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15))
.Range("R11").Resize(j - 1, c - 14).Value = Application.Index(temp, [row(1:7000)], Array(16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50))

 

[ناصر سعيد]

جزاك الله كل خير وبارك فيك استاذ خالد الرشيدي

ساعمل بالحل الاول مبدئيا الى ان ياتي الله بحل برمجي

[خالد الرشيدى]

السلام عليكم

اخى الحبيب / ناصر  - انتظرت كثيراً رد احد اساتذه المنتدي لعرض الطرق المختلفه لتقسيم مصفوفة النتائج على اكثر من نطاق للبيانات - ربما هذا الامر ليس بالهام كثيراً بالنسبه لملفك - لانه الحل الاول اعتقد انه مناسب جداً - ولكن ربما فكرة تقسيم مصفوفة النتائج على عده نطاقات تكون مهمه بالنسبه لبعض الافكار الاخري - لهذا

----اخر ما توصلت اليه - ---- تقسيم مصفوفة النتائج الى جزئين - الجزء الاول يعبأ بالنطاق  a:O  , الجزء الثاني R:AZ

.Range("A11").Resize(j - 1, 15).Value = Application.Index(temp, [row(1:5000)], Application.Transpose([row(1:15)]))
.Range("R11").Resize(j - 1, c - 14).Value = Application.Index(temp, [row(1:5000)], Array(Application.Transpose([row(16:50)])))

 

[ناصر سعيد]

الاستاذ المحترم / خالد الرشيدي

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

كيف حالكم حفظكم الله ؟

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

اشكرك لتنيك الحل واجتهادك المشكور .. كتبه الله في كفه حسناتك

ونرجو تدخل صاحب الكود استاذ ياسر خليل لاثراء الموضوع

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

وعليكم السلام 

بارك الله فيك أخي الحبيب خالد الرشيدي وأعتقد أن فكرتك ممتازة بخصوص تقسيم المصفوفة

الأخ العزيز ناصر سعيد .. إذا كنت لا تريد بيانات في الأعمدة P و Q فيمكنك في نهاية الكود وضع سطر يقوم بعملية مسح للبيانات المستجلبة .. مجرد فكرة