السلام عليكم
الاخوة الافاضل
هذا الكود في حدث دبل كليك في الورقة
عند الضغط دبل كليك على اى خلية في العمود رقم 2 يتم كتابة عبارة حجب في العمود رقم 92 من نفس الصف
وعند الضغط على العمود رقم 3 يتم مسح محتوى خلية العمود 92
والمشكلة ان هذا الامر ينطبق على كل العمود
والمطلوب ان يتم التطبيق في على مدى محدد مثلا من الصف رقم 20 الى الصف رقم 100
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo D_Date
If Target.Column = 2 Then Cells(Target.Row, 93) = "حجب"
If Target.Column = 3 Then Cells(Target.Row, 93) = ""
D_Date:
Application.EnableEvents = True
Application.ScreenUpdating = False
End Sub