Carim OzMVP - 007*2
- Member since Nov 24th 2006
- Last Activity:
- Posts
- 5,173
- Likes Received
- 293
- Points
- 15,844
- Trophies
- 1
- Profile Hits
- 2,886
-
-
Hi Carim
Thanks for replying i forwarded with complete details in excel sheet.
Range is selected cells or at the end of table or we can fixed with A1:T20 (20R X 20C)
You can fixed at A21 as resulted row...
Please help me in this regards .........
-
Thanks for posting all your messages in the Forum ...
-
Thanks for your prompt response and please check this query and do the needful and am very thankful for your work ...
VALIDATING THE SUM OF THE TABLE IN EXCEL….
-
-
Hi,
Could you please check my issue which is already posted in the forum.
Subject : Excel VBA – Copy or Move files from one folder to another
Subject: VALIDATING THE SUM OF THE TABLE IN EXCEL….
Please do the needful am very thankful to you.....
-
Hi There,
Anyone can please help me on selecting the Titus Classification(Comm Addin) using a VBA, and when i tried using the sendkeys it didnt work.
when the macro is running to select any option in the classification using send keys, the options are acyually invisible in the Command bar.
Am struggling from 1 week just scratching my head to find a resolution for this one.
Please help me out, Thanks in Advance...!!!
-
Hi Carim,
Can you help me with my code. I"m having trouble writing the time out portion.
I have a time in and time out.
Display MoreCode- Private Sub cmdLogin_Click()
- Dim lRow As Long
- Dim ws As Worksheet
- Set ws = Worksheets("Attendance")
- Application.ScreenUpdating = False
- With Sheets("Attendance")
- If empid = "" Then
- MsgBox "Please Scan your ID", vbCritical, "Alert"
- Else
- ' Find emtpy row
- lRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
- 'Add data to worksheet
- ws.Cells(lRow, "A") = Me.txtEmp.Value
- ws.Cells(lRow, "A").Offset(, 1).Value = Now
- ws.Cells(lRow, "A").Offset(, 3).Value = Date
- ws.Cells(lRow, "A").Offset(, 4).Value = Me.empid.Value
- 'Clear userform
- txtEmp.Value = vbNullString
- Me.empid.SetFocus
- Application.ScreenUpdating = True
- End If
- End With
- End Sub
- Private Sub CommandButton1_Click()
- Dim lRow As Long
- Dim ws As Worksheet
- Dim Emp
- Dim MatchRow As String
- Dim SearchTable As Range
- Set SearchTable = Sheets("Attendance").Range("A2:A" & Sheets("Attendance").Range("A" & Rows.Count).End(xlUp).Row)
- Set SearchTable1 = Sheets("Attendance").Range("E2:E" & Sheets("Attendance").Range("E" & Rows.Count).End(xlUp).Row)
- Set ws = Worksheets("Attendance")
- Application.ScreenUpdating = False
- With Sheets("Attendance")
- If empid = "" Then
- MsgBox "Please Scan your ID", vbCritical, "Alert"
- Else
- If txtEmp.Value = "" Then
- MsgBox "Please Select an Job Number.", vbCritical, "Alert"
- Else
- If WorksheetFunction.CountIf(.Columns(1), txtEmp) = 0 Then
- MsgBox " You are NOT Timed-in", vbCritical, "Employee Time-Out"
- Else
- MatchRow = Application.WorksheetFunction.Match(txtEmp.Value, .Range(SearchTable.Address), 0) + 1
- MatchRow = Application.WorksheetFunction.Match(empid.Value, .Range(SearchTable1.Address), 0) + 1
- If .Cells(MatchRow, 3).Value <> "" Then
- MsgBox " You are Already Timed-Out", vbCritical, "Employee Time-in"
- Else
- .Cells(MatchRow, 3).Value = Now
- End If
- 'Clear userform
- txtEmp.Value = vbNullString
- Me.empid.SetFocus
- Application.ScreenUpdating = True
- End If
- End If
- End If
- End With
- End Sub
The time out portion: I want to be able to have multiple session of time in and out for same employee and Job specific. I can only do for single time out for same day. i don't know how to code it so it can accept new time out to another cell without overwrite previous session. I have the sample file in the Excel vba request for help. Please help me. Kind regards.
-
Hi,
You should be posting your question in the Forum
This would allow ALL the participants to help you out ...!!!
Cheers
hmws
Hi Carim
Just wanted to thank you for your prompt response. I didnt see a "thumbs up" like on the other two answers but nevertheless ................... thank you