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
Sub HighlightProblems()
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 RangeSet wsRawData = Worksheets(“Sheet1″)
With wsRawData
.Select
‘Confirm if Total Events on last row and if so, delete the row.
Set rngCel = .Cells.Find(What:=”total events:”, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)If Not rngCel Is Nothing Then
rngCel.EntireRow.Delete
End If‘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 & _
“Processing terminated.”
Exit Sub
End If‘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
End If
Next rngCel‘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, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal‘Key2:=Range(“C2″), Order2:=xlAscending, _
‘Re-assign data without column headers for Conditional Format
With rngRawData
Set rngRawData = rngRawData.Offset(1, 0).Resize(.Rows.Count – 1, .Columns.Count)
End With‘Conditional format to identify Adjacent IN and/or Adjacent OUT
rngRawData.Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, _
Formula1:=”=OR($H2=OFFSET($H2,1,0),$H2=OFFSET($H2,-1,0))”
Selection.FormatConditions(1).Interior.ColorIndex = 27.Range(“A1″).Select
End WithEnd Sub
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 RangeSet rng = rngCells.Find(What:=”*”, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=lngSearchOrder, _
SearchDirection:=xlPrevious, _
MatchCase:=False)If Not rng Is Nothing Then
If lngSearchOrder = 1 Then
LastColOrRow = rng.Row
Else
LastColOrRow = rng.Column
End If
Else
LastColOrRow = 0
End IfEnd Function
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
Template 1:
Template 2:
Template 3:
Template 4:
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.
How can I create a VBA code in excel for a fingerprint scanner to print a ticket for each employee.
Hi
I would like to know more above the software.
Thank you
Wooow so impressed to see an excel application which pulls information from a fingerprint scanner. Can you please enlighten me on that and also give me a download copy of it
THANK YOU SIR
This is so great I would like to know more about this
How?
I want template 1,3 please
Employee attendance register 1
Employee attendance spreadsheet 3