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

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 وليس من اخر رقم

ان شاء الله باعدل الكود اللي انت حطيته عشان نتلاشي هذا الخطأ وتعم الفائدة