Posts by HSAR

Checked its working on MS 365. Thank you

I have been used your above sheet and tried to make it by my own but validation have all data even duplicate and empty i do not know why.

Using excel 21016 might due to this.

thanks Roy it is working perfectly.

Thank for making it you are truly legend. I will use it let you know that works for me.

Here is the Source Column with Country.

I haven't tried that, but I have successfully used it to load a ComboBox on a UserForm.

How ?

royUK

Ok thanks for your efforts.

Would you be able to make that unique range dynamic?

No sir.

There is not other function to do this.

Not yet, I need unique and skip blank cell

can someone please give solution why this error is occurring.

Yeah it took a lot time.

Thanks.

Thanks its working perfectly.

No.

I just trying to say that your code is still not adding date when i mention any number in "Out" it just add that "Arrived Late" code should mention "Date-Status(Late,Early,Absent,Leave)-Comments for each entry.

What do mean write in the second row? You have one row for each day.

Exactly i have one row but code will write next entry under previous automatically

The code that you have posted again makes no sense to me.

Yeah i know.

Let me try to understand you again There are 4 columns in Sheet

1 contains Date

2 contains In

3 contains Out

4 contains Comments

I just want that if anyone comes late and mention ISNUMBER or TIME like 9:00AM or 9.00 then it will will be consider as "Late" and code will write this "Date-Late-Comments"

if someone goes early then code should write in 2nd row the 2nd status "Date-Early-Comments"

Same for Leave and Absent.

I ave tried a lot to understand below code and requested you to modify this but now i have to understand your code that is good but still your code is missing.

Here is below the example that i want.

[Blocked Image: https://www.ozgrid.com/forum/core/index.php?attachment/1228855-pasted-from-clipboard-png/]

Sub Do_It()
 With Sheets("data")
 f = .Cells(.Rows.Count, "F").End(xlUp).Row
 If f > 3 Then .Range("F4:H" & f).ClearContents
 .Range("F3") = .Range("B1")
 f = 3
 For y = 3 To 33
 a = .Cells(y, "A")
 b = .Cells(y, "B")
 c = .Cells(y, "C")
 d = .Cells(y, "D")
 If b <> Empty And b <> Empty Then
 Select Case b
 Case "a", "A"
 txt = "Absent "
 Case "l", "L"
 txt = "Late "
 Case Else
 txt = "Leave "
 End Select
 f = f + 1
 .Cells(f, "F") = Format(a, "ddd dd-mmm-yyyy")
 .Cells(f, "G") = txt
 .Cells(f, "H") = d
 End If
 Next y
 End With
End Sub

I really appreciate you helped me a lot and still helping Thanks for the favor.

Surely if you enter a number in "In" then you need Arrived Late and the time?

Exactly.

and now both of you have resolved my issue.

Thanks

trunten

royUK

Thanks for making it perfect you guys are great.

Q. You said if you enter a number in B then Status is "Left Early"

Yeah i said but it was not working that way as i want.

But thank you so much

Thank you guys thank you so much

trunten

royUK

Thank you both of you

I want also same if i enter any number in ColumnB "In" then it also appear in Status "Late" along with Date and comments.

Thanks for consistent help but code does not show date with status Left Early.