عبدالله بشير عبدالله

وعليكم السلام ورحمة الله وبركاته اغتقد ان اوفيس 2010 يشتغل على 32 بث اما الاخر 2013 يشتغل على 64 بث ولهذا يظهر الخطأ ضع هذه الدالة " PtrSafe " بين كلمتى "Declare" و "Function"فى كل سطر تجد فيه هاتين الكلمتين Private Declare PtrSafe Function SetWindowLong Lib "User32.dll" Alias "SetWindowLongA" (ByVal HWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLongPtr As LongPtr) As LongPtr Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long ربما هذا الرابط به الافادة https://xlttn.com/vba/32-bit-and-64-bit-api-declarations-for-vba-developers/

بارك الله فيك وفي ميزان حسناتك

جزاك الله خيرا استاذنا الفاضل

وعليكم السلام ورحمة الله وبركاته الملف وبه الكود headr.xlsm

عند فتح الملف طالب بتمكين الماكرو وبعد التمكين اشتغل على جهازي اوفيس 2010 ويندوز 7 وكما افادك الاستاذ عبد الفتاح اويمكنك تشغيله غن طريق تحويل الملف الىexe الصندوق التعاوني.rar

السلام عليكم محاولة ربما فيها الافادة الترحيل2 (3).xlsm

لو ارفقت ملفا لقمنا بادراج الكود به ملف به كودان ورقة1 اصغظ الزر ورقة 2 كود في حدث الصفحة تذييل.xlsb

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

سؤالك بدون ملف . وطلبك عير واضح على الاقل بالنسبة لي اذا كان طلبك ادراج قيمة خلية من صفجة وادراجها في تذييل الصفحة فيمكنك استخذام هذا الكود Sub FooterFrom_P1() With ActiveSheet.PageSetup .RightFooter = "&14&""Arial,Bold""" & Range("a1").Value End With End Sub شرح الكود RightFooter تذييل يمين 14 حجه الخط Arial,Bold نوع الخط Range("a1").Value قيمة الخلية من الصفجة ويمكنك التعديل في الكود اذا كان التذييل يسار او وسط هذا حسب فهمى لسؤالك وان غير ذلك ارفق ملفا حفظك الله ورعاك

تم تغيير اسم الشيت الى الحروف الانجليزية اصل التقارير.xlsm التقارير.xlsm

قمت بتحميل الملفات مرة اخرى وجربتها وتعمل بكفأءة وليس بها اي مشكلة جرب الملف على جهاز اخر ربما لديك خلل في الاوفيس او يقوم احد الاعضاء بتجربته ويعلمنا النتيجة Sub OECUE1() Sheets("استمارة متابعة").Activate Range("H2").Activate [H2] = 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("x2").Value Range("H2").Activate [H2] = 1 End Sub

هو نفس كود الاستاذ غلي تم تنفيذه على ملفك اصل التقارير والاسماء عدد الآيات..xlsm اصل التقارير والاسماء عدد الاوجه (1).xlsm

اخي الفاضل ....السلام عليكم الكود في الملف الاول به طباعة صفخة اسمها H2 وفي ملفك لا يوجد صفحة بهذا الاسم الكود في الملف الثاني به طباعة صفخة WORKSHEETولا يوحد في ملفك صفحة بهذا الاسم فمن الطبيعي ظهور الحطأ الحل بسيط جدا استبدل في الكود في الملفين Sheets("H2").Activate Sheets("workbooks").Activate بدل H2 و workbooks ضع بدلهما استمارة متابعة وسيعمل الكود باذن الله ولو اانك رجعت الى مشاركتك السابقوالتي اجابك فيها الاستاذ علي لا كتفيت بها ولاغناك عن طلبك هذا اضغط على الرابط لمشاهدة مشاركتك السابقة لكم وافر التقدير والاحترام

طريقة اخرى كشف حساب1.xlsm

جرب الملف تحويل الى \pdf كشف حساب.xlsm

افتح المصننف1 واضغظ على زر استدعاء الملفان يجب ان يكونا في ملف واحد كشف حساب.xlsm المصنف1.xlsb

ما هي الصفحة التي تريد ترجيلها الى ملف اكسل احر او الى ملفpdf

طلبك غير واضح لم توضح الصفحة التي تريد طباعتها الكود امر طباعة والخطأ سببه اسم الصفحة خطأ كما ان الخلايا في الكود h2 x2 ربما لا تتناسب مع ملفك اعد صياغة السؤال موضحا فيه الصفحة او الصفحات المراد طباعتها ومدى الطباعة

الملف لم يفتح على جهازي اوفيس 2010

وعليكم السلام ورحمة الله وبركاته بدون ارفاق ملف الاجابة نعم يمكن ذلك لك وافر الاحترام

جرب الملف ربما يكون طلبك لاتنسى تفعيل الماكرو Aziz.xls

عليكم السلام ورحمة الله بركاته ليس لدي اكسل 2003 على جهازي فيديو توضيحي https://www.youtube.com/watch?v=nfNBYQjbs2c كما يمكنك من ادراج ثم صورة وربطها بماكرو كما يمكنك من خانة ادراج تم اشكال واختيار الشكل المناسب ربطه بماكرو Book1.xls الاكواد Sub Macro1() Sheets("الامتيازات").Select End Sub Sub Macro2() Sheets("الراتب").Select End Sub Sub Macro3() Sheets("الرئيسية").Select End Sub

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

من كنوز المنتدي اتمنى ان يكون فيه طلبك التفقيط بالجنية والقروش (1).xlsm

الكود من المنتدى لاستاذنا عبدالله باقشير ملف2.xlsb