حمادة عمر

لا اجد افضل من هذه الكلمات لاوفيكم حقكم جميعا جزاكم الله خيرا

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

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

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

السلام عليكم الاخ الحبيب / إسلام الشيمي بارك الله فيك اليك شرح الكود ... ارجو من الله ان يفيدك ونسألكم الدعاء بظهر الغيب لوالدي ( رحمه الله ) واي استفسار معك دائما باذن الله Sub SAMA_PRINT() 'السطر التالي نحدد فيه آخر صف به بيانات في العمود d لتحديد البيانات المطلوب طباعتها فيما بعد LR = Sheets("بيانات العملاء").[D20000].End(xlUp).Row 'السطر التالي نستخدمه لاجبار الكود علي الاكمال في حاله وجود خطأ On Error Resume Next 'السطر التالي لاختيار الاعمدة الغير مرغوب في ظهورها في الطباعةوهي هنا العمودين EوH Columns("E:H").Select 'السطر التالي لتنفيذ عملية الاخفاء للاعمدة المختارة والمحددة في السطر السابق Selection.EntireColumn.Hidden = True 'السطر التالي نقوم بمسح منطقة الطباعة المحددة تلقائيا من الاكسيل لتحديدها بنفسنا فيما بعد Sheets("بيانات العملاء").PageSetup.PrintArea.Clear 'السطر التالي نحدد فيه نطاق البيانات المراد ادخالها في نطاق الطباعة المطلوب ' في الشيت المحدد ( بينات العملاء) وهي هنا من الخلية a1 وحتي آخر صف به بيانات LR Sheets("بيانات العملاء").PageSetup.PrintArea = Range("A1:D1000" & LR) 'السطر التالي نعطي امر لطباعة النطاق المحدد مباشرة في السطر السابق 'ويمكننا تغيير الطباعة المباشرة الي المعاينة بتغيير PrintOut الي PrintPreview 'لتكون المعاينة اولاً Sheets("بيانات العملاء").PrintOut 'السطر التالي نختار الاعمدة التي تم اخفاؤها في بداية الكود Columns("E:H").Select 'السطر التالي يقوم بعملية عكسية لاظهار الاعمدة التي تم اخفاؤها قبل ذلك 'لاعادة الوضع الي ما هو عليه ( بطبيعته ) Selection.EntireColumn.Hidden = False 'السطر التالي لاختيار الخلية A1 بعد تنفيذ الكود تماما Range("A1").Select 'السطر التالي لانهاء الكود والمهمة بالكامل End Sub تقبل خالص تحياتي

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

السلام عليكم بعد اذن استاذي الحبيب / أبو حنين ... جزاه الله خيرا واخي الحبيب / الجموعي ... جزاه الله خيرا كنت قد جهزت رد سريع ... ولكن انقطع التيار الكهربائي ( ولم يكتمل الا الطلب الاول ) وبعد ان رأيت رد ابو حنين ( الذي ليس بعد رده رد ) ارد ارسال الرد لاثراء الموضوع فقط تقبلوا خالص تحياتي مرتبات1.rar

السلام عليكم الاخ الكريم / هاني مصطفي الاخ الحبيب / إسلام الشيمي تقبلوا خالص تحياتي

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

شاهد المرفق بعد التعديل اوردارات العملاء11.rar

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

بالفعل طريق جميله وتصميم ممتاز جزاك الله خيرا اخي الحبيب / زمزم علي حبك الدائم لافادة الجميع بكل معلومه تقبل خالص تحياتي

الاخ الكريم الحبيب / اسلام الشيمي بارك الله فيك عذرا فلم افهم المطلوب .. حيث ما ذكرته هو مايتم بالضبط في المرفق الأخير حيث انه لا يتم طباعه الا الاعمدة ( الموديل /العدد / السعر/ الاجمالى ) فقط الخاص بالعميل المفلتر وكذلك النطاق المطلوب ... فاين المشكلة برجاء مزيد من التوضيح او ارسال صوره لما تريده ان يظهر في الطباعه بعد الفلتره كمثال وللطباعه مباشرة في الكود السابق استبدل السطر التالي الموجود في الكود السابق Sheets("بيانات العملاء").PrintPreview بالسطر التالي Sheets("بيانات العملاء").PrintOut تقبل خالص تحياتي

جزاك الله خيرا اخي الكريم / ابوغريب

السلام عليكم الاخ الحبيب / إسلام الشيمي بعد اذن استاذي الحبيب / أبو حنين ... جزاه الله خيرا وعلي حسب فهمي لطلبك استخدم الكود التالي Sub SAMA_PRINT() LR = Sheets("بيانات العملاء").[D20000].End(xlUp).Row On Error Resume Next Sheets("بيانات العملاء").PageSetup.PrintArea = Range("A1:D" & LR) Sheets("بيانات العملاء").PrintPreview End Sub تقبلوا خالص تحياتي اوردارات العملاء.rar

السلام عليكم الاخ الحبيب / abuomayma بارك الله فيك كل الشكر علي التهنئة الغالية من شخصكم الكريم وأسأل الله تعالي أن أكون دائما عند حسن الظن بي جزاك الله كل خير

شاهد الرابط التالي في المشاركة رقم 8 المرفق طريقة وضع باسورد لمحرر الاكواد فيديو http://www.officena.net/ib/index.php?showtopic=47554&hl=%2B%D8%A8%D8%A7%D8%B3%D9%88%D8%B1%D8%AF+%2B%D9%85%D8%AD%D8%B1%D8%B1+%2B%D8%A7%D9%84%D8%A7%D9%83%D9%88%D8%A7%D8%AF#entry287890

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

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

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

الاستاذ القدير العلامة الخبير عبد الله باقشير تقبل خالص تحياتي