كود صغير جدا و لكن مفيد جدا_تلوين صف الخليه النشطه مع تحديد النطاق

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة  

تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells.Interior.ColorIndex = xlNone
If Target.Cells.Count > 1 Then GoTo 1
    For R = 2 To 6
        With Cells(Target.Row, R).Interior
            .ColorIndex = 8
            .Pattern = xlSolid
        End With
   Next
1 End Sub

 

مرفق الملف و الشرح

__________________.rar

و مشاركه اخرى من أ / ابو اسامة العينبوسي

مرفق الملف و الشرح

HILITE.ra

و مشاركه اخرى من أ / h63

مرفق الملف و الشرح

New_Folder.rar

و لا تنسونا من صالح الدعاء

تحياتى