عبدالرحمن بدوى

الرجاء حذف الموضوغ لتكرار

جزاكم الله خيرا هو المطلوب بالضبط

الملف المرفق الخاص بالموضوع case.xlsm

بص هو إلي اعرفه إن الثغرة المشهورة بتاعة تحويل الملف إلي مضغوط وفتحه والتحكم في ملفات xml الخاصة باللف يمكن التغلب عليها بتحويل الملف xlsb لأن الملفات جواه بتكون binary ودي صعب شوية علي العامة فتحها

السلام عليكم ورحمة الله وبركاته كل عام وانتم من الله أقرب. علي طاعته أدوم والي الجنة أقرب وعن النار ابعد واسأل الله إن يجعلنا من عتقائه من النار في رمضان وإن يجعلنا من المقبولين وإن يبلغنا فضل ليلة القدر عندي طلب مساعدة في دالة select case الملف المرفق يحتوي علي 2 شيت الأول data وفيه جدول لتسجيل بينات للمنتجات products بمواصفاتها p1, 2,3,4&5 الشيت الثاني specification وفيه 3 منتجات product 1,2 &3 وفيه كل منتج فيه مجموعة من المتطلبات أو المواصفات p1, 2,3,4&5 وعندنا user form 1 فى الماكرو فيها (compobox (product 1,2,3 والمواصفات أو المتطلبات إلي قلنا عليها p, 2,3,4,5 المطلوب هو إنه عندما يتم اختيار product 1 فى الكومبوبوكس يتم أوتوماتيكيا استدعاء قيمة p1, p2, p3, p4, p4 من جدول product 1 الموجود في شيت specification وكذلك حين اختيار product 2 يتم استدعاء مواصفاته من الشيت وهكذا أنا حاولت أعمل دالة select case لكنها لآسف لا تعمل أريد المساعدة من أحد الاخوة الافاضل فى المنتدي إما بتصحيح الكود الخاص بي أو المساعدة بكود أخر وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته كل عام وانتم من الله أقرب. علي طاعته أدوم والي الجنة أقرب وعن النار ابعد واسأل الله إن يجعلنا من عتقائه من النار في رمضان وإن يجعلنا من المقبولين وإن يبلغنا فضل ليلة القدر عندي طلب مساعدة في دالة select case الملف المرفق يحتوي علي 2 شيت الأول data وفيه جدول لتسجيل بينات للمنتجات products بمواصفاتها p1, 2,3,4&5 الشيت الثاني specification وفيه 3 منتجات product 1,2 &3 وفيه كل منتج فيه مجموعة من المتطلبات أو المواصفات p1, 2,3,4&5 وعندنا user form 1 فى الماكرو فيها (compobox (product 1,2,3 والمواصفات أو المتطلبات إلي قلنا عليها p, 2,3,4,5 المطلوب هو إنه عندما يتم اختيار product 1 فى الكومبوبوكس يتم أوتوماتيكيا استدعاء قيمة p1, p2, p3, p4, p4 من جدول product 1 الموجود في شيت specification وكذلك حين اختيار product 2 يتم استدعاء مواصفاته من الشيت وهكذا أنا حاولت أعمل دالة select case لكنها لآسف لا تعمل أريد المساعدة من أحد الاخوة الافاضل فى المنتدي إما بتصحيح الكود الخاص بي أو المساعدة بكود أخر وجزاكم الله خيرا case.xlsm

السلام عليكم ورحمة الله وبركاته أولا تحية الى احبتى الافاضل في منتدانا الجميل كل عام وانتم من الله اقرب وعلى طاعته ادوم والى الجنة اقرب وعن النار ابعد اخوانى الافاضل في الشيت المرفق ملف لعمل مواصفات لمنتج معين اريد منكم مساعدة في اختصار كود لعمل تنسيق شرطي ل textbox عندى مواصفة لمنتج معين الحد الأدنى في الشيت ممثل في b4 و textbox2 والحد الأقصى لمواصفة المنتج ممثلة في c4 , textbox3 المطلوب هو انه عندما أقوم بإدخال النتيجة في textbox1 يتحقق الاتى 1- اذا كانت النتيجة ما بين الحد الأدنى والاقصى (داخل المواصفة) يتلون textbox1 بالاخضر 2- اذا كانت النتيجة اكبر من c4 يتلون باللون الاصفر 3- اذا كانت النتيجة اقل من b4 يتلون بالاحمر انا قمت بكتابة هذا الكود ونجح معى في تحقيق ما اريد Private Sub TextBox1_Change() Dim a As Double Dim b As Double a = Sheets("data").Range("B4").Value b = Sheets("data").Range("c4").Value On Error Resume Next Select Case TextBox1.Value Case a To b TextBox1.BackColor = vbGreen Case 0 To a TextBox1.BackColor = vbRed Case Is > b TextBox1.BackColor = vbYellow End Select End Sub ولكن المطلوب لو احد الافاضل يساعدنى بكود اصغر لتحقيق نفس الهدف لأن الفورم عندى سوف تحتوى على 15 منتج وكل منتج به 27 عنصر (parameter) يعنى هحتاج لكتابة الكود 405 مرة فلو امكن تصغير الكود او يكون هناك كود مختصر يكون افضل وشكرا لكم conditional formating.xlsm

أشكرك اخى الفاضل على المساعدة انا اخترت الكود الثانى لانى شعرت انه اخف واسهل ولكن مع بعض التعديلات الشيت كان بيقفل الجهاز اصلا ولغيتها وكان بيقفل الاكسل كله عدلته انه يقفل الشيت المطلوب فقط الكود كما يلي Option Explicit Public vartimer As Variant Sub Timer() Call Stop_timer vartimer = Format(Now + TimeSerial(0, 0, 10), "hh:mm:ss") If vartimer = "" Then Exit Sub Application.OnTime TimeValue(vartimer), "autimatic_close" End Sub Private Sub autimatic_close() Workbooks("close automatic.xlsm").Activate Application.DisplayAlerts = False ActiveWorkbook.Save ActiveWorkbook.Close 'Shell "shutdown -s -t 02", vbHide End Sub Sub Stop_timer() On Error Resume Next Application.OnTime earliesttime:=vartimer, _ procedure:="autimatic_close", schedule:=False On Error GoTo 0 End Sub

السلام عليكم ورحمة الله وبركاته تحية طيبة الاساتذة الافاضل في هذا المنتدي الراقي مرفق صورة لكود وظيفته كالتالي Timer & reset time وظيفتهم عمل عدادوبعد الانتهاء حفظ الملف واغلاقه Add time وظيفته انه يضيف 5 دقائق في الخلية a1 Stop timer وظيفته ايقاف العداد الهدف من الملف هو اني عايز الملف يقفل بعد وقت معين من ترك الملف بدون اي تعديل الفكرة انه بيضيف العداد ولما يوصل صفر يحفظ ويقفل الملف فعلا شغال معايا كويس جدا لكن فيه مشكلة انه لازم يبقي الفايل مفتوح ومفعل عشان الكود يشتغل اظن عشان الجزء ده من الكود Application. Activesheet.range انه هنا لازم الشيت يكون فعال لكن لو فتحت ملف تاني وفعلته واشتعلت عليه الكود ده بيطلع error ويقف عمله المطلوب مساعدة في ان الكود يشتغل ايا كان الملف مفعل او لأ يعني لو معمول minimize او ملف تاني هو الي فعال بيحصل error والكود يتوقف عن العمل ومعذرة اني ارفقت صورة بس لأني بكتب من الموبايل لان الملف في الشغل وماينفعش اخذه وشكرا مقدما

تم حل المشكلة Sub selectdate() Range("b8").Select seldate = Format(ActiveCell.Value, "mm/dd/yyyy") Selection.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, seldate) End Sub test2.xlsm

للرفع اريد عمل فلترة للتاريخ فقط على الموضوع

شكرا اخى الحبيب على اهتمامك

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

السلام عليكم ورحمة الله وبركاته لو سمحت محتاج كود ماكرو يكون دوره ان اي تغيير في في الخلية الموجودة في العمود10 (وهو العمود j) يقوم بنسخ قيمة الخلية الموجودة في العمود 2 (وهو العمود b) ولصقها في الخلية الموجودة في العمود 15 (وهو العمود o) وذلك في نفس الصف مثال حين تغيير قيمة الخلية j5 يقوم بنسخ قيمة الخلية الموجودة في b5 ولصقها في الخلية 05 وهكذا في اي صف

او لو فى اضافة فى الاكسل ممكن تحقق الغرض