محمدعبدالرحيم احمد

أخى الكري شكرآ على البرنامج ولاكن السريال لايتم تفعيله بالبرنامج E-MAIL ID: cluster@blizzard.rox Serial: 1#23452789YJLNTPXJJ12IF1LJMLXHYMZVITTMHD6VEN

جرب هذا السريال gwh28 dgcmp p6rc4 6j4mt 3hfdy

الأخوة الأعزاء أشكر لكم حسن تغاونكم وتفاعلكم تلوين الخلية النشطة بالألوان.rar

الأخ الكريم بعد التحية برجاء تطبيق هذا الكود على جميع أوراق الملف وليس بنسخ الكود بكل ورقة الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) MyColor = 6 If Not IsError(Me.[N_Color_Rng]) Then If Not IsError(Me.[N_Color_Color]) Then If Not IsError(Me.[N_Color_Old]) Then If Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Old] Then Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Color] End If End If End If End If Me.Names.Add "N_Color_Rng", ActiveCell Me.Names.Add "N_Color_Color", ActiveCell.Interior.ColorIndex Me.Names.Add "N_Color_Old", MyColor ActiveCell.Interior.ColorIndex = MyColor End Sub ولكم منا جزيل الشكر والإمتنان

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

UP

نعمة لله بن عبد رب النبى ليس كل الأسمماء

نعمة لله بن عبد رب النبى أخى لايتم فصل هذا الإسم

السلام عليكم ورحمة الله وبركاته هذه أول مشاركة لى بمنتداكم هذا واننى مبتدئ بالإكسيل وقد تصفحت صفحات المنتدى وقد استفدت منكم وارجومن الأخوة الأعزاء أعزكم الله مراجعة الكودالسايق تلوين الخلية النشطة مع حفظ اللون السابق.rar بحيث يتم تفعميله على جميع الأوراق على الاّ يتم نسخ الكود بكل ورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) MyColor = 6 If Not IsError(Me.[N_Color_Rng]) Then If Not IsError(Me.[N_Color_Color]) Then If Not IsError(Me.[N_Color_Old]) Then If Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Old] Then Me.[N_Color_Rng].Interior.ColorIndex = Me.[N_Color_Color] End If End If End If End If Me.Names.Add "N_Color_Rng", ActiveCell Me.Names.Add "N_Color_Color", ActiveCell.Interior.ColorIndex Me.Names.Add "N_Color_Old", MyColor ActiveCell.Interior.ColorIndex = MyColor End Sub ولكم جزيل الشكر