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.

Hi Carim, I've just simulated 100 drawings and got many blanks. Can I resend for you to look at?

Carim,

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

Big Fan of Carim...

One last query for today, Carim. Please share your thoughts..

Edit Base data from another sheet

Hey Carim,

Hope you're doing good. I'm looking for a VBA code. Could you please help?

Input Sheet:

Output Sheet:

How to implement this logic through vba. Please guide me.

Carim, Please find the thread link below.

VBA code for exact and closely matching text

Hi Carim

Could you please help me out here? Please!!

https://stackoverflow.com/questions/66909560

Cheers!

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

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

Plz help me to correct approach

=IF(D1="Approved";"B1";IF(D1="Sold";"0";"-"))

I want B1 cell value in C1(i.e formula cell)

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

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!

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 .........

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...!!!

Thank you for the kind words.

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.

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.