Function =now() in barcode format

[mikelib62]

Hi

I am working on a data sheet for users, the idea is to capture the current date & time by scanning an external laminated barcode, there are various activities happening in the room, and, as and when a particular activity is completed, the supervisor scans a barcode (the barcode remains the same), which then puts in the current date & time in that particular cell, the barcode ideally would be a external piece of laminated paper that the user scans every time, however, it should put in the current date and time when the scanning takes place and put that value in the highlighted cell.

Thanks
Mike

 

[AlphaFrog]

-Right-click on the sheet tab
-Select View Code from the pop-up context menu
-Paste the code from below into the worksheet's code module
-Change the red value to the value that is returned when you scan the laminated barcode.

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Worksheet_Change([color=darkblue]ByVal[/color] Target [color=darkblue]As[/color] Range)
    [color=darkblue]If[/color] Target.Count = 1 [color=darkblue]Then[/color]
        [color=darkblue]If[/color] Target.Value = "[COLOR=#ff0000]1234567890[/COLOR]" [color=darkblue]Then[/color] Target.Value = [color=darkblue]Now[/color]
    [color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color]