(تمت الاجابة) تعديل على كود

[nash60]

يسم الله الرحمن الرحيم

اخواني الافاضل :

بعد تحديث البيانات من الانترنت

تظهر المشكلة بعدم ظهور البيانات في العمودين Qو R في الصفحة

To_ADSM علما بان الكود موجود في الصفحة بنفس الصفحة وانا

قمت بتعطيله . والمطلوب تعديل الكود لتظهر بيانات العمودين Q و R والتي

مصدرها الصفحة Symbol .

بينما الكود الموجود في الصفحة ADSM يعمل بشكل جيد .

وامطلوب التعديل اللازم لتظهر البانات في الصفحة To_ADSM كما هي

أي حسب الترتيب الموجود .

واشكر الاخ المحترم / طارق محمود لانني استفدت منه كثيرا وخاصة ان الكود

الذي يحتاج الى تعديل ليتلائم مع الوضع الجديد من فكرته وكذلك لسرعة الرد

مع الشكر الجزيل مقدما

[nash60]

عفوا نسيت ان ارفق الملف

Book1.rar

[طارق محمود]

السلام عليكم

تفضل أخي المرفق به التعديلات اللزمة

new_Book1.rar

[nash60]

الاخ الفاضل / طارق محمود حفظك الله

اشكرك ثانية جزيل الشكر على سرعة ردك وتعاونك مع الاعضاء وان شاء الله ان يكون كله في ميزان حسناتك عند الله

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

لانني انا هاو واحاول ان اتعلم منك ومن امثالك الطيبين

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

Arab_Market.rar

[طارق محمود]

السلام عليكم

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

ممكن عمل بعض التعديلات عليه ليقلل الوقت والحجم للملف

لكن أخبرني

لماذا تريد البيانات مرتين مرة في سوق كذا ثم مرة في To_سوق كذا

إذا لم يكن عندك مانع ممكن إلغاء كل ورقات To_

ويتم الترحيل مباشرة من ورقات الأسواق إلي All_Market

ثم الكود الذي علي ورقة All_Market يستهلك الكثير من الوقت عند عمل أي تغيير

سأفكر في بديل

[nash60]

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

اانا معني فقط في ورقة All_Market وغير معني في ورقة To_ ولكن المشكلة في عدد الاعمدة ففي اول 3 صفحات ( اللون الاصفر ) يوجد عمود

(متوسط مرجح G ) بينما باقي الاوراق لا يوجد علما باننا قمنا بقسمة القيمة على الكمية بباقي الصفحات فاذا توجد طريقة لعمل كودين لترحيل واحد لاول 3 صفحات

والثاني للباقي ونستطيع استخراج متوسط مرجح بالقسمة السابقة وكذلك الاغلاق السابق ( العمود B في الصفحة To_ ) بالطرح ( اخر اغلاق - التغير )

والسلام

[nash60]

الاخ المحترم / طارق

الاخوة المحترمين / جميعا

الرجاء المساعدة

[طارق محمود]

السلام عليكم

أخي العزيز

تأخرت عليك لانشغالي ولأن المطلوب كان كثيرا

تم تنفيذ كل ماأردته علي الملف

أصبح سريع جدا (بعد تحديث البيانات - طبعا)

وأصبح حجمه قليل نسبيا

تفضل المرفق

Arab_Market2.rar

[nash60]

بسم الله الرحمن الرحيم

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

بوركت يا اخي في نفسك واهلك ومالك فعلا كود رائع جدا وسريع جدا ولكنك كأنك نسيت العمودين Q و R في All_Market

على كل حال اضفتهم انا ومن كود سابق لك مع ان التحديث اصبح ابطء قليلا ولكنه مقبول وانا ارفقت الملف انظر موديل 2

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

وغفر الله لك ولوالديك

Arab_Market3.rar

[طارق محمود]

السلام عليكم

الحمد لله ، تمام كده

مع ان التحديث اصبح ابطء قليلا

هذا أكيد من سرعة النت

المفروض أن الملف أصبح أسرع بعدة مرات

ملاحظة

لعمل جميع العمليات مرة واحدة بما فيها إضافة العمودين Q و R في All_Market

أضف سطر قبل نهاية الكود الأصلي (Update_All_Market)

السطر المضاف هو

Call Add_Symbol

ليصبح الكود الأصلي (Update_All_Market) كالتلي

..

..

..


			Next k


		End With


20 Next i


[M:M].NumberFormat = "yyyy/mm/dd;@"

[A2].Select

Call Add_Symbol

End Sub

[nash60]

الاخ / طارق محمود المحترم

كل الاحترام والتقدير لك شخصيا ولا انسى ايضا باقي زملاءك وهذا المنتدى الرائع الذي لا يبخل على اعضاءه بالمساعدة

وجزاكم عنا الله الف خير

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