احمدزمان

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

وعليكم السلام ورحمة الله وبركاته اخي محمود جزاك الله كل خير

اخي الكريم ياسر الحافظ ابداع × ابداع جزاك الله كل خير تقبل مروري

او استبدله ايضا بهذا الكود 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

السلام عليكم و رحمة الله اخي الكريم ابو نصار اشكرك جزيل الشكر على التعديل الرائع للكود ومرورك وتعديلك شرف لي جزاك الله كل خير أخي 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 ان شاء الله يمشي تمام واشكرك على تعليقك الكريم جزاك الله كل خير

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

السلام عليكم تم عمل المطلوب بالتنسيق الشرطي و التحقق من صحة برنامج الاجازات جديد.rar

جزاك الله كل خير وبارك الله فيك استاذ سعيد بيرم

السلام عليكم ولا يهمك بسيطة

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

اخواني الكرماء ياسر الحافظ اشكرك جزيل الشكر على كلماتك الحنونة و الرقيقة التي تطر الإنسان لمد يد العون ايا كانت الصعاب - جزاك الله كل خير واحسن الله اليك كما تحسن الينا وعبد الله المجرب اشكرك جزيل الشكر على متابعتك واهتمامك الدائمين ومشاركاتك الفعالة التي تدل على انك نابغة جزاك الله كل خير

وعليكم السلام ممتاز جزاك الله كلخير على هذا الشرح بس الشرح ناقص قليلا جرب انك تستخدم هذا الشرح مع ورقة يكون فيها اسم الورقة فيه مسافات او علامات ؟ - * لن تعمل الدالة معاك اذاكنت ماتعرف كيف انا اعرف كيف

وهنا اضفنا كوود التنسيق 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

انا لاعرف اذا تتكرم وتشرحها لنا يبقى تفضلت علينا و جزاك الله كل خير

وعليكم السلام و رحمة الله وبركاته اخي الكريم اولا: قبل عمل طلبك ورقة 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

اخي الفاضل - وعليكم السلام ورحمة الله وبركاته استخدمت كود للعمل على التصفية كمافهمت من سؤالك تم تعديل دالة آخر اجازة آمل ان يكون هذا المطلوب برنامج الاجازات جديد.rar

طيب تبغة تربط ملفين وراسل ملف واحد بس وتبي تربط عدة ملفات وراسل ملف واحد بس بس ياريتني اعرف الحل

يا ايها الشهابي السلام عليكم و رحمة الله وبركاته انا مش رايح استحملك وبس انا معاك للآخر شوف الملف المرفق انا نزلته من المشاركة السابقة وعدلت علية من 91 الى 61 ورحلت من التاسع الى الخريجين وكانت النتيجة كما ترى في المرفق الآن انته رحل من الثامن للتاسع وجرب و اخبرني اية النتيجة الشهابي-ترحيل_بشروط.rar

لالأسف الملف عندي لم يفتح على 2003

جزاك الله كل خير ابو نصار متابعة وخبرة بارك الله فيك

السلام عليكم اخي يوسف حمدا لله على عودتك

اخي الكريم الفاضل احمد جزاك الله كل خير عمل رائع اللهم آمين

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

الحمد لله نفس النتيجة Normal

تنسيق الملف Copy Of برنامج محاسبة غير صالح ================ ولم يفتح الملف