ماجدجلال

up

السلام عليكم ورحنة الله وبركاتة ,, في الملف المرفق , كيف استطيع منع المستخدمين من ادخال بيانات في النموذج الفرعي في حالة كان مربع الاختيار المسمي ( مغادرة النزيل ) بة علامة صح , حيث انة من المفترض ان النزيل في حالة المغادرة تكون حسابتة مغلقة وبالتالي لا داعي للكتابة فيها , ولضمان عدم اخطئ المستخدم وقيامة بالكتابة في حساب نزيل قد غادر الفندق , فانة عند وضع علامة صح في مربع اختيار ( مغادرة النزيل ) لا يستطيع المستخدم الكتابة في النموذج الفرعي , وشكرا جزيل لكم ,,, hotel.rar

شكرا لك استاذ منذر بارك الله فيك وفي علمك ,

السلام عليكم ورحمة الله وبركاتة منذ امس وانا ابحث في هذا المنتدي عن طلبي ولم اوفق , وجدت نماذج وطرق تختلف عن طلبي , والان ارفع اليكم الملف مع المشكلة ارجو منكم المساعدة , في الملف المرفق هناك النموذج ( Guest ) بة مربع نص اسمة ( رقم العقد ) , ارجو منكم التعديل علية بحيث يصبح بمجرد ادخال رقم العقد تظهر بيانات هذا العقد في نفس النموذج , سواء كان العقد تم استخدامة او مازال جديد ,, ارجو منكم المساعدة جزاك الله كل خير , hotel.zip

ارجو ارسال البرنامج بريدي هو mmjj48@yahoo.com

اخي ممكن ترسل لي نسخة من البرنامج لم استطع التحميل , حيث ان الرباط السابق ( رابط التحميل ) يذهب بي الي موقع محجوب ( انا من السعودية ) بريدي هو mmjj48@yahho..com

شكرا للاح حسام ولكن ليس هذا هو المطاوب , لعل هذا هو اطول كود اشوف في حياتي كلها واعقد انني لان اري اطول منة !!!!!!!!!!!! وماذا افعل اذا وجدت فجاة ان بيانات اصبحت اكثر من 1000 خلية هل اعدل علي الكود كلما زاد عدد الخلايا ,, وايضا المطلوب هو ان يتم الانتقال الي الخلية بحسب محتوياتها وليس بحسب رقمها , اي اكتب الرقم الموجود داخل الخلايا فيتم الانتقال اليها , في اعتقادي ان كود الاستاذ المشرف الكبير علي سحيب افضل واكثر مرونة بس يحتاج الي تعديل بسيط جدا لكي تنحل المشكلة ,,, معليش العملية محتاج صبر ,

السلام عليكم ورحمة الله و الحمد لله علي عودة الاستا ذ الكبير علي السحيب هذا الكود صممة الاستاذ علي Private Sub Worksheet_Change(ByVal Target As Range) Dim RoomNo As String Dim fndRoom As Range If Target.Count = 1 And Target.Column = 4 Then If Target.Value > 0 Then RoomNo = InputBox("أدخل رقم الشقة المُراد إدخال بيانات النزيل فيها","نموذج إدخال رقم الشقة") With Columns(3) Set fndRoom = .Find(RoomNo) End With If Not fndRoom Is Nothing Then fndRoom.Offset(0, -2).Select Else MsgBox "رقم الشقة الذي أدخلته غير موجود", vbExclamation, "عفــواً" End If End If End If End Sub وهو يعمل علي النتقال الي خلية في العمود C بناء علي الرقم المدخل خلال MSGBOX المشكلة ان الكود لا يميز بين الرقم 961 والرقم 1 فهو ينتقل الي الرقم 961 بدلا من الرقم 1 الكود مع الشرح المختصر في الملف المرفق , http://www.officena.net/ib/index.php?showtopic=11616

شكرا لك اخي الغالي لي سؤال اذا تكرمت : كيف استطيع الغاء تنصيب البرنامج من الوورد في حالة عدم الحاجة الية ؟؟؟ وشكرا لك

شكرا لك اخي hs889 لقد وصل البرنامجين الف شكر

اخي العزيز hs889 وضعت لك عنوان بريدي ولكن البرنامجيم لم تصلا ,,,, ارجو الا اثقل عليك , والف شكرا لك

اخي العزيز شكرا لك الف شكر وخصوصا علي الامانة في دعم استخدام البرنامج الا في اغراض تعليمية فقط وانا اعد ان استخدم البرنامج فقط فيما يرضي ربنا وللتعليم , ارجو منك كرما ارسال البرنامجين علي العنوان mmjj48@yahoo.com

السلام عليكم ورحمة الله وبركاتة ,,, وشكرا للاخ عادل التفضل بالاجاب علي مشاركتة , والحمدلله انك نجحت في مساعدة نفسك , واتمني ان انجح انا ايضا في الاعتماد الذاتي علي نفسي ايضا , وايضا اشكر الاخ triste علي الوصلة للمنتدي ولقد قمت بزيارتة , ولكن المشكلة انني لا اجيد اللغة الانجليزية ولوكان هذا ممكن لاستعنت بالمساعدة المتوفرة في VBA للاكسيل ,,, اخواني : ما احلي التعاون ولكون جميعا دويا واحدة وندعو للمشرفين الكبار بعودة الي هذا المنتدي مرة اخري والغائب عذرة معة ,,, اتمني للجميع التوفيق ,,,,

اخي عادل حلاوة النجاح عندما يكون من صميم عملك واجتهادك فقط دون طلب العون والمساعدة من الاخرين , وفي الماضي القريب كان هذا المنتدي من افضل المنتديات العربية وانشطها علي الاطلاق في برمجة الاكسيل , ولكن نرجوا من الله تعالي ان ترجع تلك الايام ونري فيها المشرفين يجبون علي مشاركتنا بسرعة كما في السابق حتي انهم كانو يتسابقون في الرد ,,, والحمد للة انك وجدت ما تريد لوحدك , وهذة نعمة عظيمة , لذا ارجو منك ان تساعدني وتعطينا الرد والحل الذي توصلت الية فكل شي لة اجر واعظم الاجر ما كان عند الله , والله يوفقك الجميع لكل خير ,,,,

للرفع

مرة اخري شكرا استاذ فلسطيني لدي تعديل اخري وضروري جدا ,,, من المعروف ان عدد السندات في كل دفتر 50 سند وبالتالي يجب ان تكون نهاية كل مجموعة من السندات من مضاعفات الخمسين , حتي لا تتدخل ارقام السندات بين المجموعات , فمثلا اذا بدا المستخدم اول الشهر السند رقم 24 فهذا يعني ان يجب ان ينتهي عند الرقم 50 وليس 74 كما في الملف السابق ,, طبعا هذا التعديل اخبرني بة احد مستخدمين البرنامدمج وهو ضروري جدا ,, ارجو المساعدة وشكرا

شكرا جزيل لك اخي فلسطيني الف شكرا وجزاك الله عنا كل خير

السلام عليكم ورحمة الله وبركاتة , اخوني الاعزاء , ارجو منكم المساعدة في اعداد ماكرو يقوم بتكوين سلسلة ارقام يكون فيها الرقم الاول من ادخال المستخدم ثم يقوم الماكرو بنقل هذة الارقام( طبعا بعد تكوينها من خمسون رقما ) يقوم بنقلها الي عمود اخري في نفس الصفحة , الملف المرفق يوجد فيها الشرح والتوضيح , اخواني ارجو المساعدة لاني محتاج البرنامج ضروري جدا ,,, http://www.officena.net/ib/index.php?showtopic=11163 الله يوفقكم ,.

شكرا جزيلا لك اخي علي المساعدة , ولي سؤال : ماهي اسماء الملفات التي قمت برابطهما في الكود السابق ؟ اعتقد ان الملف الاول كان اسمة ( test ) . هل هذا صحيح . وما هو اسم الملف الثاني , وشكرا لك اخي مرة اخري ,,, وارجو المساعدة

وكيف استطيع كتابة المسار ؟ ارجو المساعدة , اخي الله يوفقك الموضوع مطروح من فترة طويلة ولم اجد المساعدة ,, ارجوك

للرفع

شكرا لك اخي العزيز جربت الطريقة ولم تنجح , واعتقد ان طريقة الكود هي افضل وانسب , شكرا لك , وفي انتظار رد احد المميزين او المشرفين ,,,

للرفع

للرفع

السلام عليكم ورحمة الله وبركاتة , الكود التالي : Sheets("List").Cells(EndRow + 1, 2).Value = Sheets("البرج(1)").Cells(5, 50).Value يقوم بنقل البيان او القيمة من صفحة الي صفحة اخري في نفس المجلد , ولكن السؤال : ماذا لو اردت نقل الصفحة الثانية الي مجلد منفصل ؟ يعني ما هو التعديل الذي يطرا علي الصيغة السابقة حتي تكون كل صفحة في مجلد منفصلة عن الصفحة الثانية ,, وشكرا للجميع ,