Private Sub btnAdd_Click()
lastrow = WorksheetFunction.CountA(Sheets("Injuries").Range("A:A"))
Sheets("Injuries").Cells(lastrow + 1, 1).Value = lastrow
Sheets("Injuries").Cells(lastrow + 1, 2).Value = usrForm2.cmbInjuryStatues.Value
Sheets("Injuries").Cells(lastrow + 1, 3).Value = usrForm2.cmbInjuryPart.Value
Sheets("Injuries").Cells(lastrow + 1, 4).Value = usrForm2.cmbJnjurynatuer.Value
Sheets("Injuries").Cells(lastrow + 1, 5).Value = usrForm2.cmbInssurance.Value
End Sub
Private Sub cmbJnjurynatuer_Change()
End Sub
Private Sub CommandButton1_Click()
Dim staff_id As String
staff_id = Trim(txtStaffnumber.Text)
lastrow = Worksheets("sheet1").Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lastrow
If Worksheets("sheet1").Cells(i, 2).Value = staff_id Then
TextBox2.Text = Worksheets("sheet1").Cells(i, 3).Value
TextBox3.Text = Worksheets("sheet1").Cells(i, 4).Value
TextBox4.Text = Worksheets("sheet1").Cells(i, 5).Value
TextBox5.Text = Worksheets("sheet1").Cells(i, 6).Value
End If
Next
End Sub