مساعدة في كود ترحيل (الى أكثر من خلية بناء على مدة المشروع)

[BuFaisal]

اسادة الافاضل - السلام عليكم ورحمة الله

اود ان انشئ تطبيق يساعدني في تحديث قاعدة البيانات الخاصة بالمشاريع التي قد نفوز بها وذلك لحتساب المدخول المتنبئ به بشكل شهري "forecast calculation"

المطلوب هو في فورم ادخال البيانات Dataentry احدد معلومات المشروع "اسم, رقم, ...." ثم ادخل قيمة المشروع - مدته بالأشهر -احتمالية الفوز "Winning Probability" وبداية المشروع

وعند الترحيل يقوم بالاتي

1- قيمة المشروع X احتمالية الفوز = المبلغ المتنبئ الفوز به

2- المبلغ المتنبئ الفوز به / مدة المشروع بالاشهر = المدخول الشهري المتنبئ عند الفوز بالمشروع

3- توزيع المدخول الشهري المتنبئ عند الفوز بالمشروع على عدد الاشهر ابتدائاً بشهر الذي يبتدئ به المشروع

يوجد في المرفق مثال على المطلوب

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

شاكر ومقدر تعاونكم

اخوكم بوفيصل  

forecast calculation.rar

[هشام شلبى]

السلام عليكم

==========

ابو فيصل هذا حل مؤقت الى ان يتم دمج الكودين بزر واحد

تحياتى

بو فيصل.rar

[BuFaisal]

السلام عليكم

==========

ابو فيصل هذا حل مؤقت الى ان يتم دمج الكودين بزر واحد

تحياتى

شاكر ومقدر لسعادتكم هذا المجهود لكن لم يتم تطبيق الشرط الاساسي وهو توزيع المدخول الشهري المتنبئ عند الفوز بالمشروع على عدد الاشهر ابتدائاً بشهر الذي يبتدئ به المشروع

لكم جزيل الشكر

[طارق محمود]

السلام عليكم

بعد إذن أخي هشام

تفضل أبو فيصل الجزء الثاني من طلبك

بالمعادلات

__ ____2.rar

[BuFaisal]

أستاذ TareQ M

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

لكن اسلوبك في الاستفادة من هذه المعادلة هو المعقد

وهنا يكمن التميز

شاكر ومقدر خدماتكم

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

اخوك بوفيصل

[طارق محمود]

أستاذ TareQ M

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

لكن اسلوبك في الاستفادة من هذه المعادلة هو المعقد

وهنا يكمن التميز

شاكر ومقدر خدماتكم

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

اخوك بوفيصل

أخي بوفيصل

معذرة للتأخير

مرفق الملف ، مضافا إليه زر لإلغاء المشروع الذي تريد بالورقة التي تريدها

بو فيصل3.rar

[BuFaisal]

1000 الف thousand شكراً

على هذا الابداع

اخوك بوفيصل

[هشام شلبى]

السلام عليكم

==========

اخى الحبيب طارق

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

من فضلك ارسل لى الاكواد فقط "لانى مش فاهك يعننى ايه الغاء المشروع" وللاطلاع على الاكواد

المهم اتصرف عاوز الملف" مليش دعوة"

عاوز افهم يعنى ايه الغاء المشروع

تم تعديل مايو 20, 2010 بواسطه هشام شلبى

[طارق محمود]

السلام عليكم

==========

اخى الحبيب طارق

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

من فضلك ارسل لى الاكواد فقط "لانى مش فاهك يعننى ايه الغاء المشروع" وللاطلاع على الاكواد

المهم اتصرف عاوز الملف" مليش دعوة"

عاوز افهم يعنى ايه الغاء المشروع

أخي الحبيب هشام

الموضوع بسيط جدا

أخونا بوفيصل يقصد إلغاء السطر الذي به المشروع

كما تلاحظ ، كل مشروع يشغل سطرا ، سواءا في الورقة الأولي أو الثانية

هذا السطر ملخص للمشروع الذي شاركت الشركة بعرض سعر فيه

ثم بعد ظهور النتيجة ، يتم معرفة إن كانت الشركة فازت بالمشروع أم لا

وفي كلتا الحالتين ، في حالة أنه تم معرفة النتيجة

يجب إزالة هذا السطر من عملية المتابعة (موضوع الملف)

وقد حفظته لك بصيغة 2007 ، يمكن يفتح تفضل المرفق

وتفضل الكود أيضا

Sheets("Dataentry").Select


sht = [h19].Value

xrange = [j19].Value

x = [h23].Value

Sheets(sht).Select

xrw = 0

	For Each ss In Range(xrange)

 	If ss = x Then xrw = ss.Row: GoTo 100

	Next ss

	MsgBox ("The selected Project not exist in selected Worksheet")

	Exit Sub

100


	ActiveSheet.Rows(xrw).EntireRow.Select

	Selection.Delete Shift:=xlUp


 ' Rename the ranges

 	ActiveWorkbook.Names("proj").Delete

 	ActiveWorkbook.Names("Proj2").Delete


 	ActiveWorkbook.Names.Add Name:="proj", RefersToR1C1:="=Contract!R2C2:R1000C2"

 	ActiveWorkbook.Names.Add Name:="Proj2", RefersToR1C1:="=Rental!R2C2:R1000C2"



End Sub

__ ____3.rar

[BuFaisal]

استاذ طارق انت كريم وان شاء الله ان انا استاهل

هذه المقدمة من اجل طلب تعديل على نفس الموضوع لكن من زاوية مختلفه وذلك كتالي

في الملف المرفق ستجد صفحة بأسم INQUIRY DETAILS وهي عينه من قاعدة البيانات لجميع مناقصات الشركة ومنها يتم تحديث حالة كل مناقصة من عامودVALIDITY OF PRICE-FIXING

المطلوب هو هل يمكن ان يتم ترحيل جميع المناقصات التي تكون تحت حالة PENDING WITH CLIENT الى الصفحة الخاص بها (عامودDIVISION) وعند تغيير الحالة لنفس المناقصة عند الفوز AWARDED او غيره يتم حذفه من تلك الصفحة

قد يكون هذا الطلب معقد التنفيذ لكن عند اتمامه سيكون قمه في التطبيق

ولك خالص تحياتي

اخوك بوفيصل

INQUIRY DETAILS.rar

[هشام شلبى]

السلام عليكم

===========

شكرا حبيبى طارق

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

تحياتى لشخصكم المهذب

[BuFaisal]

استاذ طارق انت كريم وان شاء الله ان انا استاهل

هذه المقدمة من اجل طلب تعديل على نفس الموضوع لكن من زاوية مختلفه وذلك كتالي

في الملف المرفق ستجد صفحة بأسم INQUIRY DETAILS وهي عينه من قاعدة البيانات لجميع مناقصات الشركة ومنها يتم تحديث حالة كل مناقصة من عامودVALIDITY OF PRICE-FIXING

المطلوب هو هل يمكن ان يتم ترحيل جميع المناقصات التي تكون تحت حالة PENDING WITH CLIENT الى الصفحة الخاص بها (عامودDIVISION) وعند تغيير الحالة لنفس المناقصة عند الفوز AWARDED او غيره يتم حذفه من تلك الصفحة

قد يكون هذا الطلب معقد التنفيذ لكن عند اتمامه سيكون قمه في التطبيق

ولك خالص تحياتي

اخوك بوفيصل

حبيبي طارق

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

الشكر الجزيل لكل من سعى وجتهد وشارك بعلمه وعمله

اخوكم بوفيصل

INQUIRY DETAILS.rar