و عليكم السلام و رحمه الله و بركاته
تسلم اخ طلعت جازاك الله خير
انا محتاج شرح مبسط لاجزاء معينه
If OptionButton1.Value = True Then
If TextBox89.Text = "" Then
MsgBox ("الرجاء ادخال رقم السجل المدني")
TextBox89.Text = ""
Cler
Sheets("sheet1").Range("A1").Select
Exit Sub
End If
Sheet1.Activate
III = 5
Do Until Sheet1.Cells(III, "C").Text = ""
If TextBox89.Text = Sheet1.Cells(III, "C").Text Then
Cells(III, "C").Activate
If ActiveCell.Offset(0, 62).Text = "موجود" Then
ck1.Value = True
ElseIf ActiveCell.Offset(0, 62).Text = "غير موجود" Then
ck2.Value = True
ElseIf ActiveCell.Offset(0, 62).Text = "" Then
ck1.Value = False
ck2.Value = False
End If
ممكن شرح مبسط امام هذه الاجزاء لاني بتوه فيها يجزاك الله خير