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:

[TABLE="width: 500, align: center"]
<tbody>[TR]
[TD]x[/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Name[/TD]
[TD]Date[/TD]
[TD]In[/TD]
[TD]Out[/TD]
[TD]Total[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Alex[/TD]
[TD]12/12/2014[/TD]
[TD]12:00[/TD]
[TD]18:00[/TD]
[TD]6:00[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]Joana[/TD]
[TD]12/12/2014[/TD]
[TD]08:00[/TD]
[TD]18:00[/TD]
[TD]10:00[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]Michel[/TD]
[TD]13/12/2014[/TD]
[TD]09:00[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]Joana[/TD]
[TD]13/12/2014[/TD]
[TD]09:34[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


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