اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مطلوب عمل ملف لحجز غرف في الفنادق


aladdien

الردود الموصى بها

السلام عليكم

اخي aladdien

هل هناك امل ام ان المطلوب حقا مستحيل

لا يوجد اخي شيئ مستحيل ابدا

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

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

فليس هناك الوقت الكافي لعمل موضوع متكامل الا لمن تسمح له الظروف بذلك و خصوصا اذا كان الموضوع

خاص (اي سيتم تفصيله من الالف للياء)

و ان بداءت في الموضوع ستجد الجميع بجوارك لما يستعصي عليك

ارجو ان يكون كلامي لا يسبب لك اي زعل مني

تحياتي

رابط هذا التعليق
شارك

بالطبع كلامك لا يسبب اى زعل

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

ولكن الماكرو ( لا استطيع عم لاى شئ فيه )

برجاء الاطلاع على المرفق

والله المستعان

رابط هذا التعليق
شارك

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

With out Forms

بعد الشكر لأخي الحبيب aah

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

الحل المرفق بدون فورم

ومن الإكسل

آمل ان يكون به الفائدة

فورم واحد فقط

منه يتم اضافة اي وكيل جديد

اضافة اي مشغل جديد

الى القوائم

اضافة حجوزات جديدة

تم عمل الترقيم كما طلبت

Hotlعلاءالدين.rar

رابط هذا التعليق
شارك

اخى الفاضل

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

حقا خيركم من تعلم العلم وعلمه.

لى بعض الملاحظات :

1- خانة From و To هل من الممكن ان يكون Calender لاختيار التاريخ منها

2- Booking No يكون بهذه الصيغة 000/Jan.11/***

بحيث يشير *** إلى سيريال الملفات فى السنىة كلها. ويشير Jan.11 إلى الشهر الذى يبدأ فيه الملف. ويشير 000 إلى سيريال الملفات فى هذا الشهر.

3- ان يتم ترحيل البيانات فى شيت مستقل به كل التفاصيل.

رابط هذا التعليق
شارك

1- خانة From و To هل من الممكن ان يكون Calender لاختيار التاريخ منها

آسف أخي هذا ما لا اجيد عمله

2- Booking No يكون بهذه الصيغة 000/Jan.11/***

بحيث يشير *** إلى سيريال الملفات فى السنىة كلها. ويشير Jan.11 إلى الشهر الذى يبدأ فيه الملف. ويشير 000 إلى سيريال الملفات فى هذا الشهر.

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

سوف اجرب ان شاء الله و نرى

3- ان يتم ترحيل البيانات فى شيت مستقل به كل التفاصيل.

و هذا ما يحصل فعلا

حيث يتم نقل البيانات الى الورقة LISTS

ويتم اضافة القوائم اذا كانت غير موجودة

رابط هذا التعليق
شارك

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

2- Booking No يكون بهذه الصيغة 000/Jan.11/***

بحيث يشير *** إلى سيريال الملفات فى السنىة كلها. ويشير Jan.11 إلى الشهر الذى يبدأ فيه الملف. ويشير 000 إلى سيريال الملفات فى هذا الشهر.

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

سوف اجرب ان شاء الله و نرى

تم عمله في المرفق

= = = = = = = =

1- تعديل الحجز

ادخل رقم الحجز المطلوب تعديلة في خلية الموجودة اسفل النموذج ثم اضغط بحث

يتم جلب بيانات الحجز

عدل ماتريد ثم اضغط Add File

يتم التعديل

2- حذف حجز

ادخل رقم الحجز المطلوب حذفة في الخلية الموجودة اسفل النموذج ثم اضغط بحث

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

اضغط Remove Bokيتم حذف الحجز الذي تم تحديدة

= = = = = = = =

تم اضافة زرين في الصفحة الرئيسية للوصول الى القوائم و الحجوزات الموجودة

مع التحية

رابط هذا التعليق
شارك

تم عمل المطلوب لرقم الحجز

1- تعديل الحجز

ادخل رقم الحجز المطلوب تعديلة في خلية الموجودة اسفل النموذج ثم اضغط بحث

يتم جلب بيانات الحجز

عدل ماتريد ثم اضغط Add File

يتم التعديل

2- حذف حجز

ادخل رقم الحجز المطلوب حذفة في الخلية الموجودة اسفل النموذج ثم اضغط بحث

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

اضغط Remove Bokيتم حذف الحجز الذي تم تحديدة

= = = = = = = =

تم اضافة زرين في الصفحة الرئيسية للوصول الى القوائم و الحجوزات الموجودة

Hotlعلاءالدين.rar

Hotlعلاءالدين.rar

رابط هذا التعليق
شارك

السياد الفاضل أ/ أحمد

انت حقا مبدع جزاك الله الف خير وجعله فى ميزان حسناتك

هكذا الملف مكتمل تماما

ولكنلى طلب اخير ارجو الا اثقل عليكم

هو طلب بسيط بخصوص الكود التالى :

Range("M9").FormulaR1C1 = _

"=CONCATENATE(TEXT(SUMPRODUCT((YEAR(INDEX(Bok_Data,,10))=YEAR(R[2]C))*(INDEX(Bok_Data,,10)>0))+1,""000""),""/"",TEXT(R[2]C,""b1mmm-yy""),""/"",TEXT(SUMPRODUCT((MONTH(INDEX(Bok_Data,,10))=MONTH(R[2]C))*(YEAR(INDEX(Bok_Data,,10))=YEAR(R[2]C)))+1,""000""))"

هذا الماكرو يستمد التاريخ من الخلية M11 و انا اريده ان يستمدها من الخلية EG ( تاريخ بداية الملف)ز

ارجو تعديل الكود

ولسيادتكم الف الف شكر

رابط هذا التعليق
شارك

السياد الفاضل أ/ أحمد

انت حقا مبدع جزاك الله الف خير وجعله فى ميزان حسناتك

هكذا الملف مكتمل تماما

ولكنلى طلب اخير ارجو الا اثقل عليكم

هو طلب بسيط بخصوص الكود التالى :

Range("M9").FormulaR1C1 = _

"=CONCATENATE(TEXT(SUMPRODUCT((YEAR(INDEX(Bok_Data,,10))=YEAR(R[2]C))*(INDEX(Bok_Data,,10)>0))+1,""000""),""/"",TEXT(R[2]C,""b1mmm-yy""),""/"",TEXT(SUMPRODUCT((MONTH(INDEX(Bok_Data,,10))=MONTH(R[2]C))*(YEAR(INDEX(Bok_Data,,10))=YEAR(R[2]C)))+1,""000""))"

هذا الماكرو يستمد التاريخ من الخلية M11 و انا اريده ان يستمدها من الخلية EG ( تاريخ بداية الملف)ز

ارجو تعديل الكود

ولسيادتكم الف الف شكر

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

Hotlعلاءالدين.rar

رابط هذا التعليق
شارك

السيد الفاضل احمد

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

مشكور على تغيير الكود ولكن لا تزال المشكلة قائمة

فانها تنجح بسلام فى الملف الاول

ولكن بعد اضافة أول ملف ( بمعنى أدق بعد الضغط على "Add New File " يرجع مرة اخرى ويحصل على رقم الملف من تاريخ اليوم وليس من تاريخ بداية الملف.

برجاء تعديل الكود

ولى طلب آخر لو يسمح وقتكم وسعة صدركم ، مرفق ملف به مشروع ادراج نتيجة Calender - هل من الممكن دمج هذا الفورم لوضع تاريخ بداية ونهاية الملف من خلال فورم Calender

ارجو ان يتسع صدركم لطلباتى الكثيره وجعلها الله فى ميزان حسناتكم

Calender.rar

رابط هذا التعليق
شارك

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

أخر شئ بعد اذنك

هناك مشكلة صغيرة تظهر وذلك عند اضافة ملف جديد يعطينى رسالة مفادها ان هناك Error وعندما اختار Debuge

يظهر تحديد الخطأ فى هذا السطر من الماكرو

.Range("B" & TR).PasteSpecial Paste:=xlPasteValues

هل اكون طماعا لو طلبت منكم محاولة حل هذه المشكلة

ولكم وافر التحية

رابط هذا التعليق
شارك

السلام عليكم

اخي علاء

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

اخي انا لم تواجهني هذه المشكلة

ولكن اعتقد سببها عندك قد يكون

قد تكون وضعت كلمة سر لحماية الورقة التي يتم وضع بيانات الحجوزات بها

لذلك لا يتمكن الكود من فتحها

و الله اعلم

= = = = = = = = =

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

مشكلة تكرار اصدار الحجوزات

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

هذه النقطة كيف نعملها

= = = = = = =

وكذلك نبغة نعمل بحث لورقة Files

يبحث فيه عن اي معلومة او اسم او رقم ملف

وهذه بسيطة ان شاء الله حيث اننا سبق وان جهزنا العمود B في الورقة لهذا الغرض

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information