تلوين الصف بجدول أو نطاق عند نقر خلية به

[محمد حسن المحمد]

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

على أن يعود إلى سابق عهده بعد نقل المؤشر عنه...ولكم جزيل الشكر.

أظنه لا يحتاج إلى مرفق لوضوح المطلوب والسلام عليكم

 

[عبد الله بولنوار]

اهلا و سهلا

 

 

الملف موجود من ابداع الاخ ياسر خليل

 

بس لو ادرجت ملفا للعمل عليه

[عبد الله بولنوار]

جرب هذا

محمد حسن المحمد.rar

تم تعديل مايو 31, 2015 بواسطه عبد الله بولنوار

[ياسر خليل أبو البراء]

أخي الكريم أبو يوسف

راجع الرابط التالي عله يفيدك

 

الرابط من هنا

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته..أما بعد أشكر أستاذيّ الكريمين

ولكن هل يمكن أن تتحقق هذه الخاصية دون أكواد...

أعجبني عملكما أيما إعجاب .... جزاكما الله خيراً ولكنني أنتظر ردكما على القيام بذلك دون أكواد.

[ياسر خليل أبو البراء]

أخي الحبيب أبو يوسف

الكود فقط يقوم بوضع قيمة في خلية

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
        Range("P1").Value = Target.Address
    Application.ScreenUpdating = True
End Sub

يمكنك أن تغير الخلية لأي خلية أخرى بعيداً عن مجال البيانات

أما بالنسبة لعملها بدون كود فأعتقد أن غير ممكن

[محمد حسن المحمد]

السلام عليكم أخي أبو البراء الغالي

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

جزاكم الله خيراً ولا أنسى أخي عبد الله بو لنوار الذي ساهم في حل هذه المسألة

مشكور يا أخي عبد الله ولكنني أنا وإياك ننهل من معين أخينا ياسر 

أحبكم في الله.....

[ياسر خليل أبو البراء]

أخي الغالي محمد حسن أبو يوسف

أحبك الله الذي أحببتنا فيه

مشكور على تحديد أفضل إجابة .. وجزيت خيراً على كلامك الطيب الرقيق في حقنا

تقبل تحياتي