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

[AtefAbuDaif]

السلام عليكم

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

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

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

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

[ابراهيم الحداد]

السلام عليكم ورحمة الله

ضع هذا الكود فى حدث الورقة المقصودة

الحذر من الضغط على الخلية بدون قصد فيضيع مجهودك هدرا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Select Then
Range("C2:C4").ClearContents
End If
End Sub

 

تم تعديل أغسطس 31, 2017 بواسطه زيزو العجوز

[سليم حاصبيا]

بعد ان اخي زيزو           هذا الكود للتحذير

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

 

[AtefAbuDaif]

5 ساعات مضت, زيزو العجوز said:

السلام عليكم ورحمة الله

ضع هذا الكود فى حدث الورقة المقصودة

الحذر من الضغط على الخلية بدون قصد فيضيع مجهودك هدرا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Select Then
Range("C2:C4").ClearContents
End If
End Sub

 

جزاك الله خيرا"