عادل حنفي

السلام عليكم اخي يوسف تم تجربة الملف و هو يعمل بكل كفاءة و عموما قد تكون حملت الملف القبل الاخير لذا سارفق هنا اخر ملف مع الرجاء من الاخوه اذا كان هناك اي مشكله من عدمه فبرجاء اخبارنا عن نتيجة عمل الملف تحياتي Last Add Remove copy قائمة منسدله.rar

السلام عليكم اخواني الملف بعد تعديل عدة اخطاء تحياتي Last Add Remove copy قائمة منسدله.rar

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

السلام عليكم نظرا لطلب احد الاخوة اضافة خاصية النسخ تم اضافة هذه الخاصيه ارجو الملاحظات تحياتي Last Add Remove copy قائمة منسدله.rar

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

السلام عليكم نظرا لطلب الاخوة كيفية وضع ملف فلاشي علي الاكسل 2007 ارفق لكم ملف فيديو يوضح الطريقة و احببت ان ارد هنا لتكتمل المعلومة عند البحث لكيفية ادراج ملف فلاشي سواء علي 2003 او 2007 تحياتي 2007.rar

السلام عليكم اخي الفاضل يوسف عطا ارفق مثال لمطلوبك لان الطلب غير واضح فلا ادري ما المقصود بالنسخ من احد الشيتات تحياتي

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

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

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

السلام عليكم اخي جرب هذا الكود و ضعه في محرر اكواد الملف في Thisworkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveWorkbook.Close savechanges:=False End Sub مرفق مثال تحياتي 11.rar

السلام عليكم بالعودة الي الملف المرفق في المشاركة قبل السابقه للتكمله عليه لتعديل ال History و علي فكرة انا اعتبرت ايضا ان المندوب المقصود به Manager اتمني ان اكون اصبت ايضا قد تم عمل زرين احدهما save History و طبعا هذا لحفظ الملف الحالي و بالمدي المطلوب فيالشيت H و تم الاعتماد هنا علي خليتان و هما اسم المندوب و التاريخ التان سيتم البحث عن مندوب معين في تاريخ معين في شيت H اما الزر الاخر و هو Get History فعند الضعط عليه تظهر كمبو بوكس ستقوم بتحميل اسماء المناديب و التي اقترحتها سابقا و التي قد قمت بعملها في العمود z و التي يجب ان تسجلي بها اسم كل مندوب جديد و هكذا سيتم ظهوره لاختياره في قائمة منسدله في K4 بدلا من كتابته يدويا لتلافي اخطاء الكتابه كذلك تم عمل مذي اخر لنفس السبب في العمود AA لاسماء الاطباء لكتابة اسمالطبيب مرة واحدة و بعد ذلك يتم اختياره و ليس كتابته من المدي D11 الي D19 و عند اختيار اسم مندوب معين في الكمبوبوكس سيتم لكي تجميع التواريخ المحفوظ له بها يوم في ال History تتظهر في العمود AB و الذي تاخذمن مداه القائمة النسدلة الموجوده في الخلية p5 ختاري التاريخ الذي تريديه في هذه الخليه وعند الضغط علي زر Get سيتم الذهاب الي الشيت H و اظهار البحث المطلوب جربي الملف و اخبريني النتيجة خالص تحياتي file01322233333333.rar

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

السلام عليكم و لاني لم افهم المراد عمل له HISTORY بالضبط تم اعتبار الصف الخاص بالطبيب هو المراد عمل هذا له ارجو ان اكون قد اصبت تم عمل في صفحة Daily Report (MR) زر اسمه NEW و ذلك لمسح بيانات هذا الشيت لتجهيز الشيت لتسجيل بيانات يوم اخر و يجب عليكي عدم مسح بيانات اليوم يدويا لان هذا الزر ايضا يتم هن طريقه ايضا ضبط المسلسل الذي ستمسح البيانات علي اساسه عند اختيارك ل EDIT فرقم المسلسل اصبح هاما و يجب عدم التعديل اليدوي به تم تسمية صفحة الـ HISTORY باسم H و عند اختيار DONE فانه سيتم الترحيل لكامل الصف مع التاريخ الي H و البيانات المختارة سابقا الي Doctor list مع ملاحظة ان الطبيب الذي سيكرر اسمه في صفحة ال Doctor list سيرحل فقط الي صفحة H فقط اما عند اختيار EDIT فانه تتم مسح البيانات الخاصهبهذا الصف من ال H و Doctor list معا تم عمل قائمة منسدله بالعمود الثالث و اخاصة ب AM,PM,PH بدلا من كتابتها كل مره و اقترح عليكي عمل قائمة للاطباء لاختيار اسم الطبيب منها منعا من الخطأ في الاسم الذي يؤثر فيما بعد عندما تطلبي بيانات عن طبيب معيت المهم لن اطيل عليكي فهناك بقية للموضوع و لكن جربي المرفق الان و اخبريني ملاحظاتك ليتم التكمله خالص تحياتي file0132233332.rar

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

السلام عليكم تم عمل اختيار اخر في القائمة المنسدله و هو Edit و التي سيتم مسح البيانات الخاصه بهذا الطبيب من صفحةDoctor list عند اختياره تجهيزا لتعديلها في صفحة Daily Report MR و من ثم اختيار Done بعد التعديل ليتم ترحيلها مرة اخري و طبعا تم افتراض ان من سيتم تعديله هو اخر فرد في صفحةDoctor list اما بخصوص الـ History اشرحي لي البيانات التي تريدي ان ترحل في هذه الصفحة لاني لا اعلم الكثير عن عملك فارجو التوضيح مع ملاحظة اضافة بعض الرسائل التي تفيدك اثناء العمل خالص تحياتي file013222.rar

السلام عليكم الاخت الفاضله سريعا و علي ما فهمته جربي المرفق و بدلا من التشيك بوكس و اظنه هذا ما تقصديه قد وضعت قائمة منسدله عندما يتم اختيارك لما بداخلها و هي كلمة DONE و هنا لابد من توافر بيانات في كل من العمود الرابع و الخامس و السابع و الذي المفروض ان ما به من بيانتات هو ما تريدي ان ترحليه فان لم تكتمل هذه البيانات لن يتم الترحيل و ستاتيك رسالة تفيد بان البيانات غير كامله و ان تكرر اسم الدكتور ستاتيك رسالة بمنع الترحيل وغير ذلك سيتم الترحيل و تاتيك رسالة تفيد انه تم الترحيل مع عمل معادلتان لعدد الاطباء و الصيدليات ارجو التجربة و ابداء الملاحظات خالص تحياتي file01322.rar

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

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

السلام عليكم اخي semsemfox ارجو رؤية الملف المرفق و ابداء الملاحظات علما بانه تم استخدام صفحة لفلترة ارقام الفواتير و هي صفحة تصفيه تم استخدام دالة VLOOK2ALL و التي اشتهر بها اخينا وغائبنا الحاضر ابو تامر و ذلك في صفحة يوميه لفلترة بيانات كل فاتوره تم رفع ملفان احدهما ب اوفس 2003 و الاخر باوفس 2007 يعملان دون اي مشكله لن اطيل عليك جرب الملف و اخبرني النتيجة خالص تحياتي العملاء19000.rar

اللام عليكم اخي اعذرني لم ار ملاحظتك عموما ساري ما استطيع عمله تحياتي

السلام عليكم اخي يوسف عطا لك مشاركتان سالت بهما الاولي وكانت الاسئلة كيف يمكن تحويل معادلة إلى كود كيف يمكن تحويل ماكرو إلى كود ليقوم كود بكتابة معادله نفترض اننا نريد ان الخليه H11 يكون بها معادله تجمع ما قبلها في نفس العمود اي من الخلية H1 الي الخلية H10 و سنقوم هنا بعمل هذا بطرق مختلفة لتوضيح ما سبق اولا عن طريق زر قم بادراج زر كما سبق ذكر ذلك و اضغط عليه مرتان سيظهر لك سطرا اتب بينهما الكود ليكون الشكل النهائي بالشكل التالي Private Sub CommandButton1_Click() Range("h11").Formula = "=SUM(h1:h10)" End Sub عند تحديدد اي خليه في الصفحة المفتوحة افتح صفحة محرر الاكواد و اضغط مرتان علي اسم الصفحة التي تريد وضع الكود بها و اختار من القائمة اليسري WORKSHEET و من اليمني SELECTIONCHANGE ستجدان مؤشر الماوس ينبض بين سطران اكتب بينهما الكود ليكو الشكل النهائي كالتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("h11").Formula = "=SUM(h1:h10)" End Sub جرب بنفسك و اسئل علي ما يستعصي عليك اما سؤالك الاخر انا فهمت انك سجلت ماكرو و تريد ربطه بزر اذا كان ما فهمته صحيحا فستكون الاجابة كالتالي عندما يتم تسجيل ماكرو فان الماكرو يعطي اسما متسلسلا Macro1 و2 و3 ....الخ اذهب الي الماكرو المسجل و انسخ مابين السطران sub macro1() وend sub وقم بادراج زر و اضغط عليه مرتان و الصق ما تم نسخه بين سطري الزر او اكتب بين سطريه call macro1 و ذلك لاستدعاء عمل الكود Private Sub CommandButton1_Click() Call Macro1 End Sub اما مشاركتك الاخري فقد كان طلبك كالتالي هذا الكود لا يعمل ولا أعرف السبب المفروض إن الأعمدة من X إلى IV فى أحد الشيتات تختفى بدون زر Private Sub Workbook_Open() Columns("x:iv").Select Selection.EntireColumn.Hidden = True Range("A1:A1").Select End Sub أرجو توضيح أين الخطأ وكيف نتلافاه اخي ان تطلب بالكود اخفاء مجموعة اعمده لذا فالخطأ بالكود انك لم تحدد الشيت الذي يتم فيه هذا الاجراء لذا يجب ات يكون الكود بالشكل التالي Private Sub Workbook_Open() Sheets("sheet1").Select Columns("x:iv").Select Selection.EntireColumn.Hidden = True Range("A1:A1").Select End Sub لك خالص تحياتي

السلام عليكم اخواني انا اشعر بان التفاعل بطيئ ومع ذلك ساكمل لفتره و ان لم اجد تفاعلا فساعتبر ان الموضوع ليس له اهميه و بالتالي سيتم ايقافه اين تضع الكود اولا يجب معرفة ما تريد ان يقوم بعمله الكود فاذا كان الكود يخدم غرض ما بصفحة ما او شيت ما وسيرتبط بزر عندالضغط عليه يتم عمله فهذا ما تم شرحه سابقا اما اذا اردت ان يكون تاثير الكود عند بداية فتح كامل الملف بان الملف مثلا يفتح علي صفحة معينه مع تحديد اولا يجب معرفة اماكن الحدث لكل شيت و كذلك الحدث لكامل الملف اذا قمت بفتح محرر الاكواد كما ذكرنا سابقا ستجد علي اليسار و ستكون علي الشكل التالي SHEET1(SHEET1) SHEET2(SHEET2) SHEET3(SHEET3) THISWOKBOOK فان ضغطنا علي اي منهم فستظهر صفحة محرر الاكواد الخاصه بهم و ستجد قائمتان منسدلتان تختار من احدهما WORKSHEET اذا كنت قد ضغط مرتان علي اي شيت من الثلاثة شيتات او تختار WORKBOOK عندما تضغط مرتان علي THISWORKBOOK اما الاخري فتختار منها الحدت الذب تريد ان يتم عمل الكود فيه و يجب هنا التفرقة بين محرر اكواد اي شيت و محرر اكواد THISWORKBOOK فالاولي تكون خاصة بما يتم كتابتة للحدوث داخل هذه الصفحة بعينها اما الاخري فما يكتب بها ان لم يتم تحديده يكون المقصود به كامل الملف اهم الاحداث و الشائع استعمالهاناتي اولا بالنسبه للشيتات Private Sub Worksheet_Activate() End Sub و هذان السطران يكتب بينهما الكود الذي يراد عمله لمجرد فتح هذهالصفحة بالذات Private Sub Worksheet_Change(ByVal Target As Range) End Sub و هذان السطران يكتب بينهما الكود الذي يراد عمله عندما يتم التغيير في اي خلية داخل الصفحة ان لم يتم تحدي ذلك [codPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub e] و هذان السطران يكتب بينهما الكود الذي يراد عمله عند تحديد اي خليه في كامل الصفحة ان لم يتم تحديد ذلك ونفس الشيئ بالنسبه ل THISWORKBOOK مع اختلاف ان ما يكتب في الشيتات كما ذكرنا يخص الشيت الكتوب به اما ما يكتب في ال THISWORKBOOK يخص كافة الملف و عندما تضغط مرتان علي ال THISWORKBOOK بدلا من ان تختار من القائمة المنسدلة WORKSHEET فستجد بدلا منها WORKBOOK ارجو الاسئلة في هذه الجزئية للتوضيح خالص تحياتي

السلام عليكم اخي طارق بارك الله فيك و في اعمالك و جعلها ان شاءالله في ميزان اعمالك و اسمح لي بالمشاركة فقد قمت بالعمل علي الملف و قد قابلتني مشكلة في ان يكون ناتج قسمة الاعملاء علي الموظفين به كسرا و هذا ما اخرني لرفع الملف حالص تحياتي و تقديري test1.rar

السلام عليكم اخي هشام شلبي بارك الله فيك مجهود تشكر عليه الاخ سامي عطا كلامك مضبوط و لا نريد ان ندخل في اكواد ضخمه تفقدنا هدف المقصود من الموضوع فمن يريد التعلم بالفعل لابد له من البدء بهذه الاكواد البسيطه و مع الوقت سيفهم ويتعلم الاكواد الاكبر فالاكبر ومقتبس من كلامك الاتي للرد عليه لم يكن رايك مخالفا اخي و هذا هو بالفعل هدفنا اما سؤالك فهو سؤال هام جدايستحق الاجابه عليه فعند تفكيرك لعمل كود يجب معرفتك اين ستضعه و هل ستحتاجه في صفحة اخري ام لا و لا اريد ان اكرر سؤالك و ادعو لي ان تكون اجابتي وافيه الاجابة اولا و قبل ان انسي هناك شريطان للادوات التي تحتاجها مثل و ضع زر وربطه بكود او وضع كود له الشريط الاول و الذي شرحته سابقا و الذي تظهر شريط ادواته من view ثم toolbars ثم تختار control toolbox اما الشريط الاخر فيظهر بالضغط علي view ثم toolbars ثم تختار Forms و الفرق بين الاول و الثاني هو ان الاول و يدعي الزر به CommandButton و تغيير اسم الزر يكون عن طريق Properties او الخصائص و التي تستطيع فتح نافذتها عن طريق كليك يمين بالماوس علي الزر في وضع التصميم و التي منها تستطيع التعديل علي اسم الزر و نوع الخط و لون الزر و اشياء كثيره يجب عليك تجربتها و لكتابة الكود لهذا الزر تضغط عليه مرتان فتظهر لك صفحة محرر الاكواد كا شرحت سابقاو كتابة الكود له فيكون داخل محرر اكواد الشيت الموضوع به الزر و يمكنه استدعاء ماكرو عن طريق الامر call مقترنا باسم الماكرو اما الزر في شريط الادوات الاخر فهود يسمي Button ولمجرد رسمه علي الصفحة تظهر لك نافذه الخاصة بـ Assign Macro لاختيار ماكرو تم عمله مسبقا فيظهر لك اسمه في هذه النافذه و تضغط علي OK و هكذا تم ربط هذا الزر بهذا المكرو و عند ضغطك علي هذا الزر سيتم عمل الماكرو و يكون وضع التصميم لهذا الزر هو ان تعمل كليك يمن عليه و هنا تسطيع تغير اسمه بتحديد اسمه من علي الزر مباشرة و تغيره و التحكم بجم الفوت من شريط ادوات الاكسل العادي او يمكنك كتابة كود لهذا الزر فعند ظهور النافذه الخاصة بـ Assign Macro اختر منها New لتكتب الكود الذي تريده لهذ الزر و يكون الكود لهذا الزر في مديول و هنا يجب التفرقه بين الكود الذي يكتب داخل صفحة محرر اكواد الشيت و الذي يتم عمله داخل مديول فالكود المكتوب داخل الشيت فهو يخدم الشيت و الازرار الموجوده داخل الشيت ان كانت مر تبطه بكود مكتوب داخل محرر اكواد الشيت اما الكود المكتوب داخل المديول فيمكنك من طلبه داخل اي شيت داخل ملف العمل اكتفي هنا بهذا القدر حتي لا اتشعب في الموضوع مرفق ملف فيديو لكيفية اظهار الاشرطه و اي استفسار ارجو التنبيه عليه و لنكمل بعد ذلك الجزء الباقي خالص تحياتي اظهار الاشرطه.rar