عبدالله المجرب

اخي الفاضل tofimoon4 جرب المرفق اخي حاول ان تقوم بتعبئة البيانات في الخانات حتى تصل الى العمود (J) ولاحظ النتيجة اضافة سطر.zip

اخي ابو جمال المشكلة هذه ظهرت لانك قمت بالنسخ للزر من الملف الخاص بي الى ملفك ولم تقم بنسخ الكود في ملفك ثم او انك لم تختار الميكرو المنسوخ للزر وابقيته علة الميكرو السابق شاهد المقطع لحل هذه المشكلة الشرح 2.rar

اخي المعادلة عبارة عن جزئين الجزاء الاول IF(A4="","", وهذا يعني شرط ان اذا كانت الخلية A4 خالية فان الخلية التي بها المعادلة تبقى خالية (جرب مسح هذه الجزئية ولاحظ الفرق) الجزاء الثاني =A4 وهذا يعني ان هذه الخلية تساوي الخلية A4 في القيمة ((للعلم)) يوضع الجزء الاول من المعادلة لاخفاء الخطاء الناتج عن خلو الخليةالتي تعتمد عليها المعادلةمن اي قيمة في المرفق زر يظهر لك فورم (من اعداد الاستاذ عادل حنفي) تختار منه الصفحة التي تريد الذهاب اليها (يمكنك تسميتها باسم العامل) وكذلك يوجد زر للعودة للقائمة الرئيسية يمكنك ان تقوم بسخة ولصقة في جميع الاوراق ابواحمد ابو احمد 2011-1.rar

اخي ابو جمال هل هذا هو المقصود الاخفاء.rar

من تنسيق الخلايا يمكنك علم المطلوب المرفق به ما تريد ابو احمد2011.rar

ان شاء الله لن يكون هناك مشاكل تم استبدال الكود السابق بكود اخر شاهد المرفق ووافني بالنتيجة Ss2.rar

اخي الفاضل totytota هل جربت ضبط تنسيق الخلية

اخي ابو سارة الكود المرفق (منقول) يمكنك تغيير رقم التكست بوكس الذي تريد تحديد الارقام من 1 الى 10 فيه Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value > 10 Then TextBox1 = "" MsgBox "يمكنك ادخال الارقام من 1 الى 10 فقط" End If End Sub ابو احمد

اخي ابو سارة اذا كان المقصود بعدد الارقام التي يمكن ادخالها في التكست بوكس مثلا ثلاثة ارقام كحد اعلى او اربعة ارقام كحد اعلى فيمكنك من خلال properties والصورة المرفقة توضح ذلك توضيح.rar

اخي الفاضل ماهر هذا الكود يوضع في زر الطباعة Private Sub CommandButton2_Click() Me.Hide Sheets("الشهادات").Range("H5").Value = TextBox1.Value Sheets("الشهادات").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$L$40" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("A1").Select End Sub هذا الكود يوضع في زر معاينة قبل الطباعة Private Sub CommandButton3_Click() Me.Hide Sheets("الشهادات").Range("H5").Value = TextBox1.Value Sheets("الشهادات").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$L$40" ActiveWindow.SelectedSheets.PrintPreview Range("A1").Select End Sub كما لاحظت بان البرنامج يقوم باغلاق كل الشيتات واظهار الفورم فقط ولا يمكنك العودة الى اوراق العمل وهذا قد ييسبب خلل في عمل الكودات ارجو ملاحظة هذه المشكلةواخذها في عين الاعتبار ابواحمد

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

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

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

اخي الفاضل طاهر وبعد اذن الاستاذ العزيز جمال اتمنى ان يكون هذا هو المطلوب (يمكنك تغيير التاريخ في الخلايا الخضراء لتلاظ تغير المجموع) ابواحمد إيجا متغير عبر السنوات.rar

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

Private Sub CommandButton2_Click() Sheets("الشهادات").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$L$41" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("A1").Select End Sub ضع هذا الكود في زر امر جديد في الفورم ابواحمد

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

اخي سديس كانت العودة سريعة بفضل الله ثم بفضل الاجراءات السريعة في تخليص معاملة جهاز الواير لس الجديد في المرفق تم اضافة المطلوب الثاني تم استخدام المعادلة INDIRECT ملاحظة عند اضافة اي ورقة جديدة يجب عليك تعريف الخلية F7 وتسميها باسم الورقة الجديدة ""يوجد شرح لهذه الطريقةفي المرفقات"" Ss.rar

الاخ الفاضل سديس تم اضافة الجزاء الاول من طلبك (كود من ابداعات الاستاذ خبور خير حفظه الله) ولكن لضيق الوقت ارفق الملف ناقص (اعذرني) لذا اتمنى من الاساتذة المساعدة حيث انني خلا اليومين المقبلين لن استطيع استخدام النت فارجو المعذرة) ابواحمد Ss.rar

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

الاخ الفاضل عبدالله هذا الموضوع خاص بمنتدى الاكسس وساقوم بنقل نص الموضوع الى منتدى الاكسسس

اخي طاهر اكيد وباذن الله الحل موجود هذا الفورم من ابداعات البش مهندس عادل حنفي حفظه الله ورعاه تفضل المرفق (فيه التنقل بين الصفحات وحذف اي صفحة لا تريدها ويمكنك اضافة صفحات وبالعدد الذي تريد) المطلوب دعوة بظهر الغيب للاستاذ عادل ابو احمد ورقة عمل Microsoft Excel جديد.rar

الاخ الفاضل يرجى ارفاق ملف ليتم التعديل عليه ابواحمد

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