تصحيح كود وضع علامة صح أو خطأ لكى يعمل على نطاق معين

[هانى محمد]

السلام عليكم احبائى الكرام بمنتدى أوفيسنا الحبيب ... أرجو التكرم والتعطف من سيادتكم على مساعدتى فى تعديل هذان الكودان لكى يعملا على نطاق معين وهو D3 : M10 وليس على العمود الثانى فقط ولكم جزيل الشكر وبارك الله فى جهودكم جميعاً

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Target.Font.Name = "Wingdings"
    If Target.Value = "" Or Target.Value = "û" Then
        Target.Value = "ü"
     Else
        Target.Value = "û"
    End If
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Target.Font.Name = "Wingdings"
    If Target.Value = "" Or Target.Value = "ü" Then
        Target.Value = "û"
    Else
        Target.Value = "ü"
    End If
End If
End Sub

True Or False.xlsb

[أ / محمد صالح]

يمكنك حذف هذا السطر 

If Target.Column = 2 Then

وكتابة هذا السطر

If Target.Column > 3 and target.column < 14 and target.row > 2 and target.row < 11 Then

أو هذا السطر

If Not Application.Intersect(Target, Range("D3:M10")) Is Nothing Then

بدلا منه

بالتوفيق

[هانى محمد]

أحسنت استاذ محمد وهذا بالفعل المطلوب جعله الله فى ميزان حسناتك ووسع الله فى رزقك وأكرمك الله وفرج الله لك كربات الدنيا والأخرة

[أ / محمد صالح]

جميعا بإذن الله