السلام عليكم ورحمة الله وبركاته
أخواني آمل هذه المرة الرد علي طلبي اريد ايقاف هذا الكود عند نسخ بيانات او اي خلية لا استطيع عمل النسخ في ظل عمل هذا الكود الكود بالملف آمل حل المشكل
الملف كان من احد الاعضاء وليس مني
أخوكم
أحمد
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells.Interior.ColorIndex = xlNone
If Target.Cells.Count = 1 Then
With Rows(Target.Row).Interior
.ColorIndex = 22
.Pattern = xlSolid
End With
End If
End Sub
__________________.zip