ahmed fathy2017

جرب هذا الكود أخي فهو يفي بالغرض .. وكل عام وأنتم بخير Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Answer% If Target.Address <> "$A$1" Then Exit Sub Answer = MsgBox("The range (""C2:C4"") ,Will be Deleted..No Way to Undo." & Chr(10) & "are you sure you want to do this?..", 260) If Answer <> 6 Then Exit Sub Range("C2:C4").ClearContents End Sub

مش عارف اطبق المعادلة دي علي الملف دة .. أرجو من الأخواة الأعزاء مساعدتي .. وشكرا جزيلا أصابات.rar