تنسيق شرطى بالاكواد

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

ارجو من الأخوة حل هذا الطلب البسيط

عندى ملف يحتوي على شيت اسمه UNSAFE ACTS وعامل بقيه الشيتات عبارة عن فلترة للشيت الأول بحيث كل شركه تكون فى شيت (وذلك باستخدام الماكرو)

اريد عمل تنسيق شرطى فى هذا الملف فى شيتات الشركات

الشرط هو:

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

اسم العامل موجود فى العمود الذي اسمه INVLOVED PERSON

ارجو عمل ذلك التنسيق فى كل الأوراق (بتاعه الشركات) بوضع زر للماكرو

unsafe report REQU.rar

[احمدزمان]

وعليكم السلام و رحمة الله وبركاته

اخي الكريم

اولا: قبل عمل طلبك

ورقة Unsafe Acts حددنا نطاق البيانات وسميناه Unsafe_Data_01

ثم اختصرنا الكوود الى سطرين فقط

Range("Unsafe_Data_01").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

	"A1:I4"), CopyToRange:=Range("A6:i9999"), Unique:=False

والآن يمكنك الإستغناء عن بقية الأوراق البحث الى عاملها

فقط غير البيانات في E2 - E3 - E4

واضغط زر البحث

تطلع النتائج الي تبغاها

جرب المرفق و اخبرني بالنتيجة

Unsafe Acts.rar

[احمدزمان]

وهنا اضفنا كوود التنسيق

Sub Tanseiq()

    Range("A7:I999").FormatConditions.Delete

    Range("A7:I999").FormatConditions.Add Type:=xlExpression, Formula1:= _

	    "=COUNTIF($E$6:$E$9999;$E7)>1"

    Selection.FormatConditions(1).Interior.ColorIndex = 3

End Sub

Unsafe Acts.rar

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

شكرا على الرد ولكن:

اولاً: أنا لا اريد الاستغناء عن أى شيت فى الملف

ثانيا : كود التنسيق لا يعمل حيث يعطينى خطأ

[احمدزمان]

ثانيا : كود التنسيق لا يعمل حيث يعطينى خطأ

العفو -لاشكر على واجب

ثانيا- قد يكون بسبب فرق نسخة الإكسل من 2007 الى 2003

والله اعلم

[الـعيدروس]

السلام عليكم

جزاك الله الف خير استاذ احمد زمان

بعد اذن الاستاذ احمد زمان

بالنسبة للخطاء يمشي حاله مع تمرير الخطاء

Sub Tanseiq()

on error resume next

    Range("A7:I999").FormatConditions.Delete

    Range("A7:I999").FormatConditions.Add Type:=xlExpression, Formula1:= _

		    "=COUNTIF($E$6:$E$9999;$E7)>1"

    Selection.FormatConditions(1).Interior.ColorIndex = 3

End Sub

انشاء الله يتنفذ الكود

والسلام عليكم

[ضاحي الغريب]

اخي واستاذنا المبدع/ احمد زمان

أشكرك واشكـــر الادااره الرائـــعه على ماتبذلــه من جهــود رائعه ....

والمشرفـــــــــــين جميعهم على ما يقدمونه من مجهود مميز ....

و

كلمة شكرا لا تفيهم حقهم .....

و بصراحة يقومون بجهد جبار للرقي بهذا المنتدى......

قدموا الكثير والكثير من أجل الرقي والفاائده للجميع ....

ولا نملك سوااااا أن نشكرهم وندعوا لهم ......

بدوووام الصحه والعااافيه والسعاده ....

وبأذن الله من رقي الى رقي .....

ومن تقدم لتقدم ......

لبناااء صرررح في قمة الرروعه والفااائده ......

ولا أنســــــــى ايضــــــــــا شكر جميع اعضاء المنتدى

اللذن يساهمون بمواضيع مفيده للمنتدى .....

دمتم بحفظ الله و رعايته

---

قمت بتشغيل الملف علي اوفيس 2003 و 2007 يعطي نفس الخطأ في الماكرو علي الفيجول بيسيك

وتقبل تحياتي

[احمدزمان]

السلام عليكم و رحمة الله

اخي الكريم ابو نصار

اشكرك جزيل الشكر على التعديل الرائع للكود

ومرورك وتعديلك شرف لي

جزاك الله كل خير

أخي TOUMANA

استبدل الكود السابق

بهذا

Sub Tanseiq()

on error resume next

	Range("A7:I999").FormatConditions.Delete

	Range("A7:I999").FormatConditions.Add Type:=xlExpression, Formula1:= _

					"=COUNTIF($E$6:$E$9999;$E7)>1"

	Range("A7:I999").FormatConditions(1).Interior.ColorIndex = 3

End Sub

ان شاء الله يمشي تمام

واشكرك على تعليقك الكريم

جزاك الله كل خير

[احمدزمان]

او استبدله ايضا بهذا الكود

Sub Tanseiq()

on error resume next

    Range("A7:I999").SELECT

Selection.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=COUNTIF($E$6:$E$9999;$E7)>1"

Selection.FormatConditions(1).Interior.ColorIndex = 3

End Sub

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

ارجو ارفاق ملف به الحل لأن هذا الكود لايعمل معى اطلاقا

ملاحظه :

لاحظ ان العمودinvolved person

يحتوي على اسم العامل وشركته

ارجو أن يتم التنسيق بناء على تكرار اسم العامل الذي هو جزء من خلايا عمود invloved person

[احمدزمان]

السلام عليكم ورحمه الله وبركاته

يحتوي على اسم العامل وشركته

ارجو أن يتم التنسيق بناء على تكرار اسم العامل الذي هو جزء من خلايا عمود invloved person

و عليكم السلام ورحمة الله وبركاته

هذا الذي لم يسبق لي تجربة عمله

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

شكرا للأخ أحمد زمان على ردوده

وارجو من كل الاخوة حل هذه المشكلة

هل ممكن أن يتم التنسيق بناء على تساوى أى جزء من الخلية مع غيرها

[أ / محمد صالح]

أخي الكريم leprince2007

حينما نصمم برنامجاً نحتاج بعض الأساسيات ونمشي عليها

وفي حالتك هذه ما الدافع وراء جعل اسم العامل وشركته في حقل واحد؟؟!!

إذا كان لابد من وجودهما معاً

يمكنك وضع كل واحد منهما في عمود مستقل ثم دمج الاثنين معاً في عمود ثالث

ويتم التنسيق على العمود الأول (اسم العامل)

وأعتقد بهذه الطريقة تم حل المشكلة

.....

للعلم أنا لم أطلع على الملفات المقدمة منك أو من أخي أحمد زمان

[ياسر أحمد الشيخ]

السلام عليكم ورحمه الله وبركاته

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

أريده أن يقوم بتطبيق التنسيق على خلايا العمود H فقط

Sub Tanseiq()

on error resume next

	Range("A7:I999").SELECT

Selection.FormatConditions.Delete

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= "=COUNTIF($E$6:$E$9999;$E7)>1"

Selection.FormatConditions(1).Interior.ColorIndex = 3

End Sub

وشكرا

تم تعديل ديسمبر 7, 2011 بواسطه leprince2007

[ياسر أحمد الشيخ]

أين الردود يا جماعة

عايز أخلى الكود بدل من تطبيق التنسيق على السطر كله أن يقوم بتطبيقه على عمود E