Private Sub ToggleButton1_Click()
Dim ws As Worksheet
Dim LR As Long, i As Long
Dim x As Integer
Dim SName As String
Set ws = Sheets("mark")
LR = ws.Range("C" & Rows.Count).End(xlUp).Row
SName = Me.ComboBox1.Text
If SName = "" Then
MsgBox " من فضلك اختر اســم الطالب "
Exit Sub
Else
i = 9
Do While i <= LR
If ws.Cells(i, 3).Text = SName Then
x = 9
ws.Cells(i, x).Value = Me.Text1
ws.Cells(i, x + 1).Value = Me.Text2
ws.Cells(i, x + 2).Value = Me.Text3
ws.Cells(i, x + 10).Value = Me.Text4
ws.Cells(i, x + 11).Value = Me.Text5
ws.Cells(i, x + 12).Value = Me.Text6
End If
i = i + 1
Loop
End If
Me.Text1 = ""
Me.Text2 = ""
Me.Text3 = ""
Me.Text4 = ""
Me.Text5 = ""
Me.Text6 = ""
End Sub
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