وليد فتحي

عليكم السلام ورحمة الله وبركاته اتفضل اخي الفاضل جرب المرفق تم تعديل الكود ليكون General لجميع الارقام جرب وبانتطار ردك 2n2014_63_22.rar

عليكم السلام ورحمة الله وبركاته اتفضل اخي الفاضل لعله المطلوب ولا تستخدم الفاصلة ( , ) او النقطة ( . ) مع كتابة الرقم لان عند استخدامها لا يعتبرها رقم واذا اردت استخدام العلامة العشريه استخدمها عن طريق الاكسيل نفسه عن طريق تنسيق خلايا 2n2014_63_11.rar

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

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

اخي الحبيب ابو طارق برجا ارفاق الملف للعمل عليه

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

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

عليكم السلام ورحمة الله وبركاته اخي مراد انا استعمل ايضا اوفس 2010 ويعمل معي جرب الملف مرة اخري Classeur1.rar

استاذتنا الفاضلة ام عبد الله جزاكي الله كل خير وزادك من علمه وجعل مثواكي الجنه

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

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

اخي وحبيبي في الله الجموعي انا تحت امرك بما يتسع لي من وقت ان شاء الله

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

اخي ابو طارق مين محمد واي وصف انت تقصد

جزاك الله كل خير اخي الجموعي انت والاستاذ رجب جاويش ولكن الكود يقوم بنسخ المفتاح فوق المفتاح قف على المفتاح واحذفه سوف تجد انه يوجد مفتاح اخر تحته انا اضفت لك سطر جديد بالكود لحذف نفس المفتاح اذا كان موجود ثم طباعته كرة اخري Sub Macro1() On Error Resume Next ActiveSheet.Shapes.Range(Array("ÒÑ 10")).Select Selection.Copy For i = 2 To Sheets.Count Sheets(i).Select ActiveSheet.Shapes.Range(Array("ÒÑ 10")).Delete Range("D2").Select ActiveSheet.Paste Next i Range("D2").Select End Sub macro_11.rar

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

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

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

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

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

أخي الحبيب الجموعي الكود الاول كان بيحسب من اول شيت وبالتالي هينسخ المفتاح باول شيت انا عدلت الكود التالي بحيث انه يبدأ من تاني شيت هذا السطر يخلي الكود يبدا من الشيت الاول For i = 1 To Sheets.Count هذا السطر يخلي الكود يبدا من الشيت التاني For i = 2 To Sheets.Count تقبل مروري

Sub Macro1() On Error Resume Next ActiveSheet.Shapes.Range(Array("Button 10")).Select Selection.Copy For i = 2 To Sheets.Count Sheets(i).Select ActiveSheet.Paste Next i Range("D2").Select End Sub جرب الكود التالي اخي الحبيب الجموعي

اخي الجموعي الافضل كما قال الاستاذ رجب جاويش ارفاق ملف ولكن جرب هذا الكود لعله طلبك Sub Macro1() On Error Resume Next ActiveSheet.Shapes.Range(Array("Button 10")).Select Selection.Copy For i = 1 To Sheets.Count Sheets(i).Select ActiveSheet.Paste Next i Range("D2").Select End Sub

عليكم السلام ورحمة الله وبركاته بعد اذن اخي الجموعي اتفضل اخي ابو طارق لعله المطلوب علما بانني لا اعرف اسماء الشيتات علشان اضيفها للمفاتيح بالفورم فمضفتش غير مفتاحين بس وهما الجدول الدراسي للمستوي الخامس جدول المواظبة الشهرية والسنوية ممكن تضيف باقي المفاتيح بنفس الطريقة او عرفني اسماء الصفحات ايه وانا اضيفهالك بالمفاتيح تقبل مروري AMALI 001_11.rar

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