
Carim OzMVP (007*2) - 2
- Member since Nov 24th 2006
- Last Activity:
- Posts
- 5,362
- Likes Received
- 340
- Points
- 16,458
- Trophies
- 1
- Profile Hits
- 3,612
-
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.
Code- 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.
bwkisley
Hello Carim....is there any chance you remember doing this??
Copy sheet and rename from a list, ignore duplicates
I am desperate and have been looking around everywhere for a solution to my very similar problem and you might be my only hope! I am going to message the thread for the specifics. Thank you in advance for any support you could provide!
bwkisley
I had to create a new thread since it was closed.
Here is my thread - once again thank you for any help!
Copy sheet and rename from a list, ignore duplicates