الشيباني1

استاذنا القدير مع جزيل شكري وتقديري على هذا التعديل الرائع اتساءل عن امكانية اجراء تعديل اخير يقوم بترحيل البيانات الاقدم عند تغيرها الى جدول رقم (2) فمثلا اذا قلت ديون الوكيل (D) الى (5.5) وفعلنا الكود لا يقوم بالترحيل الى الجدول المطلوب مع الامتنان

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

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

اخواني الاعزاء لا زلت منتظرا لأني لن يخيب بأذن الله ظني مع الامتنان

الاخوة الاعزاء تحية طيبه جاد استاذنا الكبير عبد الله باقشير بالكود الرائع الذي تتضمنه المشاركه هذه والذي لبى حاجتي كثيرا ، ارجو (ان كان ذلك ممكنا) تضمين المعادلات المؤشره بالاصفر في الملف المرفق بنفس الكود او آخر مع الامتنان معادلات الى اكواد2.zip

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

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

استاذنا الكريم تحية طيبه لا زلت منتظرا لأني لن يخيب بأذن الله ظني

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

استاذنا الكبير اشكرك وادامك الرحمن لنا منقذا

اخواني الاعزاء تحية طيبه الحاجة ماسة الى عمل زر لتفعيل الكود في المرفق وآخر لالغاء التفعيل مع الامتنان حماية الخلايا التي فيها معادلات.zip

استاذنا العزيز جزاك الرحمن خير الجزاء وادامك لنا مرجعا

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

اخواني الاعزاء بعد التحية احببت ان اسأل هل يمكن تنقيذ الانتقاء للقائمه لطبعها او لا ؟ مع تقديري

اخواني الاعزاء تحية طيبه ارجو المساعده بطريقة لاختيار القائمه المطلوبه في ورقة ( الفواتير ) وطبعها مع الامتنان حفظ القائمه في نفس ملفها.zip

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

اخي العزيز مع شكري وتقديري كما مثبت في رسالتي الاخيره الطابعه الاولى هي الافتراضيه التي تطبع ك(pdf ) ومنفذها كما موضح امامها ( ‎CPW2 )والثانيه كانون للطباعة الاعتياديه ومنفذها (‎Ne06) مع الامتنان

اخي العزيز تحية طيبه ارجو التقضل بوضع الطابعتين ادناه ضمن كود او كودين ليقوما باداء المطلوب منهما منعزلتين حيث ان الاولى تستخدم للحفظ ك(pdf) والثانيه للطباعه الاعتياديه مع الشكر Application.ActivePrinter = "‎CutePDF writer على ‎CPW2:" Application.ActivePrinter = "‎Canon MF3200 Series على ‎Ne06:"

اخواني الاعزاء تحية طيبه ادناه كودان لطبع مدى على طابعتين المشكله انني عند ضغط زر الطابعه الاولى ( التي هي افتراضيه ) وانجاز مهمتها والتحول الى الطابعة الثانيه ( كانون ) لطبع المدى وضغط الزر الخاص بها تبقى الطابعة الاولى مما يضطرني الى الاستعانة بالطريقة التقليديه للطباعه . ما وددت الحصول عليه تعديل في الاكواد او كود جديد لاداء مهمتي الطابعتين مع الامتنان Sub copy_pdf() ' ' copy_pdf ماكرو ' الماكرو مسجل ‎12/01/2011 بواسطة ‎USER ' ' Range("A2:J47").Select Application.ActivePrinter = "‎CutePDF writer على ‎CPW2:" Selection.PrintOut Copies:=1, ActivePrinter:="‎CutePDF writer على ‎CPW2:", _ Collate:=True Range("B2:J47").Select End Sub Sub print_2() ' ' print_2 ماكرو ' الماكرو مسجل ‎30/12/2012 بواسطة ‎USER ' ' Range("A2:J47").PrintOut Copies:=1, Collate:=True Application.ActivePrinter = "‎Canon MF3200 Series على ‎Ne06:" End Sub

استاذنا الكبير رائع كعادتك دائما جزاك الرحمن خير الجزاء وادامك لنا مرجعا

اخواني الاعزاء تحية طيبه في المرفق كود يقوم بترحيل بيانات الى اوراق تتضمن اشهر السنه ارجو التفضل بالمساعده بكود آخر يقوم بترحيل هذه البيانات الى ورقة ( الخلاصه ) حسب الترتيب الظاهر فيها مع الامتنان monthly report.zip

حل رائع من استاذ اروع بوركت الايادي وادامكم الرحمن لنا منقذا

اخواني الاعزاء تحية طيبه في المرفق قائمه اقوم بترحيل محتوياتها بكود الى صفحة الصادر ، ما وددت الحصول عليه كود لاستعادة البيانات المرحله حسب رقم القائمه وذلك حين الطلب من قبل المستفيد بنسخة اضافيه او للتدقيق مع الامتنان والتقدير invoice 1.zip

استاذنا القدير اشكرك جدا وادامك الرحمن لنا منقذا

اخواني الاعزاء تحية طيبه في احدى اوراق برنامج اعمل عليه كود لحماية المعادلات , لدى عمل كود لطباعة مدى محدد ضمن الورقة لم يتم ذلك بسبب وجود الحمايه . كيف يمكن اجراء تعديل على كود الطباعه لانجاز المطلوب مع الامتنان. كود الحمايه Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Intersect(Target, Range("e12,i12,h40,h42:h44")) Is Nothing Then Cells(Target.Row, 1).Select End Sub كود الطباعه Sub print_1() ' ' print_1 ãÇßÑæ ' ÇáãÇßÑæ ãÓÌá ý16/12/2012 ÈæÇÓØÉ ýUSER ' ' Range("B2:J47").Select Selection.PrintOut Copies:=1, Collate:=True Activewindow.ScrollRow = 31 Activewindow.ScrollRow = 18 End Sub