حسين العصلوجى

Set ws = Worksheets("ÇáãÈíÚÇÊ ÇáÔåÑíÉ") Set ws2 = Worksheets("ÇáãÍÞÞ") ws2.Range("C3:H96").Select Selection.ClearContents For x = 13 To ws.Range("k65536").End(xlUp).Row If Val(ws.Cells(x, 11)) >= 0.9 And ws.Cells(x, 2) <> "ÇáÃÌãÇáíÇÊ" Then ws2.Cells(ws2.Range("c65536").End(xlUp).Row + 1, 3) = ws.Cells(x, 2) Else If ws.Cells(x, 2) <> "ÇáÃÌãÇáíÇÊ" Then ws2.Cells(ws2.Range("f65536").End(xlUp).Row + 1, 6) = ws.Cells(x, 2) End If End If Next End Sub يمكن التحكم فمعايير الكود عن طريق الجزء المحدد Val(ws.Cells(x, 11)) >= 0.9

هذا المرفق يعمل كما طلبت حيث يظلل ما دون ال 79% بالاحمر وما فوقه بالاخضر بالنسبة للشرح فهذا عن طريق التنسيق الشرطي وستجد له اكثر من شرح بمنتدي الاكسل وساجلب لك بعضهم اما عن استبدال اكواد ال VBa بمعادلات الاكسيل فهذا ممكن لكنها تؤدي لبطء الملف وزيادة حجمه لذلك لا افضلها H-مستهدف شهرى.rar

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

المطلوب غير واضح تماما كما قال الاخ / عطاء ارفق مثال لتوضيح المطلوب

اتمني ان يفي هذا المرفق بالغرض واي تعديل اخبرني به H-مستهدف شهرى.rar

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

الملف يعمل علي اساس ان تاريخ التعيين هو تاريخ استلام العمل وان الفئة هي الوظيفه اتمني ان يفي الغرض واي تعديل تريده اخبرني به H-تحديث بيانات.rar

لايوجد مرفق

2H-الاسماء.rar جرب المرفق لعله يفى بالغرض

H-استخلاص اسم الاب.rar جرب هذا بدوال الاكسل لعله يفى بالغرض

الاخ / siddiq يمكنك اضافة ماتشاء سواء كانت خلطات او اصناف مفردة في نهاية الجدول الموجود بصفحة المخزن وستظهر تلقائيا في القائمة المنسدلة وارحب باي اضافات تطلبها علي الملف.

تفضل اخى المرفق لعله يفى بالغرضH-مخزن عطارة.rar

الاخ / Siddeq ما تطلبه هو نفسة فكرة التصنيع المطبقة بحسابات التكاليف انا فهمت ما تريد وان شاء الله ساعمل علي تحقيقه لك

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

جرب هذا المرفق لعله يطون المطلوب H-shscan.rar

الاخ الفاضل قيمة الفتورة قبل العمولة = (قيمتها بعد العمولة * 100) / (100+قيمة العمولة) قيمة العمولة = القيمة بعد - القيمة قبل المرفق مطبق به الحل H-Book1.rar

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

=IF(K12=1;(($AI$10/AQ21)*((F_H*1.5)+(N_H*1)));(($AI$10/AQ20)*((F_H*2)+(N_H*1.5)))) ده تصحيح المعادلة

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

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

ابشر اخى انتظر التعديل

لا يوجد مرفق

ياريت توضح اكثر ايه المشكلة التي واجهتك وان شاء الله تجد الحل

Sub Aslogy2() Application.ScreenUpdating = False Set ws = Sheets("data") Set ws2 = Sheets("Call") Rows(4).Select Selection.Copy RF = Application.Match(Val([c1]), ws.Range("b1:b65536"), 0) ws.Select Rows(RF).Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub الاخ / سمير ده كود التعديل الاخ العزيز / خالد القدس انا عملت الكود علي افتراض ان رقم الفاتورة لايتكرر وبالتالي فان عملية الاستدعاء او التعديل تعتمد علي سطر واحد H-استدعاء1.rar

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