مشكلة فى كود إضافة

[حسن على]

هناك مشكلة فى كود زر إضافة طالب يخرج رسالة خطأ

run - time error ' 2147417848 ( 80010108)

method value of object " Range faild

ويتم إغلاق البرنامج 

school data 2025x.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

جرب هدا 

Private Sub addbtn_Click()
Dim n As Long
Dim src As Worksheet: Set src = Sheets("Data")
n = Application.WorksheetFunction.CountA(src.Range("B:B")) + 1
If Me.studname = "" Then: Exit Sub

src.Cells(n, 2) = Me.cod.Value
src.Cells(n, 3) = Me.studname.Value
src.Cells(n, 4) = Me.row.Value
src.Cells(n, 5) = Me.class.Value
src.Cells(n, 6) = Me.group.Value
src.Cells(n, 7) = Me.studcase.Value
src.Cells(n, 8) = Me.birthdate.Value
src.Cells(n, 9) = Me.mother.Value
src.Cells(n, 10) = Me.gender.Value
src.Cells(n, 11) = Me.mobile.Value
src.Cells(n, 12) = Me.subcase.Value
src.Cells(n, 13) = Me.adress.Value
src.Cells(n, 14) = Me.datenow.Value
src.Cells(n, 15) = Me.employ.Value
src.Cells(n, 16) = Me.notes.Value

 With src.Range("A2:A" & src.Cells(src.Rows.Count, "B").End(xlUp).row)
    .Value = Evaluate("ROW(" & .Address & ")")
  End With
arr = Array("studname", "cod", "row", "birthdate", "class", "studcase", "mobile", _
             "notes", "group", "mother", "gender", "subcase", "adress")
For i = 0 To UBound(arr): Me.Controls(arr(i)).Value = Empty: Next i
   MsgBox "تمت عملية التسجيل بنجاح"
'ActiveWorkbook.Save
End Sub

دوبل كليك على الصف الاول من ورقة Data لاظهار اليوزرفورم

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("A1:P1")) Is Nothing Then
        Cancel = True
        ADD.Show
    End If
End Sub

 

school data 2025x V2.xlsm

[حسن على]

شكرا جزيلا لتعبك وردك

 

[حسن على]

شكرا جزيلا لتعبك وردك

فيه مشكلة حصلت ان كده التعديل مش بيتم لأن الكود كده مش بيعمل