Carim OzMVP (0007*2) - 4
- Member since Nov 24th 2006
- Last Activity:
- Posts
- 6,997
- Likes Received
- 916
- Points
- 22,031
- Trophies
- 2
- Profile Hits
- 9,142
-
-
One last query for today, Carim. Please share your thoughts..
-
-
-
Another daft question but here goes!
You helped me just now solve my problem (big thanks) but I can't see how to mark your answer as solution and/or mark thread as resolved. Can you advise?
Thanks
-
Not only you have already thanked me but you have also added a Thumbs Up
...which very kind of you ...
You cannot imagine the number of participants who " run away " with a solution without a single word of feedback ... !!!
Have added the mark thread solved ...( which is located just below the Title )
Hope to see around ...
Take care
Carim
-
-
Carim,
I saw a post on jan 22 2020 aboout Date pickers. i am wanting to use one of the 2 examples you suggested but im not sure how to get them to work in a userform. Please help me if you can. What i want it to do is default to the current date when i open the userform.
Dennis
-
Hi Carim,
WOuld you be able to look at post again. I have further questions to link the excel to ppt
Many Thanks
-
Hide/Unhide range of rows based on dropdown in protected sheet
-The code below works once (doesn't toggle). I want cells 11:14 to hide when value of C1 = PPP-DRAW 1; and unhide when C1 =PPP-Draw 2
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
Me.Protect "PPPBKU", UserInterfaceOnly:=True
Rows("11:14").Hidden = (Target <> "PPP-DRAW 1")
End Sub
-
****rows 11:14
-
-
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!
-
I had to create a new thread since it was closed.
Here is my thread - once again thank you for any help!
-
-
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
-
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
Hanes109
Big Fan of Carim...