Dim row_num As Integer
Private Sub CommandButton2_Click()
row_num = Sheet5.range("A2").End(xlUp).Row + 1
Me.idtxt = Sheet5.Cells(row_num, 1)
load_data
End Sub
Private Sub load_data()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet5")
Dim i As Long
For i = 1 To Sheet5.UsedRange.Rows.Count
If idtxt.Text = Sheet5.Cells(i, 1).Value Then
ftxt.Text = Sheet5.Cells(i, 2).Value
ltxt.Text = Sheet5.Cells(i, 3).Value
sporttxt.Text = Sheet5.Cells(i, 4).Value
pointtxt.Text = Sheet5.Cells(i, 5).Value
Exit Sub
Else
ftxt.Text = ""
ltxt.Text = ""
sporttxt.Text = ""
pointtxt.Text = ""
End If
Next i
End Sub
Private Sub CommandButton3_Click()
If row_num < Sheet5.Cells(Rows.Count, 1).End(xlUp).Row Then
row_num = row_num + 1
Me.idtxt = Sheet5.Cells(row_num, 1)
load_data
End If
End Sub
Private Sub CommandButton4_Click()
If row_num > Sheet5.range("A2").End(xlUp).Row + 1 Then
row_num = row_num - 1
Me.idtxt = Sheet5.Cells(row_num, 1)
load_data
Exit Sub
Else
End If
End Sub
Private Sub CommandButton5_Click()
row_num = Sheet5.Cells(Rows.Count, 1).End(xlUp).Row
Me.idtxt = Sheet5.Cells(row_num, 1)
load_data
End Sub
Private Sub UserForm_Click()
End Sub
