السلام عليكم ورحمة الله وبركاته
المساعدة في دمج اكواد كيف احل هده المشكلة
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E3")) Is Nothing Then
UserForm2.Show
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal x As Range)
ActiveSheet.Cells.Interior.ColorIndex = 0
x.EntireRow.Interior.ColorIndex = 4
End Sub