السلام عليكم ورحمة الله وبركاته
أين الخطأ فى هذا الكود لتعديل البيانات
Dim WS As Worksheet
Set WS = Sheets("KG01")
WS.Activate
III = 11
Do Until WS.Cells(III, "B").Text = ""
If Me.ComboBox1.Text = WS.Cells(III, "C").Text Then
WS.Cells(III, "B").Activate
'----------------------------------------------------------------
WS.Cells(III, "C").Offset(0, 0).Value = Me.TextBox1.Value
WS.Cells(III, "K").Offset(0, 0).Value = Me.TextBox2.Value
Me.Label17 = WS.Cells(III, "E").Offset(0, 0).Text
Me.Label18 = WS.Cells(III, "F").Offset(0, 0).Text
Me.Label19 = WS.Cells(III, "G").Offset(0, 0).Text
Me.Label20 = WS.Cells(III, "H").Offset(0, 0).Text
Me.Label21 = WS.Cells(III, "I").Offset(0, 0).Text
Me.Label22 = WS.Cells(III, "J").Offset(0, 0).Text
Me.Label16 = WS.Cells(III, "D").Offset(0, 0).Text
Exit Sub
End If
III = III + 1
Loop
Me.ComboBox1.SetFocus
الملف على أكسيل 2007
الصفحة الرئيسية - حضانة صغرى - البحث عن تلميذ - تعديل
الكود خاص نتعديل الاسم والرقم القومى
أحيانا يتم تعديل الاسم فقط
وانا اريد تعديل الاسم والرقم القومى
فى انتظار الرد
K G 2018 22.rar