sleutel uit en in scan excel vba project hulp

[BearsAtWork]

Hallo,

Ik ben in excel een overzichts lijst te maken waarin sluiten in en uit gescanned kunnen worden.


Het zou fijn zijn als ik in de Dashboard sheet in een cel de naam kan typen en dat deze in de data sheet achter de desbetreffende naam terecht kan komen bij incheck en verwijderd kan worden bij uitcheck.



De code die ik in VBA gebruik :

Sub Mutatie()
    Dim AF As String, BIJ As String, voorraadaf As Integer, voorraadbij As Integer, row As Integer
    On Error Resume Next
    AF = Range("B1").Value
    BIJ = Range("B2").Value
    If AF = "" And BIJ = "" Then
        MsgBox ("Scan eerst een Sleutel")
    ElseIf Not (AF = "") And BIJ = "" Then
        voorraadaf = Evaluate("=INDEX(Data!C:C,MATCH(B1,Data!A:A,FALSE))-1")
        If Err.Number = 13 Then
            MsgBox "Ongeldige sleutel"
            End
        End If
        On Error Resume Next
        row = Evaluate("MATCH(B1,Data!A:A,0)")
        If voorraadaf < 0 Then
    MsgBox "Sleutel is al weg"
    End
    End If
        Sheets("Data").Cells(row, 3).Value = voorraadaf
        MsgBox ("Aantal Sleutels: " & voorraadaf)
    ElseIf AF = "" And Not (BIJ = "") Then
        voorraadbij = Evaluate("=INDEX(Data!C:C,MATCH(B2,Data!A:A,FALSE))+1")
        If Err.Number = 13 Then
            MsgBox "Ongeldige sleutel"
            End
        End If
        On Error Resume Next
        row = Evaluate("MATCH(B2,Data!A:A,0)")
        If voorraadbij > 1 Then
            MsgBox "Sleutel is al binnen"
    End
    End If
        Sheets("Data").Cells(row, 3).Value = voorraadbij
        MsgBox ("Aantal Sleutels: " & voorraadbij)
    Else
        MsgBox ("Scan slechts 1 Sleutel tegelijkertijd")
    End If
End Sub