Barcode to auto save workbook

[fpa93]

Guys!!

I do need to save a workbook by only reading a barcode. I mean as I read a barcode it will save automatically the workbook. Is it possible ?

Please help me out .

.. or does somebody has already done it cause I couldn't find a link talking about it.

 

[Steve_R]

The work I did with barcode in Excel simply took the input from the scanner and wrote the value in a cell before moving down to the next cell ready for the next read.

Using that method, it would be possible to use a 'Save' barcode to achieve what you want. Use the worksheet change event to detect the value entered into a cell (presumably using the Intersect method in a particular column). Something like:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, Range("C:C")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
'replace C:C with the appropriate range

    If Target.Value = "Save" Then   'Replace 'Save' with the code you have.
        Application.EnableEvents = False
        Target.Value = ""
        ActiveWorkbook.Save
        Application.EnableEvents = True
    End If

End Sub

Incidentally, the above works on the sheet with the worksheet change event if you manually type Save into a cell in column C.

 

[fpa93]

Hey Steve_R thank you a lot, it worked as I wanted. However, I need one more thing I dont need that the cursor goes down when I save it but instead I want it to stay in the same cell. I mean I am updating others cell using the same cell to read differents barcodes so it cannot goes down when I save the previous one cause I will read more ...

Have you done that ?

Thanks in advance.

 

[L. Howard]

Hi fpa93,

Try this modification to Steve_R's code, in red.

Howard

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, Range("[COLOR="#FF0000"]C2[/COLOR]")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    
[COLOR="#FF0000"]'replace C2 with the appropriate cell[/COLOR]

    If Target.Value = "Save" Then   'Replace 'Save' with the code you have.
        Application.EnableEvents = False
        Target.Value = ""
        [COLOR="#FF0000"]Target.Select[/COLOR]
        ActiveWorkbook.Save
        Application.EnableEvents = True
    End If

End Sub

 

[fpa93]

Howard, Thank you a lot it worked. As much I ask more I learn thank you for your attention.