Click Here to download the Student Tracker File
Created with 2 Sheets in 1 Workbook
Sheet1 Renamed as “Entry Form” should look like below
Sheet2 Rename as Student records should look like below
Below is the VBA code was written at the backend
VBA Code of Adding student records
Sub studentrecorder()
Dim tb As ThisWorkbook
Dim Efrm As Worksheet
Dim StrRcrds As Worksheet
Set tb = ThisWorkbook
Set Efrm = tb.Sheets("Entry Form")
Set StrRcrds = tb.Sheets("Student Records")
LastRow = StrRcrds.Cells(StrRcrds.Rows.Count, "A").End(xlUp).Row
If InStr(1, Efrm.Range("I8"), "Please Update") > 0 Then
MsgBox Efrm.Range("I8")
Exit Sub
End If
StrRcrds.Range("A" & LastRow + 1) = LastRow
StrRcrds.Range("B" & LastRow + 1) = Efrm.Range("E6")
StrRcrds.Range("C" & LastRow + 1) = Efrm.Range("E7")
StrRcrds.Range("D" & LastRow + 1) = Efrm.Range("E8")
StrRcrds.Range("E" & LastRow + 1) = Efrm.Range("E9")
StrRcrds.Range("F" & LastRow + 1) = Efrm.Range("E10")
MsgBox "Student " & Efrm.Range("E6") & " Added Sucessfully", vbInformation
End Sub
VBA Code of Clearing the Data
Sub Cleardata()
Dim tb As ThisWorkbook
Dim Efrm As Worksheet
Dim StrRcrds As Worksheet
Set tb = ThisWorkbook
Set Efrm = tb.Sheets("Entry Form")
Set StrRcrds = tb.Sheets("Student Records")
Efrm.Range("E6:E10").ClearContents
MsgBox "Cleared Data Sucessfully"
End Sub