اصلاح كود التعديل

[طارق نادر]

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

الكود التالي لايعمل ارجو لطفا اصلاحه مع الشكر

Private Sub CommandButton4_Click()
Dim iRow As Long
Dim WS As Worksheet
Set WS = Worksheets("مخزن (2024)")
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox2.SetFocus

End Sub

المشكلة ان الكود لا يعطيني خطأ معين ولكنه ينفذ الامر دون إعطاء مسج خطأ في الكود ولكن لايوجد نتيجة في صفحة التعديل تبقى المعلومة المنوي تعديلها كما هي

ارفق لك اخي الفاضل الملف 

الرقم السري tareq972708

رصد العقوبات طلاب الثانوية العامة تعديل (1).xlsm

[محي الدين ابو البشر]

طارق نادر

استبدل الكود بـ

Private Sub CommandButton4_Click()
Dim i As Long
Dim WS As Worksheet
Set WS = Worksheets("مخزن (2024)")
With WS.Columns(2)
r = .Cells.Find(Me.TextBox2, , , 1).Row
For i = 2 To 12
.Cells(r, i) =  UserForm1.Controls("Textbox" & i).value
 UserForm1.Controls("Textbox" & i).value = ""
Next
End with
End Sub

 

[طارق نادر]

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

بعد تجرية الكود السابق حدث الخطأ الموضح في الصورة المرفقة 

مع الشكر الجزيل لسعة صدوركم....

 

[محي الدين ابو البشر]

Private Sub CommandButton4_Click()
Dim i As Long
Dim WS As Worksheet
Set WS = Worksheets("مخزن (2024)")
With WS
r = .Columns(2).Cells.Find(Me.TextBox2, , , 1).Row
For i = 2 To 12
.Cells(r, i) = UserForm1.Controls("Textbox" & i).Value
 UserForm1.Controls("Textbox" & i).Value = ""
Next
End With
End Sub

[طارق نادر]

تم المطلوب ..كل الاحترام لجهودكم وسعة صدوركم