كود Vba (Conditional Formatting) احتاج لاختصاره والتعديل عليه

[ميدو63]

السلام عليكم ...الزملاء الافاضل ..اهنئكم بقرب حلول عيد الاضحى المبارك ...

مرفق ماكرو قمت بتسجيلة ويعمل على شيت واحد واحتاج ان امكن الى التالى:-

1- يعمل الكود على الـــ 4 شيتات التالية دون باقى الشيتات ( Specific Text  /  Product Sales / Custom Rule  / Unique Values)

2- يعمل بمجرد فتح الـــ Worksheet (اى دون الضغط على زر او خلافة)

3- اختصار الكود ان امكن.   ...شكرا مقدما ..وكل عام وجميعا بخير

Conditional-Formatting-Text-Color.xlsm

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

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

التنسيق الشرطي يتم إنشاؤه مرة واخدة فقط ويستمر عمله إلى أن يحذف

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

سواء يدويا أو بكود في إجراء آخر مثل

sub mrmas
sheets("sheetname").select
call CFext()
sheets("sheetname2").select
call CFext()
sheets("sheetname3").select
call CFext()
end sub

بالتوفيق

[ميدو63]

أ/محمد صالح ...اشكر ك وسوف احاول  التطبيق وان شاء الله انجح به ...بارك الله لك  ..شكرا