مطلوب كود تنبيه و تلوين الصنف المكرر و المخالف في احد مواضع تكراره في السعر

[onlymanly]

أسعد الله اوقات الجميع بالف خير... و بعد:

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

وافر الشكر و الامتنان لكل ذي فضل و علم .

FY-2012-005.rar

تم تعديل يونيو 25, 2012 بواسطه onlymanly

[جمال عبد السميع]

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

[onlymanly]

هلا اخي محمود...شكرا لاهتمامك ..

حسب المرفق.. معايير التنبيه أربعة.. الرقم للنصف.. ثم الوصف.. ثم السعر ثم اسم المصنع .

[جمال عبد السميع]

أتمني أخي يكون هذا هو المطلوب

FY-2012-005.rar

[onlymanly]

بارك الله فيك اخ محمود على جهدك و تعاونك... لكني اريد الأمر يكون على شكل ماكرو... ثم من غير حاجة إلى ادراج أعمدة لكل معيار من المعايير الثلاثة

المطلوب بشكل اوضح:

تتم أحيانا كتابة بيان التعبئة من قبل الموظف بطريقة خاطئة... لان طبيعة بيان التعبئة توضيح مواضع الصنف في الكراتين -مثلا- فقد يتكرر الصنف في البيان أكثر من مرة لسبب تعدد مواضعه في الواقع

فقد يكون مثلا مويدل رقم (m15) موجودا في كرتون رقم 5 و قد يكون في كرتون رقم 300 و قد يكون في كرتون رقم 24 لهذا قد يخطأ الموظف و يغير سعر الصنف في بعض المواضع في البيان

او قد يخطئ و يكتب اسم المصنع الذي صنع هذا الصنف و يكتب اسم مصنع اخر غير المصنع الحقيقي مما يترتب عليه لخبطة كثيرة في توزيع المبالغ .

أو قد يخطئ في كتابة و توصيف الصنف فقد يسميه في الموضع الثالث او الرابع قلم حبر بينما هو في الموضع الأول الحقيقي : مسطرة .. و هكذا..

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

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

تم تعديل يونيو 27, 2012 بواسطه onlymanly

[onlymanly]

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

و من باب الفائدة للجميع اليك الكود

Sub mack()

Dim rep(1000) As Integer, f, sh As Sheets, nm As String, X, Last As Long, W, WW As Range, ASL As Long, l

Application.ScreenUpdating = False

Set RN_B = Range(Cells(14, 2).End(xlUp), Cells(13, 2).End(xlDown))

Set RN_K = Range(Cells(13, 12).End(xlToLeft), Cells(Rows.Count, 11).End(xlUp))

[A:k].Interior.ColorIndex = xlNo

For Each f In RN_B

SUM_NJ = 0

i = 0

For Each s In RN_B

If s.Value = f.Value Then

i = i + 1

rep(i) = s.Row

SUM_NJ = SUM_NJ + Range("G" & rep(i)).Value

If Range("d" & rep(1)) <> Range("d" & rep(i)) Then Range("d" & rep(i)).Interior.ColorIndex = 3

If Range("h" & rep(1)) <> Range("h" & rep(i)) Then Range("h" & rep(i)).Interior.ColorIndex = 3

If Range("k" & rep(1)) <> Range("k" & rep(i)) Then Range("k" & rep(i)).Interior.ColorIndex = 3

End If

Next s

Next f

End Sub

و هو خاص بملفي المرفق تماما ..و يبقى مسالة تفريغ الخلل الى ورقة مستقلة و هو امر سهل إن شاء الله

تم تعديل يونيو 28, 2012 بواسطه onlymanly