Online AliGW Moderator
- Member since Dec 21st 2015
- Last Activity:
- Unread Posts
- Posts
- 1,765
- Likes Received
- 12
- Points
- 9,176
- Profile Hits
- 986
-
-
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...!!!
-
Why are you posting this on my wall? You need to open a thread on the forum.
-
Great, Thanks !!
I've already posted a Thread and seems like no response, could you please help me out.!
-
You should not contact individuals asking for help - it is considered as harassment. Please don't do this again. If 24 hours have passed since you posted, simply bump your thread. If I could help, I would have responded to your thread.
-
-
Hi AliGW,
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.
-
You should not be writing on members' walls asking for help - post your query in the forum where everyone can see it. In any case, I don't do code.
-
How do I mark my issue resolved?
-
I don't believe there is an option to do that - sorry. The software is new and we are all finding our way with it.
-
-
Hi Moderator ,, should i stop asking my queries here as since last couple of months no on replying on my queries ... i didnt get any reply ....i dont know why
-
No, but you should assume that your queries are not clear if you are getting no response. Maybe try adding extra detail and a sample workbook.
-
-
-
No problem if you post in the thread itself.
-
-
Hi Ali,
Do you happen to know what's going on over at EF, indeed are you encountering any difficulty getting the site up?
I've not been able to get the site to load for two days, frustrated by a 403 Forbidden Error message.
Assuming you can get in would you try to flag it up with the Tech Team to establish why some of us (I'm presuming there may be others) can't get in.
Thanks
Richard
-
Hi, Richard!
I am able to get in from home, but was frustrated myself by the 03 forbidden message at work t=yesterday. Kevin also reported that he was having problems from work via PM. I will raise it as an issue, but suspect changes in security settings in Microsoft for businesses.
I'll raise the issue over at EF now.
Ali
-
falak
Hi there
My threads are not opening and nobody can view it can you help me with this?