VBA Code Problem

Using an attendance sheet and where ColumA is "Date" ColumnB is "In" and ColumnC is "Out" and ColumnD is "Comments"

If i mention "A", "L", "any number like 5.0 in ColumnB" it will give result.

in below code Column"C" is not mentioned where if i mention any number it means that the person is going "Early" it will

All i want is its result should be as like below image

Can anyone help me with this

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

Here is attached workbook

royUK looking forward to your response ?

royUK looking forward to your response ?

Thanks, I'll wait.

Thank you for your efforts.

I have requested you to please that code result should like as below picture and also you forget "Out" Col. for Early going.

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

and how do i Private Sub Worksheet_SelectionChange(ByVal Target As Range) this code

when run this code macro window is popup

Look at screen shot using above sheet and still issue is the same.

Sorry to disturb you again there issue in this if i add comments then comments erase the status that are (Absent, Leave,Late, Early)

Comments should be visible on third column status in second and dates in 1st.

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

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

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.

Thank you guys thank you so much