الشيباني1

اخواني الاعزاء اهنئكم بحلول عيد الاضحى المبارك متمنيا" لكم ولمنتدانا العزيز كل التقدم والازدهار

اخواني الاعزاء تحية طيبه ترى هل شملت طلبي حول الترحيل برمجة ما ليبقى دون اية ملاحظة من اساتذتنا الاعزاء منذ 11/2 مع الشكر والتقدير

اخواني الاعزاء تحية طيبه مشكلتان ظهرتا في برنامج اكسل لم اعرف سببهما وطريقة علاجهما ، الاولى انطفاء ( حفظ باسم .. ) في قائمة ( ملف )لكل اوراق العمل التي اعمل عليها ولكل الملفات اي انها ( محميه او منع استخدامها ) ، وعدم امكانية فتح اية قائمه منسدله بسبب حماية لست طرفا" فيها ولم اضعها ورغم ان الامان منخفض ، ارجو المساعده مع الشكر

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

اخي العزيز مع شكري وتقديري ادرج ادناه الكودين بعد تعديلهما واللذان كان من جراء عملهما ظهور الرسالة التاليه : ( cant excute code in break mode ) عسى ان يكون الخلل في اجراءاتي مع الشكر الجزيل. Sub PrintToAnotherPrinter_1() Dim STDprinter As String Range("A2:J46").Select Application.ActivePrinter = "ýHP Deskjet F2400 series Úáì ýNe03:" ActiveSheet.PrintOut End Sub Sub PrintToAnotherPrinter_2() Dim STDprinter As String Range("A2:J46").Select Application.ActivePrinter = "ýCanon MF3200 Series Úáì ýNe05:" ActiveSheet.PrintOut End Sub

استاذنا العزيز مع تحياتي كلي امل في الحصول على مبتغاي مع الامتنان

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

اخي العزيز مع تقديري تم التعديل وتم الطبع بطابعة (HP ) كيف اطبع بطابعة (canon ) ما اريده هو امكانية استخدام الطابعتين في الوقت نفسه بزرين مع الشكر

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

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

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

اخواني الاعزاء تحية طيبه في المرفق قائمه وورقتين ارجو التفضل بالمساعده بكود 1- لترحيل محتويات القائمه الى الورقة الاولى المسماة ( مواد ) والى الثانيه المسماة ( خلاصه ) 2- لطبع القائمه بالطابعتين المعرفتين في جهازي (Canon MF3200 Series )و (HP Deskjet F2400 series )بزرين يستعملان حيث تدعو الحاجة اليهما مع شكري وتقديري ترحيل.zip

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

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

اشكرك اخي العزيز على هذا الشرح الوافي وارائع تحياتي

استاذنا العزيز الكلمات تعجز عن الشكر والامتنان زادكم الله من علمه وفضله وجزاكم خير الجزاء وادامكم لنا مرجعا

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

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

استاذنا العزيز ملاحظة انتبهت اليها متاخرا وهي ان جميع اقيام الماده (E)في العمود (I)عند استخدام زر التشغيل هي (2500) مما اوحى اليكم ان المعادلات في العمود (L) كان فيها شك ارجو المراجعه مع الامتنان

استاذنا العزيز وانت بخير انشاء الله وجعل الله ايامك راحة وهناء والى يوم السبت احببت ان استفسر عن : - المعادلتان اللتان تضمنها العمودان (AوL)، هل بالامكان تضمينهما في الكود ؟ حيث لم يجر اي اجراء بشانهما . - زر التشغيل وكيفية نسخه الى البرنامج الذي اعمل عليه ؟ - الفائده من (macro 1 )حيث لم اجد له اي تاثير في عمل الكود . مرة اخرى اشكرك على ما تجود به وما لم تستطع المنتديات الاجنبيه حله .

أخي العزيز ابداع ما بعده ابداع جزاك الرحمن خير الجزاء وادامك لنا مرجعا ، استفساران متروك الرد عليهما لمجالكم ، هل يمكن انزال البيانات التي تضمنها الكود الرائع عن طريق زر ؟ وهل يمكن ادخال المعادلتين في المرفق (العمودين AوL) ضمن الكود ، مع الامتنان والتقدير معادلات الى كود2.zip

أخواني الاعزاء تحية طيبه في الملف المرفق معادلات في الخلايا (g5:j10000) اتساءل عن امكانية الغاءها والاستغناء عنها باكواد تقوم بعملها مع الامتنان معادلات الى كود.zip

استاذنا الكبير الآن وضحت الرؤيه وتم التوصل الى ما كنت اطمح اليه الكلمات تعجز عن الشكر جزاكم الله خير الجزاء وادامكم علما" لمنتدانا الرائع

استاذنا العزيز عند تطبيق التغيير (مسار الحفظ ) على المثال المرفق اليكم لم تظهر اية مشكلة ولكن بعد نسخ الكود الى الملف الذي استخدمه وهو طبق الاصل من حيث المدى واسم الورقة وانشاء صفحة باسم (TAREQ)واجراء ما يلزم للتنفيذ لم يحفظ الجدول وظهر التعليق التالي الذي ارجو ان يكون حله بسيطا" باذن الله (Run - time is error 1004 )ثم( worksheet من الفئة chart objects لا يمكن الحصول على الخاصية )شاكرا" مساعدتكم مع الامتنان

رائع بكل معنى الكلمه جزاك الله خير الجزاء وادامك الرحمن لنا مرجعا