To keep your employee punctual Biometric Fingerprints Reader attendance system is one of the most successful ways of attendance management. In all management roles and cases, MS Excel has proposed to vibrate solutions that turn the task into formal and more production of a sequel.
In most cases, whether educational institutes, corporate offices, factories, large industries, and in short any project, employee presence, and proper track of their attendance is the most concerned department.
How Biometric Fingerprints Reader Works
For all projects or organizational administration, it is the sum worthy job ensures the discipline by making everyone punctual and regular on the duty.
Biometric Fingerprints Reader VBA Code
Dim wsRawData As Worksheet
Dim wsSAPIds As Worksheet
Dim rngColHead As Range
Dim lngLastCol As Long
Dim lngLastRow As Long
Dim rngSAP_ID As Range
Dim rngCel As Range
Dim rngRawData As Range
Set wsRawData = Worksheets(“Sheet1″)
‘Confirm if Total Events on last row and if so, delete the row.
Set rngCel = .Cells.Find(What:=”total events:”, _
If Not rngCel Is Nothing Then
‘Find last used column
lngLastCol = LastColOrRow(.Cells, 2) ‘2nd parameter: Use 1 for row or 2 for column
If lngLastCol = 0 Then
MsgBox “No data on ” & wsRawData.Name & “.” & vbCrLf & _
“Therefore no last used column or row.” & vbCrLf & _
‘Find last used row
lngLastRow = LastColOrRow(.Cells, 1) ‘2nd parameter: Use 1 for row or 2 for column
‘Test if all headers present and if not, insert dummy header/s
Set rngColHead = .Range(.Cells(1, 1), .Cells(1, lngLastCol))
For Each rngCel In rngColHead
If Trim(rngCel.Value) = “” Then
rngCel.Value = “Col_” & rngCel.Column
‘Assign full range of data to a range variable
Set rngRawData = .Range(.Cells(1, 1), .Cells(lngLastRow, lngLastCol))
‘Sort data: 1st Key SAP Id, 2nd Key Badge Id, 3rd Key Date/Time
rngRawData.Sort Key1:=Range(“B2”), Order1:=xlAscending, _
Key2:=Range(“A2”), Order2:=xlAscending, _
‘Key2:=Range(“C2″), Order2:=xlAscending, _
‘Re-assign data without column headers for Conditional Format
Set rngRawData = rngRawData.Offset(1, 0).Resize(.Rows.Count – 1, .Columns.Count)
‘Conditional format to identify Adjacent IN and/or Adjacent OUT
Selection.FormatConditions.Add Type:=xlExpression, _
Selection.FormatConditions(1).Interior.ColorIndex = 27
Function LastColOrRow(rngCells As Range, lngSearchOrder As Long) As Long
‘Positive method of finding last used Column or Row on a worksheet
Dim rng As Range
Set rng = rngCells.Find(What:=”*”, _
If Not rng Is Nothing Then
If lngSearchOrder = 1 Then
LastColOrRow = rng.Row
LastColOrRow = rng.Column
LastColOrRow = 0
Since told already, attendance management is one critical portion of work that requires daily updating manuals and attendance reports. For this very purpose, both hardware and software advancements have driven a fast track solution which is a biometric recognition system.
Download Free Attendance Management Templates in Excel
NOTE* Get Instant Access To These Templates Mention Template Number While Commenting Below.
By implementing an auto-filling and marking code of VBA being cast for this very purpose, attendance can be recorded more easily in quite a lesser time and with the least concentration.
Using a biometric scanning device being integrated with an MS Excel spreadsheet-based attendance note, one can easily keep a track of daily employees’ attendance their punctuality and deployment countdown time for the session that helps in performance improvement.
All you need to be stock a device find or create a good working VBA code that instructs your attendance report spreadsheet to mark subjected names against their relevant fingerprints match or face detection.
This technique will quickly fill up the attendance section and the employee or supervisor doesn’t need to fill the box manually. It also avoids any false entry as no block will be marked unless the real record matches.