ابو حمادة

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

شكر وتقدير ليك استاذ ياسر ولكن انا اقصد ملف الاكسل نفسه انا ممش عايزه يغلق عن طريق ( ) عايز يتم اغلاق ملف الاكسل عن طريق زر انا عامله في الفورم

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

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

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

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

تجربة2.rar وعند غلق البرنامج يغلق فقط كما في هذه الصورة اتمنى حد يفدنى ويحل هذه المشكله بقالي اسبوع مش عارف احلها مرفق ملف تجربة2.rar تجربة2.rar

هي المشكله صعبه ولا مافيش حد متابع الموضوع دا ؟؟

انا بحاول الغي الغلق بالطريقه المتبعه في الاكسل وعامل نافذة تظهر عند غلق الملف وتسال هل تريد حفظ التغييرات ولا لاء وعند الضغط علي حفظ يتم حفظ المستند والغلق ولاكن هناك مشكله عند غلق الاكسل كله يتم غلق الورك بوك فقط ويبقي الابلكيشن مفتوح وهنا المشكله ال بتمنى القي حل ليها انظر لهذا الكود في الحدث BeforeClose Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If End Sub هذا الكود يعمل جيدا ولكن اذا تم عمله بنفس الطريقه واضافة الاسم المولون باللون الاحمر لا يعمل الكود كما اريد اتمني وجود حل لهذه المشكله سواء الغلق او تفعيل الكود المظلل باللون الاحمر Private Sub Workbook_BeforeClose(Cancel As Boolean) Ab_DVisible False On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If End Sub

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

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

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

السلام عليكم ورحمة الله وبركاته اتمني حد يرد عليا في طلبي دا يوجد ماكرو اسمه kh_wVisible عايز اضيفه مع الكود بنفس الطريقه في الكود وكل ماضيفه للاسف لا يعمل علما ان لاغي علامة x من العمل يعني الاكسل لا يغلق لو ضغطنا علي علامة ( x ) وعامل زر لاغلاق الاكسل يريت اهل الخبرة يفدوني في اصلاح هذا الكود الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If kh_wVisible False End Sub

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

هو طلبي صعب اوى كدا ولا ايه ؟ ولا حد رد عليا

اتمنى من الاخوة الكرام عمل كود طباعه مرفق ملف واتمنى لو امكن شرح الكود لتطبيقي كود طباعه.rar كود طباعه.rar كود طباعه.rar

انا بشكرك استاذ ياسر لاهتمامك

بصراحه مش عارف الملف دا وكلامى حد بيشوفه ويقراه غيري علي المنتدي ولا لاء ومش عارف كدا متاح لاي حد يشوفه ولا انا بكلم نفسي

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

طلب من اهل الخبرة ف الاكسل.rarالسلام عليكم عندي ملف اكسل مطلوب ماكرو لتنفيذ الاوامر المطلوبه مرفق ملف به المطلوب ولكم جزل الشكر يريت حد يفدنى في الموضوع لانه مهم جدا واتمني لو تم التنفيذ مراسلتي علي الفيس بتاعي لاني لم اعرف كيف اتواصل واعرف ان الطلب اتعمل ولا لاء خبرتى بسيطه في النت https://www.facebook.com/profile.php?id=100007403958567 طلب من اهل الخبرة ف الاكسل.rar

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