to match targets to range and timestamp date

[shawn1983]

Hi All,

I need some help on the VBA code below. I have tried to draw up my table as best as possible. I am working on a key out/key in inventory. In sheet1 in cells B1 and B8, I have the =today() function to work as a timestamp. I need the code to match cells A2 (Key number) and cells A4 (Type) in sheet2 to find the exact match and input the time stamp on column E and the ID on column C. The function should work similarly when the key is signed in back. I'm not sure if the applicationmatch range can match multiple criteria. Any help on the code will be greatly appreciated.


Sheet1

	A	B
1	Key Number Out	12/27/2017
2	1
3	Type
4	Locker
5	ID
6	12345
7
8	Key Number In	12/28/2017
9	1
10	Type
11	Locker
12	ID
13	12345

<tbody>
</tbody>

Sheet2

	A	B	C	D	E	F
1	TYPE	KEY NO	ID	NAME	KEY OUT	KEY IN
2	LOCKER	1
3	PEDESTAL	1

<tbody>
</tbody>

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim v As Variant, ws As Worksheet
    Set ws = Sheet2
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Select Case Target.Address(0, 0)
        Case "A2", "A4", "A6" 'Key In
            If [A2] <> "" And [A4] <> "" And [A6] <> "" Then
                v = Application.Match(Range("A2").Value, ws.Range("B:B"), 0)
                If IsError(v) Then
                    MsgBox "Cannot match Key Number: " & Target.Value, vbExclamation, "Invalid Key Number"
                Else
                    ws.Range("E" & v).Value = Date
                    ws.Range("F" & v).ClearContents
                    ws.Range("C" & v) = Range("A4").Value
                End If
            End If
        Case "A9", "A11", "A13" 'Key Out
                If [A9] <> "" And [A11] <> "" And [A13] <> "" Then
            v = Application.Match(Target.Value, ws.Range("B:B"), 0)
            If IsError(v) Then
                MsgBox "Cannot match Key Number: " & Target.Value, vbExclamation, "Invalid Key Number"
            Else
                If ws.Range("E" & v).Value = "" Then
                    MsgBox "No checkout date.", , "Invalid Entry"
                Else
                    ws.Range("F" & v).Value = Date
                    Range("A11").Value = ws.Range("C" & v).Value
                End If
            End If
    End Select
End Sub

****** id="cke_pastebin" style="position: absolute; top: 218.4px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">

12/27/2017

<tbody>
</tbody>

</body>