Student Attendance

Here is a different approach

Sub checkUpdt()
Dim i, lr, k, f, g, v, x As Long
Dim sc, db As Worksheet

Set sc = Sheets("Students Checkin Time")
Set db = Sheets("Dashboard")
lr = sc.Cells(Rows.Count, 1).End(xlUp).Row
k = 0: f = 0: g = 0: v = 2: x = 2
With sc
For i = 2 To lr
    If .Cells(i, 1).Value = Date Then
        If Format(.Cells(i, 4).Value, "hh:mm") <= Format(Now(), "hh:mm") _
        And Format(.Cells(i, 5).Value, "hh:mm") > Format(Now(), "hh:mm") Then
            db.Cells(2 + v, 2 + g).Value = .Cells(i, 3).Value
            db.Cells(3 + v, 2 + g).Value = "Check in at:" & Format(.Cells(i, 4).Value, "hh:mm")
            db.Cells(4 + v, 2 + g).Value = "Total Time:" & DateDiff("n", .Cells(i, 4).Value, Format(Now(), "hh:mm"))
            k = k + 1
            f = f + 1
            g = g + 3
            If f Mod 3 = 0 Then
                v = v + 5
            End If
            If g Mod 9 = 0 Then
                g = 0
            End If
    
        End If
    End If
Next
End With
'MsgBox "updated"
MacroLoop
End Sub


Sub MacroLoop() 'this is the name of the macro that sets the OnTime
If Time > #4:41:00 PM# Then Exit Sub
Application.OnTime Now + TimeValue("00:01:00"), "checkUpdt"
End Sub

Originally Posted by maniacb

Here is a different approach

Thanks Maniacb, but I not getting how it is working I changed the time of a student manually and tried to run macros but give error in Module 1 of Macro CloseL()
and the time is not updated. Might be I am doing something wrong . Will u please guide me how it is working