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

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

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

الملف المرفق الخاص بالموضوع 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 وهكذا في اي صف

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

للرفغ

السلاام عليكم ورحمة الله وبركاته تحية طيبةللاخوة الافاضل فى منتدى اوفيسنا طلب مساعدة فى الملف المرفق حيث يحتوى على فى شيت data على مجموعة من البيانات عبارة عن قراءات سميتها parameter 1,2,3 والجزء الاخر هو حدود هذه المواصفة وسميتها S : parameter L حيث تعبر عن الحد الادنى للمواصفة S: parameter H وتعبر عن الحد الاقصى للمواصفة والمطلوب هو انى استخدم pivote chart بخصائصه المممتازة فى التحليل والفلترة والتحليل ولكن اريد ان احصل على البيانات بشكل مفصل كما فى الرسم البيانى الموجود فى شيت 1 مشكلتى فى pivot انه بيعمل كل المطلوب لكن البيانات يقوم اجباريا بتطبيق واحدة ن المعادلات عليه count,sum , average .....etc فبالتالى تظهر لى البيانات بشكل مجمع وليس مفل كما اريده فى الرسم الموجود فى شيت 1 فهل من مساعدة وأشكركم مقدما specs. test.rar

للرفع

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

السلام عليكم ورحمة الله وبركاته تحية طيبة لاخوانى الاعزاء فى المنتدى الكريم فى المرفق ملف يه مجموعة من البيانات المطلوب : كود ماكرو يقوم باختيار كل الصفوف التى تحتوى فى العمود E مثلا على كلمة production وينسخ كل هذه الصفوف لانى ساقوم بعد ذلك بتصنيفها فى ملفات اخرى حاولت عمل ذلك من خلال الfilter لكن يقوم بنسخ الكل انا اريده فقط ان ينسخ الصفوف التى تحتوي على كلمة production وشكرا test.rar

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

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

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد إخوانى الأعزاء فى الملف المرفق يوجد يوزر فورم بسيطة فيها التاريخ والنوع والسيريال من الى المطلوب هو انه عندما اقوم بتسجيل البيانات فى الفورم وأكتب فى خانة السيريال من (10) وفى خانة الى (15) يقوم الملف بتكرار البيانات التسجيل المتكرر من 10 - 15 يمعنى ان الملف سيقوم بالتسجيل فى الجدول التاريخ والنوع كل واحد فى خانته وفى خانة السيريال يبدا العد 10 11 12 13 14 15 . . بمعنى انع سيقوم بتسجيل نفس البيانات 6 مرات (ليقوم بالعد من 10-15) فى 6 صفوف متتالية أتمنى ان اكون وضحت طلبى بشكل يفى بالغرض وشكرا test.rar

المطلوب يا حضرات انى عايز اضيف الشرط انه قبل ما يظهر الفورم يتحقق ان اسم المستخدم الحالى e5 هو احد اعضاء الفريق B13:B24 انا حاولت وكتبت الكود كده If Range("e5") = Range("b13") Then Application.Run "add_new" else If Range("e5") = Range("b14") Then Application.Run "add_new" Else MsgBox "sorry Only Quality team can make modification so you can not make any modifications for this file" End If ولكن دائما يظهر رسالة خطا فى سطر else if

السلام عليكم ورحمة الله وبركاته انا اريد مساعدتكم فى ماكرو حاولت اعمله بس فيه مشكلة فى الملف المرفق وهو انى عايز اضيف شرط انه قبل ان يظهر userform اضافة عضو جديد ان لازم حد من الفريق القديم هو من يقوم بإضافته انا عملت الماكرو بتاعها بس بيطلع خطأ أرجو تصحيح الخطأ وجزاكم الله خيرا trial macro.rar