بخصوص التصفية

[عادلصباح]

الاخوه الكرام كل عام وانتم بخير

ارجو من الاخوة الكرام المساعدة حيث الملف المرفق الكود عبارة عن بمجرد وضع قيمة في الخلية B9 تظهر نتيجة الفرز في العمود B

المطلوب تعديل الكود بمجرد كتابة كلمة (جزء من قيمة الخلية) تظهر النتيجة التصفية في العمود B (تحتوي على الجزء المطلوب) وليس كتابة القيمة بالكامل

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

Adel.rar

Adel.rar

تم تعديل أكتوبر 25, 2012 بواسطه adsabbah

[أبو حنــــين]

لا يوجد مرفق أخي

[عادلصباح]

الاخوه الكرام كل عام وانتم بخير

ارجو من الاخوة الكرام المساعدة حيث الملف المرفق الكود عبارة عن بمجرد وضع قيمة في الخلية B9 تظهر نتيجة الفرز في العمود B

المطلوب تعديل الكود بمجرد كتابة كلمة (جزء من قيمة الخلية) تظهر النتيجة التصفية في العمود B (تحتوي على الجزء المطلوب) وليس كتابة القيمة بالكامل

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

Adel.rar

تم تعديل أكتوبر 25, 2012 بواسطه adsabbah

[أبو حنــــين]

أرجو ان ترسل الملف الذي تريد التعديل عليه

[عادلصباح]

جزاكم الله على اهتمامكم الملف مرفق الان

[أبو حنــــين]

جرب المرفق اخي

تكتب الحرف الاول من الكلمة و تضغط على : أنتر

1Adel.rar

[عادلصباح]

والله يا اخي جزاكم الله خيرا اولا على اهتمامكم وسرعة ردكم وثانيا على الكود الرائع الذي ارسلته

[أبو حنــــين]

العفو أخي

عيدكم مبارك و كل عام و انتم بخير

[عادلصباح]

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

تم تعديل أكتوبر 26, 2012 بواسطه adsabbah

[عادلصباح]

اين الرد ؟؟؟

[أبو حنــــين]

أخي جرب المرفق

2Adel.rar

[عادلصباح]

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

تم تعديل أكتوبر 26, 2012 بواسطه adsabbah

[أبو حنــــين]

هذه بعض التنسيقات على الملف

لا اذري هل تقصد هكذا ام غير ذلك

فرز.rar

[عادلصباح]

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

ولكن انا اقصد كما بالملف المرفق اجعل لون خلفية الخلية أصفر بدل الاحمر (لا اعرف رقم اللون الاصفر) وجعل لون خط الكتابة باللون الاحمر غامق وبخط كبير 16 مثلا وجزاكم الله خيرا

1Adel.rar

[الـعيدروس]

السلام عليكم

Sub adel3()

Range("A9:g9").AutoFilter

Range("NN").AutoFilter , field:=2, Criteria1:="*" & Left(Range("B9"), Len(Range("B9"))) & "*"

Range("b9").Clear

With Range("b9")

.Font.Name = Andalus

  .Font.Size = 16

  .Font.Bold = True

   .Font.Color = 255

   .Interior.Color = 65535

  .HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

End Sub

تم تعديل أكتوبر 28, 2012 بواسطه عباد