مشكل عدم الادخال

[ahmedhossin]

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

إليكم الملف 

الشهادات المدرسية للقدامي 2021.xlsm

[Ali Mohamed Ali]

تفضل-يمكن ان يكون الكود هكذا

Private Sub CommandButton1_Click()
If Sheet1.Range("D5").Value = "" Then
MsgBox "الرجاء إدخال البيانات كاملة ", vbCritical, "تنبيه"
Sheet1.Activate
Exit Sub
Else
 End If
    Dim Arr
        With Sheet1
        Arr = Array(.Range("D5"), .Range("D7"), .Range("D9"), .Range("D11"), .Range("D13"), .Range("G5"), .Range("G7"), .Range("G9"), .Range("G11"))
    End With
        With Sheet2
        .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr
    End With
MsgBox "تم الإضافة بنجاح", vbInformation, "تأكيد"
Sheet1.Range("D5").Value = ""
Sheet1.Range("D7").Value = ""
Sheet1.Range("D9").Value = ""
Sheet1.Range("D11").Value = ""
Sheet1.Range("D13").Value = ""
Sheet1.Range("G5").Value = ""
Sheet1.Range("G7").Value = ""
Sheet1.Range("G9").Value = ""
Sheet1.Range("G11").Value = ""
End Sub

 

الشهادات المدرسية للقدامي 2022.xlsm