كيف أمنع كتابة كلمة في خلية ضمن جملة بشرط معين ؟

[المتأمل الحسني]

أرجو من الإخوة مساغدتي في منع كلمة معينة ضمن جملة في خلية وفق شروط في المحلق مع الشكر.

 

 

Book1.rar

[ياسر خليل أبو البراء]

أخي الكريم المتأمل

جرب الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code ثم الصق الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 10 And Target.Row > 5 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        
            Dim Stock, Suggested
            With Target
                Stock = .Offset(, -5): Suggested = .Offset(, -3)
                If Stock = Suggested Then If InStr(.Value, "دفع") > 0 Then MsgBox "الرصيد يساوي المبلغ المقترح", 64: .ClearContents: .Activate
                If Stock <> Suggested Then If InStr(.Value, "سداد") > 0 Then MsgBox "يمنع كتابة كلمة سداد حيث أن الرصيد والمقترح غير متساوين", 64: .ClearContents: .Activate
            End With
            
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub

أرجو أن يكون المطلوب ويفي بالغرض

تقبل تحياتي

 

[المتأمل الحسني]

شكر الله لك أخي ياسر ، و العفو على تأخر الرد لعدم توفر الوقت الكافي لتصفح الكود و تجريبه..

 

 

[ياسر خليل أبو البراء]

أخي الكريم المتأمل الحسني

شكرتني ولك جزيل الشكر

هل جربت الكود وأدى الغرض أم أن هناك لبس في الأمر؟