Carim OzMVP (007*2) - 4
- Member since Nov 24th 2006
- Last Activity:
- Reactions Received
- Profile Hits
Hi Carim, I've just simulated 100 drawings and got many blanks. Can I resend for you to look at?
I am having issues with a workbook that you and others have helped me with in the past. I do not expect you to remember, but if you could take a look. I would appreciate it!
VBA - Sorting Formula has stopped working
One last query for today, Carim. Please share your thoughts..
Could you please help me out here? Please!!
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?
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 ...
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.
WOuld you be able to look at post again. I have further questions to link the excel to ppt
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
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")
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!
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
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 .........
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.....
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...!!!
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.
Hi, I am looking for a solution to an issue I am having and saw you are quite active. I am now wondering if what I am asking is even possible. It may be something like the issue is far to complicated or far to simply to be resolved. I am just looking for a way to keep a macro limited to one open workbook while other workbooks are open and my experience with macros is extremely limited. I hope reaching out directly to you is OK, if not I apologize.