VBA - "Find" with "where"

[Kr4ft]

Hello there guys! First, thank you for your community and everyone inside of it! And sorry... probably my english is not perfect...

So... I need to create a way to do a "find" with a "where" on it... let's say... "Find Date where ID = Me"
The thing is: I need to find a registry in a table and then insert an information on it!


Like this:

x	A	B	C	D	E
1	Name	Date	In	Out	Total
2	Alex	12/12/2014	12:00	18:00	6:00
3	Joana	12/12/2014	08:00	18:00	10:00
4	Michel	13/12/2014	09:00
5	Joana	13/12/2014	09:34

<tbody>
</tbody>

So, let's say Joana wants to leave and press the "create mark" buttom... so it must find her name, then the date, then the line and then insert the hour in column D

Preetty easy huh?

Or.... if you guys find another way to do it... please let me know! I tought about filters but... since VBA does not understand a filter... it kind of didn't work... Probably there is a way but i'm too "starter edition" to know that kind of advanced alien technology

So anyway! Thanks everyone!

Kind Regards,

Kr4ft

 

[Kr4ft]

Maybe a loop using For?

Like, select A4569128756981659811²³¹²³¹²³¹²3¢²³£¬³²¬ , vlookup, then a backwards loop searching 10 entries?
first line, see date is = today? yes then look name, is the same guy? yes, then insert out...
Any toughts?

 

[MARK858]

First of all really don't understand post #2 but anyway...

possibly an old fashioned, inefficient way...
First create a dropdown with the names in a cell so they can select their name (in this case cell J1) then assign the code below to the button.

Sub test()
    Dim c As Range
    For Each c In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        
        If c.Value = Range("J1").Value Then
            
            If c.Offset(0, 1) = Date Then
                If Len(c.Offset(0, 2)) = 0 Then
                    c.Offset(0, 2) = Format(Now(), "hh:mm")
                Else
                    If Len(c.Offset(0, 2)) > 0 And Len(c.Offset(0, 3)) = 0 Then c.Offset(0, 3) = Format(Now(), "hh:mm")
                End If
            End If
        
        End If
        
        If Len(c.Offset(0, 2)) > 0 And Len(c.Offset(0, 3)) > 0 Then
            c.Offset(0, 4) = c.Offset(0, 3) - c.Offset(0, 2)
            c.Offset(0, 4).NumberFormat = "[hh]:mm"
        End If
    Next
End Sub

since VBA does not understand a filter

by the way VBA understands a filter perfectly well