التنقل بين السجلات

[khairi ali]

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

أخواني الكرام في هذا الصرح العظيم  اريد مساعدتكم في الشيت المرفق

التنقل بين السجلات.xlsm

[ابراهيم الحداد]

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

ربما تقصد هذا الشكل

التنقل بين السجلات.xlsm

[khairi ali]

صباح الخير

أستاذ ابراهيم بارك الله فيك على مرورك على الموضوع

ولكن ياريت المساعدة في المطلوب الثاني وهو بعد ترحيل درجات الطالب الاول التنقل للطالب الثاني عند الضغط على ازرار التنقل كما في الصورة

[ابراهيم الحداد]

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

ضع هذا فى نهاية الكود السابق

Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
Me.Text4 = ""
Me.Text5 = ""
Me.Text6 = ""

ثم قم باضافة هذا الكود

Private Sub SpinButton1_Change()
Set ws = Sheets("mark")
For i = 9 To 1000
If Me.ComboBox1.Value = ws.Cells(i, 3).Value Then
Me.SpinButton1.Value = i + 1
Me.ComboBox1.Value = ws.Cells(i + 1, 3).Value
Exit For

End If
Next
End Sub

 

[khairi ali]

بارك الله فيك أستاذ ابراهيم