تخصيص خلية معينه

[AtefAbuDaif]

السلام عليكم

احتاج معادله او كود لتخصيص خليه معينه لحذف مدخلات متغيره في خلايا اخري 

مثال عايز عن الضغط علي A1 

يحذف كل المدخلات في الخلايا المحدده وليكن

مثلا c2 c4 f6 وهكذا لتعود فارغه كما كانت وشكرا"

[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