حمادة عمر

بالنسبة لطلبك بزر الحذف في ملف وكما شاهدته يمكنك عمل زر حذف للفاتورة المختارة بعد البحث بكود من سطر واحد في زر امر حيث انك عندما تقوم بالبحث من خلال الكومبوبكس يتم اختيار الصف الموجود به الفاتورة المختارة وتنشيطة ليكون هذا الامر بحذف الصف النشط كالتالي Private Sub CommandButton1_Click() ActiveCell.EntireRow.Delete End Sub اظن ان هذا يكفي ولكن يجب عليك ايضا التغيير في كود ظهور الفورم باضافة رقم 0 بعد الامر كالتالي Sub show() UserForm1.show 0 End Sub وعذرا لا يمكنني ارفاق ملف الآن لبطء النت الشديد لدي الآن جرب وابلغني بالنتائج تقبل خالص تحياتي

اخي الكريم تقبل خالص تحياتي

السلام عليكم الاخ الكريم / محمد قدومي بارك الله فيك بالنسبة للملف المرفق منك وبخصوص انه كيف يتم اخفاء الشيتات في هذا الملف يوجد بالملف كود في حدث ThisWorkbook والخاص بتنفيذ الاكواد عند فتح الملف من خلال الكود Private Sub Workbook_Open() حيث ان بالملف في الحدث المذكور الكود التالي Private Sub Workbook_Open() Dim oWs As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "الرئيسية" Then ws.Visible = xlSheetVeryHidden Next ws End Sub حيث ان الكود السابق يبحث بالنسبة لجميع اوراق العمل الموجودة في الملف ويقوم باخفاء جميع الشيتات او الاوراق التي اسمها لا يكون باسم ( الرئيسية ) كما في السطر If ws.Name <> "الرئيسية" Then ws.Visible = xlSheetVeryHidden وبالتالي فانه عند فتح الملف يقوم الكود باخفاء جميع الشيتات ما عدا الشيت المسمي ( الرئيسية ) ارجو ان يكون هذا هو طلبك ويفي بالغرض واي استفسار معك دائما باذن الله تقبل خالص تحياتي

جزاك الله خيرا اخي / مصطفي شاهين

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

السلام عليكم الاخ الكريم / الحديثة بارك الله فيك فعلا اخي الكريم طلبك غير واضح تماما ولا يمكن لاحد تقديم المساعدة برجاء اخي الكريم بوضع مثال لما تريده ظهورة ( وعلي ما اظن وعلي حسب ما فهمت ) ان ما تريد ظهوره يكون في صفحة التقارير قمت بمحاولة باحضار تقرير للعميل الذي تريده بعد اختيار اسمه في صفحة التقارير بالضغط علي زر وبالطبع لا اعلم ان كان المطلوب ام لا ولكنها محاولة للوصول لما هو مطلوب في انتظار ردك تقبلوا خالص تحياتي mm-sama.rar

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

السلام عليكم الاخ الكريم / زاكي بوشلاغم بارك الله فيك تفضل اخي المرفقات ... ان شاء الله به طلبك تقبل خالص تحياتي متوسطات-ss.rar

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك وجعل ذلك في ميزان حسناتك وجعلك دائما ممن ينفعون اخوانهم ولاثراء الموضوع اليك رابط الموضوع التالي للقدير / يحيي حسين http://www.officena.net/ib/index.php?showtopic=46925&hl=%D8%AA%D9%81%D9%82%D9%8A%D8%B7 جزاك الله خيرا

الاستاذ القدير / جمال عبد السميع بارك الله فيك لم اري هذا الموضوع قبل ذلك .. تعبنا من السير ورائك في ابداعك بالمعادلات

بالنسبة لطلبك اخي الكريم شاهد اولا الرابط التالي .. المشاركة رقم 24 والخاصة بتنفيذ طلبك في موضوع بعنوان ( خطأ فى استدعاء بيانات فاتوره ) واخبرني ان كان هذا ما تريد حيث ان تنفيذ لطلبك ان شاء الله http://www.officena.net/ib/index.php?showtopic=49712&page=2

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

بالنسبة للطباعة اخي الكريم فكود الاستاذ القدير / هادى محمد المامون سالم يؤدي الغرض المطلوب حسب طلبك الاول تماما اما بالنسبة لطلبك الاخير بخصوص طباعة الصفحات او الصفوف الموجود بها بيانات فقط شاهد الرابط التالي اولا بعنوان ( كود لعدم اظهار الصفوف الفارغة فى الطباعة ) .. هل هذا ما تريده ام لا ... http://www.officena.net/ib/index.php?showtopic=36591&hl=%2B%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9+%2B%D8%A7%D9%84%D8%B5%D9%81%D8%AD%D8%A7%D8%AA#entry193847 اما بالنسبة لاخفاء الاصفار يمكنك ذلك بدون كود من خلال خيارات الاكسيل نفسه فالبنسبة لاوفيس 2007 يتم تنفيذ ذلك كما في الصورة التالية تقبلوا خالص تحياتي

السلام عليكم الاخ الكريم / hema_hn بارك الله فيك تقبل خالص تحياتي

الاخ الكريم / galal elgammal بارك الله فيك مرور طيب وكريم وعلي فكرة اعجبني جدا توقيعك بخصوصو المنتدي " منتدى اوفيسنا ايقونة كسرت حواجز الزمن و المكان " تقبل خالص تحياتي

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

بالنسبة لطلبك الاول .. شاهد الرابط التالي .. ان شاء الله سيفي بطلبك http://www.officena.net/ib/index.php?showtopic=46640&hl=%2B%D8%B1%D8%B3%D8%A7%D9%84%D8%A9+%2B%D9%84%D8%AA%D9%85%D9%83%D9%8A%D9%86+%2B%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88#entry280124 وبالنسبة لطلبك الثاني بخصوص الخصوصية اري انه يمكنك عمل ذلك باي طريقة بسيطة وسهلة مثلا وضع اي علامة في اي خليه مثلا مخفية لا يعلمها لا انت وتتأكد منها بعد ارسال الملفات لك

شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=46497&hl=%D8%A8%D8%B1%D9%88%D8%A7%D8%B2#entry278056

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

السلام عليكم الاخ الحبيب / ابو السوالم بارك الله فيك كنت اعددت لك الرد علي هذا الطلب في وقت سابق منذ وضعه في موضوع الفاتورة ولكن نظرا لبعض الظروف لدي لم استطع ارفاق الملف وعندما دخلت للموضوع وجدت ان التأخير عليك جاء بأكبر فائدة ... فلقد جاءك الحل من الكبير القدير / هادى محمد المامون سالم ... جزاه الله خيرا ... الغائب الحاضر عنا واقول له طالت غيبتك عنا استاذنا العزيز ... لعله خيرا ان شاء الله وايضا الحل الرائع للمتميز دائما صاحب الردود الرائعة الحبيب / حمادة باشا ... جزاه الله خيرا وبعد اذن الاساتذة ... احب ان اشارك الموضوع بالنسبة لطلبك اخي الكريم ** بالنسبة لاضافة بلد جديد قم باضافة اسم البلد في عمود الدول سيظهر معك في ComboBox1 وقمت بزيادة امتداد القائمة في العمود الاول والخاص بالبلاد الي 100 دوله في الكود Private Sub UserForm_Initialize() في السطر myList1 = .Range("A2:A100") ثم اضافتها في حدث الـ ComboBox1 والموجود بالاكواد في Private Sub ComboBox1_Change() وذلك باضافة السطرين التالين كما في الملف المرفق ... وذلك مع تحديد العمود المحدد للقائمة للمحافظات من السطر الثاني col = "P" حيث ان المقصود هنا هو العمود P Case Is = "الامارات" col = "P" ونفس الحال بالنسبة للمحافظات ولكن في الـ ComboBox2 وذلك ايضا في الكود الخاص به Private Sub ComboBox2_Change() وذلك من خلال الاسطر التالية ايضا كما في السابق وكما في المرفق Case Is = "امارات1" col = "R" Case Is = "امارات2" col = "T" حيث ان كل عامود يمثل المحافظات المقصود فالعمود R يمثل محافظات امارات 1 والعمود T يمثل محافظات امارات2 وهكذا .... ارجو ان اكون قدمت شيئا ولو بسيط للافادة تقبلوا خالص تحياتي واعتذر عن الاطاله وجزاكم الله خيرا قائمة منسدلة11.rar

حاول اخي الكريم تسجيل الخروج من الموقع ثم الدخول مرة اخري وشاهد النتيجة

شاهد اخي ملف علي الاصدار 2003 بالفعل الاعمدة مخفية ولكن ظهرت بالطريقة العادية وبكود الاستاذ / ابو حنين ايضا شاهد المرفق Q1 2003.rar

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

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

السلام عليكم الاخ الكريم / صالح أبو أحمد بارك الله فيك مرور طيب وكريم من اخ كريم تقبل خالص تحياتي وسلامي للبحيرة كافة .. (( ومركز النجاح - قرية 29 خاصة )) جزاك الله خيرا