السلام عليكم و رحمة الله وبركاته
هذا الكود يقوم بتلوين سطر بمجرد الوقف عليه المشكلة عندا طباعة يتم اظهار الون في الورقة هل من حل لاخفاء اللون في طباعة
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 = 19
.Pattern = xlSolid
End With
End If
End Sub
Row.zip