تصحيح كود

[ابو حمادة]

5 ساعات مضت, ابو حمادة said:

Private Sub G3_Change()
Dim Ws As Worksheet
Set Ws = Worksheets("Bill")
If G3 <> "" And G3.MatchFound = False Then MsgBox "  ÝÖáÇ ÇÎÊÑ ãä ÇáÞÇÆãå", vbCritical, "ÎØÃ": G3 = "": Exit Sub
With Me
عند ظهور هذه الرسالة تظهر مرتين ورا بعض 
If .CheckBox2.Value = False And .CheckBox3.Value = False Then MsgBox ("  من فضلك أختر قبل الاختيار"), vbCritical, "ÎØÃ": G3 = "": Exit Sub

Ws.Cells(3, 7).Value = Me.G3.Value
H3 = Ws.Range("T3").Text ' ÇáÞÓã
I3 = Ws.Range("U3").Text ' ÇÓã ÇáÕäÝ
U3 = Ws.Range("X3").Text ' ÇáÑÕíÏ ÈÇáãÎÒä
Y3 = Ws.Range("Y3").Text ' ÓÚÑ ÇáÔÑÇÁ
If CheckBox2.Value = True Then
Ws.Range("B3").Value = "ÔÑÇÁ"
End If
If CheckBox3.Value = True Then
Ws.Range("B3").Value = "ÈíÚ"
End If: End With
End Sub

ارجو من الاخوة الكرام تصحيح هذا الكود حيث ان هذه الرسالة 

If .CheckBox2.Value = False And .CheckBox3.Value = False Then MsgBox ("  من فضلك أختر قبل الاختيار "), vbCritical, "ÎØÃ": G3 = "": Exit Sub

عند ظهورها تظهر مرتين ورا بعض بدون داعي ارجو معرفة السبب وتصحيح الكود وجزاكم الله خيرا

 

 

هذا ملف مرفق اتمني العمل عليه

Book2.rar

 

اتمني حد يرد عليا المطلوب ببساطه تصحيح الكود لكي تظهر هذه الرساله مره واحده اذا لم يتم اختيار احدى من CheckBox  حيث انها تظهر مرتين ورا بعض 

[ياسر العربى]

تفضل

 

Book2.rar

[ابو حمادة]

22 دقائق مضت, ياسر العربى said:

تفضل

 

Book2.rar

شكرا جزيلا اخي الغالي استاذ ياسر