roushdy

بارك الله فيك اخى ولكن عند تنفيذ الماكرو والجدول خالى من البيانات تظهر رسالة خطأفى الكود كيف يتم معالجة ذلك ؟

عمل رائع ولى سؤال لو سمحت هل يمكن ان يكون رقم الفاتورة تلقائى

اخى الفاضل hben بارك الله فيك هذا الكود يكفى ولك جزيل الشكر

ارجو كود او مكرو يقوم بمسح محتويات جدول

ارجو كود او مكرو يقوم بمسح محتويات جدول

اشكرا اخى الحبيب على رقة قلبك ولكن هذا الأجراء لا يتم بــ office 2007 لوجود اكثر من جدول ولهذا سأعيد تطويع البرنامج لــ office 2003 وانتهز هذه الفرصة واقترح على السادة الأفاضل استاذة هذا المنتدى والسادة الأعضاء الأفاضة فى التعامل بالأكواد التى تناسب office 2007 ,office 2010 حيث ان الكثير قام بالعمل بوندوز 7 أو فيستا التى لا تعمل بالأوفس 2003 ومرة اخرى ادعوا لسيادتك بالتوفيق

اشكر كل السادة الذين قاموا بالرد على موضوعى وانا اعلم ان هناك فى المؤسسات من يقوم بتحميل البرنامج على السريفر ولكن انا سأصيغ سؤالى بشكل اخر - هل يمكن ان يتم تحميل برنامج مبرمج بالأكسل على الويندوز 2003 على سبيل المثال؟ - وإن امكن ذلك هل يمكن فتح البرنامج على الحواسب المشتركة مع السريفر بشبكة محلية والعمل عليه وذلك لتعدد المخازن؟ - وما هى الخطوات لعمل ذلك ؟ وعلى هذا الصعيد ولتفعيل كل هذه البرامج المبهرة بمنتدانا الغالى للعمل بها وليس للدراسة فقط , لأنى وبكل فخر اعددت برنامجى وهو برنامج كبير للمخازن بفضل ما تعلمته من اساتذة هذا المنتدى , بل افخر انى تلميذ لهؤلاء العباقرة

شكرا يا عزيزى

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

اعزائى اساتذة المنتدى ارجو افادتى : لدى برنامج مخزنى من تصميمى واريد وضعة على سريفر للعمل به على كافة الحواسب المشتركة مع السريفر بشبكة محلية ولدى بعض الأستفسارات : 1- ماهو الويندوز المناسب للسريفر حيث ان الحواسب الملحقة تستخدم office 2007 . 2- كيفية تحميل البرنامج على السريفر 3- كيف يمكن العمل على البرنامج بالحواسب المشتركة ارجو التكرم بالشرح المفصل ولكم جميعا جزيل الشرك

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

الله ينور عليك يا ابو تامر

بارك الله فى عمل يديك وللفائدة تعبت جدا فى تطبيق الكود ففى البداية كان يقوم مكرسوفت اكسل بأغلاق الملف عند فتح الملف الثانى ولكن تنبهت ان السبب هو ان المصنفات كانت محمية بكود حماية المعادلات ، فقمت بألغاء الحماية فقام الكود السابق بالعمل بشكل جيد وللمرة الثانية هذا هو ما تعودناه منك " عبقرى " الف شكر ولكن هناك سؤال هل يمكن ان يقوم الكود السابق مع وجود حماية مناسبة للمعادلات بالمصنفات المراد فتحها من المستند الأول

الف مبروك الأستاذ خالد القدس وبارك الله فى عافيتك واتمنى المذيد من الترقى

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

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

هو ده الكلام تسلم ايدك رشدى

الأساتذة الكبار وفعلا انا وجدت ان كل المشرفين والخبراء والمراقبين لمنتدانا الغالى فى غاية الأهتمام برقى منتدانا وسرعة تلبية النداء للمبتدائين مثلى السادة الكرام اريد ان اعرف كيف اغلق مصنف به ارتباط تشعبى يقوم بفتح ملف او مصنف اخر وان يكون اغلاق المصنف الأول فور فتح الاخر ومرفق ملف: Roushdy.rar

فكرة جميلة ولكن الميديا بلاير يظهر هل من الممكن عدم اظهار ملف التشغيل مثل الميديا بلاير او الريالبلير او غيره

الأخ الكريم justic على بركة الله والله سبحانه يوفقك وبداية نشكر تعب محبتك تلميذكم رشدى

جزاك الله خيرا يا عبقرى الأكسل

شكرا الأستاذ نزار وسيكون الكود بالشكل الأتى : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then MsgBox "Sorry" 'ActiveSheet2.Protect Else 'ActiveSheet2.Unprotect End If MyPassword = "123 For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub

الأستاذ الفاضل نزار استخدمت هذا الكود فى برنامجى عن المخازن ولكن قام بتعطيل ماكرو ترحيل حتى انى اضفت موضوع جديد لأيجاد حل وكان سؤالى كالأتى : السادة الكرام مراقبين ومشرفى منتدانا الغالى] وجدت مساهمة لأحد الأعضاء بكود يخفى المعادلات بورقة العمل ولكن بعد تطبيقة على احد مشاريعى وجدت انه يعطل ماكرو ترحيل الصف الذى اقف عليه لورقة اخرى فهل يتكرم السادة الكرام بايجاد حل لهذه المشكله وكود اخفاء المعادلة: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then MsgBox"الخلية محمية" ActiveSheet2.Protect Else ActiveSheet2.Unprotect End If End Sub فارجو بعد ان وجدت اضافتك هذه التكرم بالرد على استفسارى وهل يكون الحل باضافة على الكود السابق ام ماذا ولسيادتكم جزيل الشكر

موضوع رائع واستفدت من الأكواد جدا وجارى دراسة مواضيعك فمنها يمكن الأستفادة بفكرة الأكواد مطبقة عمليا ولا يسعنى الا ان اشكر هذا المجهود الرائع

[السادة الكرام مراقبين ومشرفى منتدانا الغالى] وجدت مساهمة لأحد الأعضاء بكود يخفى المعادلات بورقة العمل ولكن بعد تطبيقة على احد مشاريعى وجدت انه يعطل ماكرو ترحيل الصف الذى اقف عليه لورقة اخرى فهل يتكرم السادة الكرام بايجاد حل لهذه المشكله وكود اخفاء المعادلة: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then MsgBox"الخلية محمية" ActiveSheet2.Protect Else ActiveSheet2.Unprotect End If End Sub