السلام عليكم ورحمة الله وبركاته
اتمني من خبراء الاكسل مساعدتي في تصحيح هذا الكود حيث انه يعمل جيدا ولكن الرساله تطهر مرتين ورا بعض
MsgBox "هذه الرساله عند تشغيل الكود تظهر مرتين ورا بعض اريدها تظهر مره واحده فقط"
Private Sub A5_Change()
Dim ws As Worksheet
Set ws = Worksheets("Archives_Bill")
If ComboBox2.Text = "" Then
MsgBox ("ÇáÑÌÇÁ ÇÎÊíÇÑ ÇÓã ÇáÚãíá")
A5.Text = ""
Else
With Me
If Me.A5.Text > Me.A1.Text = True Then
MsgBox "هذه الرساله عند تشغيل الكود تظهر مرتين ورا بع
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("